vb6.0鼠标算密操作程序代码

'sleep函数
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

'获取鼠标坐标
Private Type POINTAPI
X As Long
Y As Long

End Type
Private Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long

'移动鼠标
Private Declare Function SetCursorPos Lib “user32” (ByVal X As Long, ByVal Y As Long) As Long
Private 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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Command3_Click()

Dim i, j, k, l, m, n As String
Dim a

i = Text2.Text
j = Text3.Text

k = Text5.Text
l = Text6.Text

m = Text1.Text
n = Text7.Text

For a = 0 To 9999999

SetCursorPos i, j

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 50

Next

End Sub

Private Sub Command6_Click()
Dim m, n As String

m = Text1.Text
n = Text7.Text

SetCursorPos m, n

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End Sub

Private Sub Command1_Click()
Dim i, j As String

i = Text2.Text
j = Text3.Text

SetCursorPos i, j

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End Sub

Private Sub Command4_Click()
Dim k, l As String

k = Text2.Text
l = Text3.Text

SetCursorPos k, l

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End Sub

Private Sub Timer1_Timer()
Dim Point As POINTAPI
GetCursorPos Point
Label1.Caption = “鼠标坐标:” & vbCrLf & vbCrLf & “鼠标横坐标为：” & Point.X & vbCrLf & “鼠标纵坐标为：” & Point.Y

End Sub