论坛 › CS / CS:S / CS:GO / HL2 › 定时自动下载360还原保护器和机器狗免疫并自动解压！

jnyzc 发表于 2008-5-28 21:57:12

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

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 发表于 2008-5-28 21:57:49

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

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 发表于 2008-5-29 08:47:14

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

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

我不要你哭 发表于 2009-1-20 19:27:55

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

查看完整版本: 定时自动下载360还原保护器和机器狗免疫并自动解压！