Code: Select all
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
v1 As Long
z As Long
End Type
Private Function GetCursorPosEx() As POINTAPI
GetCursorPos GetCursorPosEx
End Function
Private Sub Timer1_Timer()
With GetCursorPosEx
' Dim v1 As Integer
x = .x
'y = "Current Y = " & .y
'z = "currect X = " & v1
End With
End Sub
Private Sub Timer2_Timer()
AppActivate "MAME"
With GetCursorPosEx
z = .x
Dim sy As Integer
Dim sz As Integer
'If z = .x Then
Text1.Text = x
If z = Text1.Text Then
y = "Scratch Me!"
ElseIf z > Text1.Text Then
y = "Greater"
' and then you can use this:
SendKeys "{k}"
ElseIf z < Text1.Text Then
y = "smaller"
SendKeys "{l}"
Else
End If
End With
End Sub