Mouse Macro

Category:

Miscellaneous

Type:

Modules

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

records mouse movements and clicks for playback

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
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) Dim currPt As POINTAPI Dim strTemp As String Dim f As Long Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Key As Long) As Integer Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal Action As Long, ByVal Param As Long, Param As Any, ByVal WinIni As Long) As Long Private Const SPI_SCREENSAVERRUNNING = 97 Public Enum MouseButtons LeftButton = 1 RightButton = 2 End Enum

Code:

Private Sub Command1_Click()
cdlMac.ShowSave
Open cdlMac.FileName For Output As #1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Close #1
End Sub

Private Sub Command3_Click()
cdlMac.ShowOpen
Open cdlMac.FileName For Input As #2
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
GetCursorPos currPt
Print #1, "*" & currPt.X & " " & currPt.Y
Dim KeyResult As Long, X As Integer
Static Initialized As Boolean, MouseDown As Boolean, RightButton As Boolean
    KeyResult = GetAsyncKeyState(MouseButtons.LeftButton)
    If CBool(KeyResult) Then
        If Not Initialized Then
            Initialized = True
        Else
            If Not MouseDown Then
                Print #1, "!" & currPt.X & " " & currPt.Y
                RightButton = False
                MouseDown = True
            End If
        End If
    Else
        KeyResult = GetAsyncKeyState(MouseButtons.RightButton)
        If Not CBool(KeyResult) Then
            If MouseDown Then
                If Not RightButton Then
                    Print #1, "@" & currPt.X & " " & currPt.Y
                Else
                    Print #1, "#" & currPt.X & " " & currPt.Y
                End If
            End If
            MouseDown = False
        End If
    End If
    KeyResult = GetAsyncKeyState(MouseButtons.RightButton)
    If CBool(KeyResult) Then
        If Not MouseDown Then
            Print #1, "$" & currPt.X & " " & currPt.Y
            RightButton = True
            MouseDown = True
        End If
    Else
        KeyResult = GetAsyncKeyState(MouseButtons.LeftButton)
        If Not CBool(KeyResult) Then
            If MouseDown Then
                If Not RightButton Then
                    Print #1, "@" & currPt.X & " " & currPt.Y
                Else
                    Print #1, "#" & currPt.X & " " & currPt.Y
                End If
            End If
            MouseDown = False
        End If
    End If
    DoEvents

End Sub

Private Sub Timer2_Timer()
If EOF(2) <> True Then
Line Input #2, strTemp
Select Case Mid(strTemp, 1, 1)
Case "*"
f = SetCursorPos(Val(Mid(strTemp, 2, InStr(1, strTemp, " ") - 1)), Val(Mid(strTemp, InStr(1, strTemp, " ") + 1)))
Case "!"
mouse_event &H2, Val(Mid(strTemp, 2, InStr(1, strTemp, " "))), Val(Mid(strTemp, InStr(1, strTemp, " ") + 1)), 0, 0
Case "@"
mouse_event &H4, Val(Mid(strTemp, 2, InStr(1, strTemp, " "))), Val(Mid(strTemp, InStr(1, strTemp, " ") + 1)), 0, 0
Case "#"
mouse_event &H8, Val(Mid(strTemp, 2, InStr(1, strTemp, " "))), Val(Mid(strTemp, InStr(1, strTemp, " ") + 1)), 0, 0
Case "$"
mouse_event &H10, Val(Mid(strTemp, 2, InStr(1, strTemp, " "))), Val(Mid(strTemp, InStr(1, strTemp, " ") + 1)), 0, 0
End Select
Else
Timer2.Enabled = False
Close #2
End If
End Sub