'▼APIの宣言
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 _
)
'▼定数の宣言
Global Const MOUSEEVENTF_ABSOLUTE = &H8000 '座標の絶対指定
Global Const MOUSEEVENTF_LEFTDOWN = &H2 '左ボタンを押す
Global Const MOUSEEVENTF_LEFTUP = &H4 '左ボタンを離す
Global Const MOUSEEVENTF_MIDDLEDOWN = &H20 '中ボタンを押す
Global Const MOUSEEVENTF_MIDDLEUP = &H40 '中ボタンを離す
Global Const MOUSEEVENTF_MOVE = &H1 'マウスを動かす
Global Const MOUSEEVENTF_RIGHTDOWN = &H8 '右ボタンを押す
Global Const MOUSEEVENTF_RIGHTUP = &H10 '右ボタンを離す
|