by Psygnosis (Psygnosis Programming) (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 13th July 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about A Very Fast and Very Easy way to get your Cursor Position !! Good for making banner clicking progra. Why not be the first to post a comment about A Very Fast and Very Easy way to get your Cursor Position !! Good for making banner clicking progra.