
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获取别的程序的按钮的句柄吗感激不尽啊,呵呵、易语言获取句柄-点击按钮、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)