有空慢慢整理吧，先找到一些写一些。。代码存的太零散了。。。

一.鼠标移动事件 SetCursorPos

1.定义API的Class

Public Class MouseKeybdAPI

    '// API Declare
    Public 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)
    Public Declare Sub SetCursorPos Lib "user32.dll" (ByVal x As Integer, ByVal y As Integer)
    Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

    Public Structure POINTAPI
        Public x As Integer
        Public y As Integer
    End Structure

End Class

2.测试方法（一个窗口+一个按钮就行）

Option Strict On
Option Explicit On

Imports Common.MouseKeybdAPI
Imports Common.ComFunc

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
			‘移动到100,500
            SetCursorPos(100, 500)
			‘移动到900,500
            SetCursorPos(900, 500)

    End Sub

End Class

二.待续