标签：microsoft vbs span ado rip vbscrip 下载文件 soft write
1 dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP") 2 dim bStrm: Set bStrm = createobject("Adodb.Stream") 3 xHttp.Open "GET", "http://127.0.0.1/file.exe", False 4 xHttp.Send 5 6 with bStrm 7 .type = 1 8 .open 9 .write xHttp.responseBody 10 .savetofile "C:\ProgramData\file.exe", 2 11 end with
标签：microsoft vbs span ado rip vbscrip 下载文件 soft write
原文地址：http://www.cnblogs.com/forsaken/p/6959621.html
