ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
26.01.2009, 03:06
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321
Репутация:
112
|
|
Сообщение от noveek
А подскажите ко мне как пакеты отправлять чтобы не по одному а при нажатии на кнопку он отправлял а пока не выйдешь из программы а то так получается что надо всё время на кнопку жать и ещё как после одного нажатия сделать кнопку больше неактивной
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('qwertyqwertyqwertyqwertyqwertq' ); //отправляем пакеты
end;
end.
тут уж извините логически подумать.... можно самому решение найти...
методом тыка... или хотябы озы бы выучл.. не так и много
|
|
|
26.01.2009, 03:35
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Кто нибудь может подсказать алгоритм и реализацию как .exe боту лучше всего получить команду с php гейта и выполнить её???
К примеру к php гейту стучатся 10 ботов за NAT, как лучше реализовать отправку нужной команды нужному IP ????
|
|
|
|
26.01.2009, 08:39
|
|
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418
Репутация:
386
|
|
кто может подсказать как реализовать подобное :
а именно окно которое небудет довать доступ к главному окну пока невведеш крпримеру логин и пасс как на картинке, это окно также должно появляться сразу при запуске программы.
Кто что скажет или пример покажет ? |
|
|
|
26.01.2009, 10:41
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
form1 - основное окно
form2 - окро авторизации
в первой форме проверяешь авторизован или нет.
Если нет то
form2.show;
form1.enabled:=false;
в форме авторизации прописываешь в обработчике onCanClose результат false если неавторизован. Если авторизован то true. также в onClose ставишь form1.enabled:=true;
|
|
|
|
26.01.2009, 10:49
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
Form1 - наше окно
Form2 - окно авторизации
из первой - Form1.ShowModal;
и первая форма будет ждать, пока вторая не закроется
также на Form2 кнопкам можно присвоить ModalResult, тогда они будут закрывать форму (без всяких Close), а в первой форме мы будем знать какая кнопка была нажата во второй (Form2.ModalResult)
|
|
|
|
26.01.2009, 11:29
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Зачем 2 формы-то? Не проще посередине прям над объектами формы повесить либо фрейм с inputbox'ами, либо какой-нибудь groupbox с ними же. Ну а дальше, как и отписался народ выше, блочить всё, что нужно, пока не авторизуешься, а далее делать фрейму\групбоксу visible:=false...
|
|
|
|
26.01.2009, 14:27
|
|
Познающий
Регистрация: 06.03.2007
Сообщений: 59
Провел на форуме:
371875
Репутация:
137
|
|
как можно передать какое либо значение пхп скрипту?
|
|
|
|
26.01.2009, 14:31
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
К примеру, на форму idHTTP закинь (в инди клиентс ищи), в uses добавь IdMultipartFormData
далее
IdHTTP1.Post('http://bla-bla.ru/index.php', data)
где data: TIdMultiPartFormDataStream
в дату добавляем data.AddFormField('имя параметра','значение параметра')
|
|
|
|
26.01.2009, 14:39
|
|
Познающий
Регистрация: 06.03.2007
Сообщений: 59
Провел на форуме:
371875
Репутация:
137
|
|
как это всё можно реализовать не используя формы?
|
|
|
|
26.01.2009, 15:15
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Ну, видимо, как-то так, если с инди...
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
IdHTTP,
IdComponent,
classes;
var
IdHTTP1: TIdHTTP;
Data: TStringList;
begin
Data := TStringList.Create;
IdHTTP1:= TIdHTTP.Create(nil);
{$R *.res}
Data.add('bla-bla');
IdHTTP1.Post('http://sait.ru' ,Data);
end.
Хотя, в сторону сокетов тоже глянуть можно  |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
