Help Some codes

Ok ppl i did a workking auto clicker i want it to make it work on combat arms or these kinds of games i cant get it work so here is the program code

Public Class Form1
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 mouseclickup = 4
Private Const mouseclickdown = 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 10000
Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)

End Sub

help me ppl

"Timer1.Interval = 10000"

make it Timer1.Interval = 1

the im preety sure it will work, never actual made one of these.. so i might be wrong..

nope it doesnt hlp

Originally Posted by 012g

nope it doesnt hlp

dang lol.. i dunno.. ill look it up on google.. see what i can find

Code:

  Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

code to button:

mouse_event(&H2, 0, 0, 0, 1)
                mouse_event(&H4, 0, 0, 0, 1)

set timer1.interval = 50 or it will lagg!

Help Some codes

Similar Threads

Tags for this Thread