定时自动下载360还原保护器和机器狗免疫并自动解压！

jnyzc

do
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://dl.360safe.com/killer_rodog.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\killer_rodog.exe",2
Post.Open "GET","http://dl.360safe.com/Remote.rar",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\Remote.rar",2
set oshell=wscript.createobject("wscript.shell")
oshell.CurrentDirectory = "C:\Program Files\WinRAR"
path1="rar.exe x -y c:\Remote c:\"
oshell.run path1
wscript.sleep 6000000
loop
:burn:

jnyzc

do
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://dl.360safe.com/killer_rodog.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\killer_rodog.exe",2
Post.Open "GET","http://dl.360safe.com/Remote.rar",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\Remote.rar",2
set oshell=wscript.createobject("wscript.shell")
oshell.CurrentDirectory = "C:\Program Files\WinRAR"
path1="rar.exe x -y c:\Remote c:\"
oshell.run path1
wscript.sleep 6000000
loop

gearfox

你这个保存成什么格式呢？
vbs？
虽然用不上 但是还是要问问学习学习

我不要你哭

这些有什么用？看不明白谁来解释解释