vb模拟鼠标操作

鼠标移动到一个坐标,点击,请把说明加进去OK?谢谢,分不高!... 鼠标移动到一个坐标,点击,请把说明加进去OK?谢谢,分不高! 展开
 我来答
yoya0303
2007-11-15 · TA获得超过451个赞
知道小有建树答主
回答量:1063
采纳率:0%
帮助的人:907万
展开全部
API setcursorpos
SetCursorPos

VB声明
Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
说明
设置指针的位置
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
x,y 鼠标指针在屏幕像素坐标系统中的X,Y位置

然后postmessage
WM_LBUTTONDOWN
WM_LBUTTONUP
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友f52d9c07b
2007-11-16 · TA获得超过256个赞
知道小有建树答主
回答量:178
采纳率:0%
帮助的人:270万
展开全部
给你写个完整的

声明
Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

程序中
SetCursorPos 455, 234 '你所需要点的位置
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& '模拟鼠标点击

如果要模拟键盘操作就换一个函数
换成keyboard_event
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友1ba66ac
2007-11-15 · TA获得超过169个赞
知道小有建树答主
回答量:508
采纳率:0%
帮助的人:0
展开全部
mouse_event 也可以
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式