vb6.0版本按键操作鼠标点击移动代码QZQ 2024-7-30

易软科技(河源)有限公司

于 2024-07-30 10:02:09 发布

阅读量405

点赞数 4

文章标签：计算机外设 windows vb6.0 开发语言

本文链接：https://blog.csdn.net/qq_32257509/article/details/140789342

版权

'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 Declare Function SetCapture Lib “user32” (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib “user32” () As Long

Private Declare Function PostMessage Lib “user32” Alias “PostMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_MOUSEMOVE As Long = &H200 ’ 鼠标移动消息
Private Const WM_LBUTTONDOWN As Long = &H201 ’ 左键按下消息
Private Const WM_LBUTTONUP As Long = &H202 ’ 左键松开消息

Private Sub Command1_Click()
Dim s As String
Dim i, k As Integer
Dim POINT As POINTAPI
GetCursorPos POINT

SetCursorPos POINT.X, POINT.Y
k = Text2.Text
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)

                Case "a"
            '模拟鼠标左键双击
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
            mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
            mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
            
            
            Sleep k
    
    
    
        Case "s"
            '模拟鼠标左键点击
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
            mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
            
            Sleep k
            
            
            
        Case "d"
            '模拟鼠标右键点击
            mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
            mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
            
             Sleep k
            
        Case "1" '里使用实际的左箭头字符
            '左移动鼠标
           SetCursorPos POINT.X - 200, POINT.Y  ' 向左移动鼠标到指定位置
            
             Sleep k
            
        Case "2" '里使用实际的右箭头字符
            '右移动鼠标
            SetCursorPos POINT.X + 200, POINT.Y  '右移动鼠标到指定位置
            
             Sleep k
            
        Case "3" '里使用实际的上箭头字符
            '上移动鼠标
            SetCursorPos POINT.X, POINT.Y - 200   '上移动鼠标到指定位置
            
             Sleep k
            
            
        Case "4" '里使用实际的下箭头字符
            '下移动鼠标
            SetCursorPos POINT.X, POINT.Y + 200   '下移动鼠标到指定位置
            
             Sleep k
            
    End Select
Next

End Sub

Private Sub Form_Load()
Text1.Text = “1234333”

Text2.Text = “400”

End Sub

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

End Sub