УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 128 из 677

128

Опции темы

Поиск в этой теме

Опции просмотра

#1271

30.03.2008, 22:34

Manoff

Познающий

Регистрация: 15.12.2007

Сообщений: 38

Провел на форуме:
71979

Репутация: 18

Отправить сообщение для Manoff с помощью ICQ

Хелп! Тот код по-чемуто не пашит СКРИН ЗДЕСЬ

#1272

30.03.2008, 22:38

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Отправить сообщение для De-visible с помощью ICQ

Код:

var ICQ: TICQClient;
begin
ICQ:= TICQClient.Create(nil); 
ICQ.UIN :=555555;
ICQ:=12345;
end;

ну и так далее!
Попробуй так!

Последний раз редактировалось De-visible; 30.03.2008 в 22:43..

#1273

30.03.2008, 23:18

Manoff

Познающий

Регистрация: 15.12.2007

Сообщений: 38

Провел на форуме:
71979

Репутация: 18

Код:

program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileCtrl;
var
k:string;
ICQ: TICQClient;
{$R *.dfm}
{$R *.res}
begin
    begin
     ICQ:= TICQClient.Create(nil);
     ICQ.UIN:=44028835;
     ICQ.Password:='kd';
     ICQ.ICQServer:='login.icq.com';
     ICQ.ICQPort:=5190;
     icq.Status:=8;
     ICQ.Login();
    end;
end.

Вот код и по идее он должен конектить к серву , НО он этого не делает в чём ошибка - не пойму походу дела у меня руки кривоваты

#1274

30.03.2008, 23:21

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Да кривоваты,Зачем два раза begin и end писать???

Код:

program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileCtrl;
var
k:string;
ICQ: TICQClient;
{$R *.dfm}
{$R *.res}
begin
     ICQ:= TICQClient.Create(nil);
     ICQ.UIN:=44028835;
     ICQ.Password:='kd';
     ICQ.ICQServer:='login.icq.com';
     ICQ.ICQPort:=5190;
     icq.Status:=8;
     ICQ.Login();
end.

#1275

30.03.2008, 23:40

Manoff

Познающий

Регистрация: 15.12.2007

Сообщений: 38

Провел на форуме:
71979

Репутация: 18

Да и так не рабит .
Хотя с формой всё тип-топ было!

#1276

30.03.2008, 23:55

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Цитата:

program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileC trl;//Здесь пробел не забудь убрать!!(Форум вставил)
var
k:string;
ICQ: TICQClient;
begin
ICQ:= TICQClient.Create(nil);
ICQ.UIN:=44028835;
ICQ.Password:='kd';
ICQ.ICQServer:='login.icq.com';
ICQ.ICQPort:=5190;
icq.Status:=8;
ICQ.Login();
end.

Без ресурсов компилится

#1277

31.03.2008, 01:28

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Наконец-то!

Кстати если вдруг не знал можно сделать массив компонентов(Применить можно при создании многопоточного флудера

)

Код:

program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileC trl;//Здесь пробел не забудь убрать!!(Форум вставил)
var
k:string;
ICQ: array [1..30] of TICQClient;
begin
ICQ[1]:= TICQClient.Create(nil);
ICQ[1].UIN:=44028835;
ICQ[1].Password:='kd';
ICQ[1].ICQServer:='login.icq.com';
ICQ[1].ICQPort:=5190;
icq[1].Status:=8;
ICQ[1].Login();
end.

Последний раз редактировалось De-visible; 31.03.2008 в 02:49..

#1278

31.03.2008, 09:14

Twiddle

Познающий

Регистрация: 06.09.2006

Сообщений: 94

Провел на форуме:
397064

Репутация: 15

Гугл не захотел помочь нормально с отключением ява скриптов в твеббраузере. =/ и оффтопный вопрос: какой ща последний делфи? А то я на 7 учусь.Есть ли смысл переходить на другой?Для новичка.