隱藏滑鼠移動
Private Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure
Private Structure RECT
Dim Left As Integer
Dim Top As Integer
Dim Right As Integer
Dim Bottom As Integer
End Structure
Private Structure WINDOWPLACEMENT
Dim Length As Integer
Dim flags As Integer
Dim showCmd As Integer
Dim ptMinPosition As POINTAPI
Dim ptMaxPosition As POINTAPI
Dim rcNormalPosition As RECT
End Structure
Private Declare Function GetWindowPlacement Lib "user32" (ByRef hwnd As Integer, ByRef lpwndpl As WINDOWPLACEMENT) As Integer
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long
Dim po As POINTAPI 'po點擊前滑鼠位置
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
GetCursorPos(po)
Call SetCursorPos(0, 100) '滑鼠移動到螢幕座標 X,Y(單位是圖元
mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
System.Threading.Thread.Sleep(200)
mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
SetCursorPos(po.x, po.y)
End Sub |