API mouse_event
*
1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_WHEEL = &H800
Const WHEEL_DELTA = 120
Call mouse_event(MOUSEEVENTF_WHEEL + MOUSEEVENTF_ABSOLUTE, Me.Left,
Me.Top, WHEEL_DELTA, 0)
2
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_WHEEL = &H800
Const WHEEL_DELTA = 120
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left,
Me.Top, 0, 0) '
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left,
Me.Top, 0, 0)
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_WHEEL = &H800
Const WHEEL_DELTA = 120
Call mouse_event(MOUSEEVENTF_WHEEL + MOUSEEVENTF_ABSOLUTE, Me.Left,
Me.Top, WHEEL_DELTA, 0)
2
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_WHEEL = &H800
Const WHEEL_DELTA = 120
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left,
Me.Top, 0, 0) '
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left,
Me.Top, 0, 0)
정상동작이 안되고 있네요.
원인이 뭔지 연구중 입니다.
참조 싸이트
http://breadlab.net/126
이 게시물을
댓글'1'
번호
제목
114
112
108
104
103
101
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) Private Const MOUSEEVENTF_MOVE As Integer = &H1 ' mouse move Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2 ' left button down Private Const MOUSEEVENTF_LEFTUP As Integer = &H4 ' left button up Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8 ' right button down Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10 ' right button up Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20 ' middle button down Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40 ' middle button up Private Const MOUSEEVENTF_WHEEL As Integer = &H800 ' wheel button rolled Private Const MOUSEEVENTF_ABSOLUTE As Integer = &H8000 ' absolute move이 댓글을