[VB6] How to move the mouse. + Wait Function! [VB6]

DustyÃŸottems · 08-07-2007, 06:48 PM

DustyÃŸottems,
Guide to moving the mouse.

*Note this guide will be writtin step by step, if you mess up.. go outside.

Step 1. Ok open VB6 and start a new .exe project.

Step 2. Add a module (Fig 1.1) and paste the following code into it. (Fig 1.2)

Fig 1.1:

Fig 1.2:

Code:

 
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long 
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long 
Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long 
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long 
Public Type PointAPI 
    x As Long 
    y As Long 
End Type 
Public Type RECT 
    Left As Long 
    Top As Long 
    Right As Long 
    Bottom As Long 
End Type

Step 2: On your main form add a command button (Do not rename!) then double click on it and call on the module you just made! (Fig 1.3)

Fig 1.3:

Code:

 
SetCursorPos 0, 0

Start her up and hit your command button your mouse should move to the top left hand corner

Now your probabley thinking "This is great and everything but how do i add wait times and make a REAL bot???"

Wait Times

Let's a go!

Step 1: On your current form go to the coding window and scroll down to the very bottom of your code, add this (Fig 1.4)

Fig 1.4:

Code:

 
Public Declare Function timeGetTime Lib "winmm.dll" () As Long 
Public Sub Waitms(Milliseconds As Long) 
  Dim Time1 As Long 
  Time1 = timeGetTime() 
  'Take the time at this point and set it as a variable 

  Do 
    DoEvents 
  'You should know what this does 

  Loop While Time1 + Milliseconds > timeGetTime() 
  'Continue the loop as long as Time1 plus Milliseconds is greater than the 
  'current time.  Eventually the current time will be greater than time1 
  'plus milliseconds and the function will be done waiting. 

End Sub

*Note: i took the time to comment it, read it please?

To use simply call on it as so:

Code: