by Matthew Gates (16 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3rd March 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Move the Mouse Cursor (good for pay programs)
'This code is of good use. If you use those surf programs to make
'money, notice that they react and stay idle upon mouse movement or the
'button will go red? Well this code will keep the mouse button moving
'so you can make more money without have to actually surf the internet.
'(Note: 'Another way to work on your computer and make money is to change
'the title of a caption with the text "- Microsoft Internet Explorer")
'Good Luck!
'Code:
'Dim t&
't& = SetCursorPos(0, 0)
'timeout 1.5
't& = SetCursorPos(500, 300)
'timeout 1.5
't& = SetCursorPos((Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2)
'timeout 1.5
Function timeout(interval)
current = Timer
Do While Timer - current < Val(interval)
DoEvents
Loop
End Function