VB查找指定一个软件的窗口,并自动点击软件里面的下一步按钮。怎么写?最好有代码
2个回答
2013-09-18
展开全部
用postmessagePublic Sub SendClick(ByVal lyHwnd As Long, ByVal x As Long, ByVal Y As Long)
Dim lp As Long' PostMessage lyHwnd, WM_KEYDOWN, VK_RETURN, MapVirtualKey(VK_RETURN, WM_KEYDOWN) '发送一个ENTER键按下的消息
' PostMessage lyHwnd, WM_KEYDOWN, VK_1, MapVirtualKey(VK_1, WM_KEYDOWN) '发送一个1键按下的消息
lp = Y
lp = lp * 65536 + x '上面的X和Y代表的是你要在指定的窗口中执行鼠标事件的一个点的坐标
PostMessage lyHwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal lp
PostMessage lyHwnd, WM_LBUTTONUP, MK_LBUTTON, ByVal lp '在窗口(hwnd)中的点(x,Y)执行一次鼠标单击事件End Sub
Dim lp As Long' PostMessage lyHwnd, WM_KEYDOWN, VK_RETURN, MapVirtualKey(VK_RETURN, WM_KEYDOWN) '发送一个ENTER键按下的消息
' PostMessage lyHwnd, WM_KEYDOWN, VK_1, MapVirtualKey(VK_1, WM_KEYDOWN) '发送一个1键按下的消息
lp = Y
lp = lp * 65536 + x '上面的X和Y代表的是你要在指定的窗口中执行鼠标事件的一个点的坐标
PostMessage lyHwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal lp
PostMessage lyHwnd, WM_LBUTTONUP, MK_LBUTTON, ByVal lp '在窗口(hwnd)中的点(x,Y)执行一次鼠标单击事件End Sub
2013-09-18
展开全部
这个用vb不好办到吧,用API的findwindow查找窗口,用sendmessage发送点击信息
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询