请问这样的控件句柄怎么取得并发送按键？100分求救，谢谢。(100分)

liuer · 2003-03-04

我们在查找QQ用户后，会出现一个用户列表框，我们选中其中一个用户，就可以查看他的资料 请问这个用户列表框的句柄如何取得？取得后如何让他自动选择不同的用户（向从上往下的顺序）选择？ 谢谢了。

zw84611 · 2003-03-06

procedure TForm1.Button1Click(Sender: TObject); var   Hwnd: THandle;   S: string;   Count, i: Integer; begin   //假设另一个程序的窗口的类名是TForm1，ListBox的类名是TListBox，注意这里要做修改   Hwnd := FindWindowEx(FindWindow('TForm1',nil),0,'TListBox',nil);   if Hwnd = 0 then ShowMessage('not found!');   Count := SendMessage(Hwnd, LB_GETCOUNT, 0, 0);   for i := 0 to Count - 1 do SendMessage(Hwnd, LB_SETCURSEL, i, 0); end;

ETimeFly · 2003-03-06

窗口类名可以用WinSight32取得

liuer · 2003-03-06

Hwnd := FindWindowEx(FindWindow('TForm1',nil),0,'TListBox',nil); 如何做到程序自动判断对方窗口中控件的类名呢？比如上句中的'TForm1'，'TListBox'，对方程序窗口中 的控件类名可能会不同，应该如何做出判断？

zw84611 · 2003-03-06

用SPY++或WinSight32 “自动判断”好象不大可能。且只针对某一个固定的程序，其类名是不会变的。

pos0637 · 2003-03-06

可以试试鼠标钩子钩到句柄，然后SendMessage（Handle, WM_KEYDOWN, x, x );

liuer · 2003-03-06

楼上朋友，怎么钩啊？讲解一点具体的代码

DarwinZhang · 2003-03-06

推荐用 EnumWindows 获得主窗口句柄。  然后用 EnumChildWindows获得上面的组件句柄，  用GetWindowClass(WHandle) 判断某个组件的类名，从而找到这个窗体。  当然，直接用 WindowFromPoint 和Timer 更加直接，  不过要他的鼠标指向这个列表框才行。

liuer · 2003-03-06

楼上朋友，用 WindowFromPoint 和Timer 更加直接，  不过要他的鼠标指向这个列表框才行。  WindowFromPoint 这个api非要要鼠标指向这点才行吗？

DarwinZhang · 2003-03-06

不然你如何设置点参数呢？因为QQ窗口的位置是不定的，当然这个框的位置就不定了。 而我们只能用GetCursorPos来获得鼠标的位置从而找到那个框的位置， 然后把鼠标点的位置当成参数传入了！

请问这样的控件句柄怎么取得并发送按键？100分求救，谢谢。(100分)

liuer

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ETimeFly

Unregistered / Unconfirmed

liuer

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

pos0637

Unregistered / Unconfirmed

liuer

Unregistered / Unconfirmed

DarwinZhang

Unregistered / Unconfirmed

liuer

Unregistered / Unconfirmed

DarwinZhang

Unregistered / Unconfirmed

Similar threads