Текущий архив: 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.48 MB
Время: 0.053 c