• Home
 · 
• Windows System Services
 · 
• A Very Fast and Very Easy way to get your Cursor Position !! Good for making banner clicking progra

A Very Fast and Very Easy way to get your Cursor Position !! Good for making banner clicking progra

A Very Fast and Very Easy way to get your Cursor Position !! Good for making banner clicking programs, And you need the exact X and Y cor.

API Declarations


'If you use this please give me props (I know you won't but I figure I would ask)
' E-Mail [email protected]

'First you must make a new Form
'Create TWO Text Boxes
'make ONE Timer
'And thats it
'Everything should work

Public 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)
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


Public Type POINTAPI
x As Long
y As Long
End Type

Public Function GetX() As Long
Dim n As POINTAPI
GetCursorPos n
GetX = n.x
End Function

Public Function GetY() As Long
Dim n As POINTAPI
GetCursorPos n
GetY = n.y
End Function



Rate A Very Fast and Very Easy way to get your Cursor Position !! Good for making banner clicking progra

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_Load()
Form1.Caption = "Psygnosis Programming"
End Sub

Private Sub Timer1_Timer()
Dim n As POINTAPI
GetCursorPos n
Text1.Text = n.x
Text2.Text = n.y
End Sub