Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Как изменить UIN и пароль в QIP?   Найти похожие ветки 

 
Volf_555 ©   (2006-03-14 19:47) [0]

Для этого пробывал следующее:
procedure TForm1.Button1Click(Sender: TObject);
var
s:Integer;
a:Integer;
z:String;
begin
s:=FindWindow(nil,"QIP - Спокойное общение!"); //находит
ShowMessage(IntToStr(s)); //больше нуля
a:=FindWindowEx(s,0,"Panel",nil); //не находит. Вообще Panel - правильно?!
ShowMessage(IntToStr(a)); //равно нулю
a:=FindWindowEx(a,0,"ComboBox",nil); //не находит
ShowMessage(IntToStr(a)); //равно нулю
z:="279854879"; //UIN вымышленный
SendMessage(a,WM_SetText,0,Integer(z));
end;

Компоненты ComboBox и Edit в QIP находятся на панели.
В компоненте ComboBox находится UIN
В компоненте Edit находится пароль
Как найти панель, записать данные в ComboBox и Edit и нажать на кнопку Подключиться?


 
Handle   (2006-03-14 22:34) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
s:Integer;
a:Integer;
z:String;
begin
s:=FindWindow(nil,"QIP - Спокойное общение!");
//a:=FindWindowEx(s,0,"TPanel",nil);
a:=FindWindowEx(a,0,"TComboBox",nil);
z:="279854879";
SendMessage(a,WM_SetText,0,Integer(PChar("z"));
a:=FindWindowEx(a,0,"Edit",nil);
z:="пароль";
SendMessage(a,WM_SetText,0,Integer(PChar("z"));
a:=FindWindowEx(s,0,"TButton","Подключиться");
SendMessage(a, BM_CLICK, 0, 0);
end;


 
Handle   (2006-03-14 22:43) [2]

Тоесть вот так я хотел сказать

procedure TForm1.Button1Click(Sender: TObject);
var
s:Integer;
a:Integer;
z:String;
begin
s:=FindWindow(nil,"QIP - Спокойное общение!");
a:=FindWindowEx(s,0,"TPanel",nil);
s:=FindWindowEx(a,0,"TComboBox",nil);
z:="279854879";
SendMessage(s,WM_SetText,0,Integer(PChar("z"));
s:=FindWindowEx(a,0,"Edit",nil);
z:="пароль";
SendMessage(s,WM_SetText,0,Integer(PChar("z"));
s:=FindWindowEx(a,0,"TButton","Подключиться");
SendMessage(a, BM_CLICK, 0, 0);
end;


 
Handle   (2006-03-14 22:48) [3]

опять не так
s:=FindWindowEx(a,0,"TButton","Подключиться");
SendMessage(a, BM_CLICK, 0, 0);

правильно
a:=FindWindowEx(s,0,"TButton","Подключиться");
SendMessage(a, BM_CLICK, 0, 0);


 
Volf_555 ©   (2006-03-19 14:32) [4]

И снова не так :)
Правильные отредактированный код будет следующим:

procedure TForm1.Button4Click(Sender: TObject);
var
s:Integer;
a,b,c,d:Integer;
z:String;
begin
s:=FindWindow(nil,"QIP - Спокойное общение!");
a:=FindWindowEx(s,0,"TGroupBox",nil);
b:=FindWindowEx(a,0,"TComboBox",nil);

z:="279854879";
SendMessage(b,WM_SetText,0,Integer(PChar(z)));

c:=FindWindowEx(a,0,"TEdit",nil);
z:="пароль";
SendMessage(c,WM_SetText,0,Integer(PChar(z)));

d:=FindWindowEx(a,0,"TButton","Подключиться");
SendMessage(d, BM_CLICK, 0, 0);
end;


 
Handle   (2006-03-19 21:14) [5]

Данезашто



Страницы: 1 вся ветка

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
15-1147891422
GA
2006-05-17 22:43
2006.06.11
Delphi будет жив или нет ?


15-1147820909
iZEN
2006-05-17 03:08
2006.06.11
Кто-нибудь пробовал десктопную FreeBSD?


15-1148034709
saxon
2006-05-19 14:31
2006.06.11
Задачка про гномов


6-1139092207
Galiaf
2006-02-05 01:30
2006.06.11
Узнать о кампьютерах в сети. Sockets.


15-1147796075
DillerXX
2006-05-16 20:14
2006.06.11
Лого из Delphi 4