Главная страница
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.026 c
15-1147325557
Случайный прохожий
2006-05-11 09:32
2006.06.11
Простая задачка


8-1136730983
Antonio
2006-01-08 17:36
2006.06.11
точки на плоскости


15-1147780821
Ega23
2006-05-16 16:00
2006.06.11
А что будет, если ....


15-1147689437
GAnS_666
2006-05-15 14:37
2006.06.11
компонент TLEDDisplay


15-1147336189
Marser
2006-05-11 12:29
2006.06.11
Могли бы Вы стать гуманитарием?