UC知道mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
来源：百度知道 编辑：UC知道 时间：2024/06/11 09:17:45
我想问一下,这个模拟鼠标点坐键的函数,为什么实验了不行呢?不管是程序里面,还是外部都不行啊,急死了,这是代码:
Private Sub Command1_Click()
SetCursorPos 520, 186
Sleep 2000
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
'这是模块里的代码:
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public 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)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
代码没问题吧?我都是在网上找的,可以确定我现在使用的电脑没任何病毒,XP的系统,VB是精简版的,为什么鼠标就是点不了呢?
Private Sub Command1_Click()
SetCursorPos 520, 186
Sleep 2000
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
'这是模块里的代码:
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public 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)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
代码没问题吧?我都是在网上找的,可以确定我现在使用的电脑没任何病毒,XP的系统,VB是精简版的,为什么鼠标就是点不了呢?
你缺少定义两个常量,在模块中增加如下定义
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
然后就能正常使用了
Private 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
Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
SetCursorPos 520, 520
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub