能请一下用vb获取别的程序的按钮的句柄吗感激不尽啊,呵呵

能请一下用vb获取别的程序的按钮的句柄吗感激不尽啊,呵呵,第1张

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()

Dim hw As Long

hw = FindWindowEx(0&, 0&, vbNullString, "窗口标题写在这")

If hw > 0 Then

hw = FindWindowEx(hw, 0&, vbNullString, "按钮文字写在这")

If hw > 0 Then

'按钮找到了,hw就是其句柄,可进一步处理

Else

'按钮没找到,按钮有可能不是窗口的子窗口。你可以用Spy++之类的软件检测一下

End If

Else

'窗口没找到,你可以改用类来查找。可以用Spy++之类的软件检测一下。或者改用枚举的方法

End If

End Sub

精易编程助手,点其他,生成E源码

然后发送鼠标信息

    子程序名:鼠标_消息

    向指定窗口发送鼠标动作消息(无返回值)

    参数<1>的名称为“窗口句柄”,类型为“整数型”,允许接收空参数数据。注明:可空:为桌面超级列表框句柄  接收鼠标消息窗口句柄。

    参数<2>的名称为“水平坐标”,类型为“整数型”,允许接收空参数数据。注明:可空:为原水平坐标不变  移动目标鼠标水平坐标 (注:坐标为参数一窗口句柄中的坐标)。

    参数<3>的名称为“垂直坐标”,类型为“整数型”,允许接收空参数数据。注明:可空:为原垂直坐标不变  移动目标鼠标垂直坐标。

    参数<4>的名称为“键”,类型为“整数型”,允许接收空参数数据。注明:可空:为左键  1 #左键   2 #右键   3 #中键  4 #中键上滚动 5 #中键下滚动(滚动前后请按下放开中键)。

    参数<5>的名称为“控制”,类型为“整数型”,允许接收空参数数据。注明:可空:为单击  1 #单击   2 #双击   3 #按下  4 #放开。

以上就是关于能请一下用vb获取别的程序的按钮的句柄吗感激不尽啊,呵呵全部的内容,包括:能请一下用vb获取别的程序的按钮的句柄吗感激不尽啊,呵呵、易语言获取句柄-点击按钮、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9412436.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-04-28
下一篇2023-04-28

发表评论

登录后才能评论

评论列表(0条)

    保存