vb.net 模擬滑鼠點下

Option Explicit On

Module MManip

'API 定義
Public Declare Sub Mouse_Event Lib "user32" _

(ByVal dwFlags As int32, ByVal dx As int32, ByVal dy As int32, _
ByVal cButtons As int32, ByVal dwExtraInfo As int32)

Public Declare Function SetCursorPos Lib "user32" _

(ByVal X As int32, ByVal Y As int32) As int32

Public Declare Function GetCursorPos Lib "user32"

(ByRef lpPoint As POINTAPI) As int32


Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const MOUSEEVENTF_MOVE = &H1

Public Structure POINTAPI

Dim X As Int32
Dim Y As Int32

End Structure

'取得目前滑鼠座標
Public Function GetCurrentPos As POINTAPI

Dim Position As POINTAPI
GetCursorPos(Position)
GetCurrentPos = Position

End Function

'取得目前滑鼠座標 x 值
Public Function GetCurrentX() As int32

Dim Position As POINTAPI
GetCursorPos(Position)
GetCurrentX = Position.X

End Function

'取得目前滑鼠座標 y 值
Public Function GetCurrentY() As int32

Dim Position As POINTAPI
GetCursorPos(Position)
GetCurrentY = Position.Y

End Function

'滑鼠左擊
Public Sub LeftClick()

LeftDown()
LeftUp()

End Sub

'按下滑鼠左鍵
Public Sub LeftDown()

Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

'放開滑鼠左鍵
Public Sub LeftUp()

Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

End Sub

'滑鼠中擊
Public Sub MiddleClick()

MiddleDown()
MiddleUp()

End Sub

'按下滑鼠中鍵
Public Sub MiddleDown()

Mouse_Event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)

End Sub

'放開滑鼠中鍵
Public Sub MiddleUp()

Mouse_Event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)

End Sub

'移動滑鼠
Public Sub MoveMouse(ByVal xMove As int32, ByVal yMove As int32)

Mouse_Event(MOUSEEVENTF_MOVE, xMove, yMove, 0, 0)

End Sub

'滑鼠右擊
Public Sub RightClick()

RightDown()
RightUp()

End Sub

'按下滑鼠右鍵
Public Sub RightDown()

Mouse_Event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)

End Sub

'放開滑鼠右鍵
Public Sub RightUp()

Mouse_Event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)

End Sub

End Module