ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
08.03.2009, 19:41
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Продолжаю бьться бошкой аб стол=)))
E2004 Identifier redeclared: 'ICQClient1'
все в тех же строчках
procedure ICQClient1.OnMessageRecv(Msg, UIN: String);
procedure ICQClient1.onLogin;
|
|
|
08.03.2009, 19:55
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
program project2;
uses
Windows,
sysutils,
ICQClient;
{$R *.res}
var ICQClient1: TICQClient;
procedure ewq;
begin
end;
procedure qwe;
begin
end;
procedure application;
begin
ICQClient1.DisableDirectConnections:= True;
ICQClient1.ICQServer:= 'login.icq.com';
ICQClient1.ICQPort:= 5190;
ICQClient1.UIN:= StrToIntDef(Trim('43****043'), 0);
ICQClient1.Password := Trim('X*****DI');
ICQClient1.Login();
end;
procedure icqclient1onlogin;
begin
icqclient1.SendMessage(331122,'asdasdasd');
end;
procedure icqclient1onmessagerecv(uin,msg:string);
begin
end;
end.
|
|
|
|
08.03.2009, 19:58
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Все работает Спс огромное!
Сори если оч тупил=)
|
|
|
|
09.03.2009, 00:03
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Есть у меня массив компонентов
Bot:array of TICQClient;
так вот как к этому массиву прикрутить процедуру как к обычному TIcqClient'u еслиб я его кинул на форму. Например
Код:
procedure TMain.bot[i]Login(Sender: TObject);
begin
end;
|
|
|
|
09.03.2009, 01:05
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
прежде всего создай элементы этого массива, обозначь процедуры для них и потом уже пытайся с ними работать
|
|
|
|
09.03.2009, 13:15
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Вот приведу кусок кода:
Код:
unit Unit1;
interface
uses
.......................
type
TMain = class(TForm)
procedure LoadBotsClick(Sender: TObject);
.........................
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main: TMain;
Bot:array of TICQClient;
kol:Integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TMain.LoadBotsClick(Sender: TObject);
var i,k:Integer;
begin
SetLength(Bot,kol);
for i := 0 to high(bot) do
begin
Bot[i]:=Ticqclient.create(nil);//Как я понял это создание элементов массива
k:=pos(';',Options.memo1.Lines[i]);
bot[i].UIN:=strtoint(copy(Options.memo1.Lines[i],0,k-1));
bot[i].Password:=copy(Options.memo1.Lines[i],k+1,length(Options.memo1.Lines[i])-k);
end;
end;
Теперь вопрос как обозначить процедуры? Никак немогу разобраться |
|
|
|
09.03.2009, 14:03
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
Провел на форуме:
3799424
Репутация:
479
|
|
как мне сделать считывалку из памяти (адрес 232D7E68 ) с обновлением допустим 60ms
процесс ET.exe
|
|
|
|
09.03.2009, 15:11
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от #Wolf#
как мне сделать считывалку из памяти (адрес 232D7E68 ) с обновлением допустим 60ms
процесс ET.exe
+1, присоеденяюсь к просьбе.
Самому интересно.
|
|
|
|
09.03.2009, 16:50
|
|
HARDstasy
Регистрация: 26.11.2004
Сообщений: 1,367
Провел на форуме:
4226592
Репутация:
2175
|
|
как понимаю примерно так
while true do
begin
1) OpenProcess
2) ReadProcessMemory
3) Sleep(60);
end;
примеры
http://forum.ztu.edu.ua/showthread.php?t=1893
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20998829.html
|
|
|
|
09.03.2009, 19:36
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Так как обозначить процедуру для элемента массива?
Незнаю может быть я неправильно выражаюсь но мне надо: Вот у обычного TICQclient компонента кинутого на форму, есть эвенты, например OnLogin, тоесть как клиент подключается выполняется некое действие. Например
Код:
procedure TMain.ICQclientLogin(Sender: TObject);
begin
Label1.Caption:='Connected';
end;
А вот как работать с этими эвентами только с массивом компонентов
Код:
Bot:array of TICQClient;
Тоесть это должно быть нечто
Код:
procedure TMain.Bot[i]Login(Sender: TObject)
где i это будет цикл всех компонентов массива например от 0 до 10. Помогите плиз, если можно киньте исходник
Последний раз редактировалось Maxxxtri23; 09.03.2009 в 22:57..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
