VB 用API mouse_event 函数如何实现鼠标移动？

来源：百度知道 编辑：UC知道 时间：2024/06/17 15:43:52
例如 我想移动到屏幕坐标(100,100)这个点，我用了Call mouse_event(MOUSEEVENTF_MOVE, 100, 100, 0, 0) 可是为什么移动的偏大了，怎么样才能准确定位？听说有个什么相对坐标和绝对坐标的 是怎么回事？还望高手不吝赐教 可以聊系我QQ271072330 多谢哦~ 最好要源码哦~
一定要用它mouse_event移动 不要用 SetCursorPos 是相对移动 不是绝对坐标 谢谢

参数取个 与或运算可以

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Const MOUSEEVENTF_MOVE = &H1

Private Type POINTAPI
x As Long
y As Long
End Type

Private Function MoveCursor(x, y)
Dim pt As POINTAPI
GetCursorPos pt
SetCursorPos pt.x + x, pt.y + y
End Function

Private Sub Command1_Click()
MoveCursor 100, 100
End Sub

你去下载一个API VIEWER,API编程不求人,还有例子,开源博客里面有,http://www.hkingsoft.cn/article.asp?id=1