[HELP] moving mouse

Okay for mouse click.

First declare this shizniz just under "Public Class Form1"

[php] Private 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)
Private Const MOUSELEFTDOWN = &H2
Private Const MOUSELEFTUP = &H4

[/php]

Then anywhere you need it to simulate a mouse click just put this

[php]
mouse_event(MOUSELEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSELEFTUP, 0, 0, 0, 0)
[/php]

That simulates a single click.

Just post if you need anything else (fast I'm sleeping soon :P)

EDIT: If you plan on using the mouse click in numerous places then make a sub

[php]
Private Sub MouseClick()

mouse_event(MOUSELEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSELEFTUP, 0, 0, 0, 0)

End Sub
[/php]

Then whenever you want to click the mouse. Just do this

[php]
Call MouseClick()
[/php]

Just PM me here, I'm usually on MPGH when I'm on the computer so I'll see it.

Do you know how to make the person move around in CA programmatically?

Why? It's still open for discussion.

Just because the original question was answered does not mean the thread should be closed yet, there is still active discussion going on.

Oh yeah, make sure it only shoots every now and then, otherwise you'll run outta ammo before the game ends. I was trying to make mine using "SendMessage" so you could AFK and still use your computer didn't work though cos CA patched sendmessage.

Although the problem is solved, here is a nice mouse move effect I just created. Its simple. It smoothly takes the cursor to the position you want. Not like directly jumping to the co-ordinates !!


First declare these:

[php]
'Set the x and y co-ordinates to your adjustments... In this case it will take the cursor to start menu.
Dim x As Integer = 10
Dim y As Integer = Screen.PrimaryScreen.Bounds.Height - 20
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Integer
Dim i As Integer = MousePosition.Y
Dim j As Integer = MousePosition.X
Dim boolx As Boolean = False
Dim booly As Boolean = False[/php]

Then add a timer and set its interval to 1. Then add the following code in the timer:

[php]If Not boolx Then
If x <= j Then
SetCursorPos(j, i)
j -= 4
Else
SetCursorPos(j, i)
j += 4
boolx = True

End If
End If
If Not booly Then
If y <= i Then
SetCursorPos(j, i)
i -= 4
Else
SetCursorPos(j, i)
i += 4
If boolx Then
booly = True

End If
End If
End If[/php]

Now run the application. The code might not be perfect. It needs improvement...Just posted to give you an idea.

Enjoy smooth mouse ride.

I haven't tested it but this looks niiiice. Good thinking. I like it Pretty simple and understandable, why didn't I think of it

Thanks man

I think i'm going to go cry myself to sleep now...QQ

Nah jokes :P