Programming Forums > Application Development > Visual Basic

Pissi · Oct 30th, 2005, 2:20 PM

Hey im trying to make an autoclicker and its going to be in the same form as an autotyper though i cannot get it to work. Rory has tried to help me and its properbly just a mistake i am making.
Can someone help me make a quick autoclicker where you can set how many left mouse clicks it does per second? It would realy help, thanks.

13EN · Nov 26th, 2005, 12:55 PM

hi i cannot help with the auto clicker program but i have 2 questions: Are you using them for Runescape? also Please can you tell me how to make an auto talker because all of my attempts have failed miserably!!

Dameon · Nov 26th, 2005, 12:59 PM

Perhaps you should...I don't know...post some details? Such as code?

ivan · Nov 26th, 2005, 2:37 PM

Can somebody explain to me why so many people are trying to code autoclikers? For what are they used???

jayme · Nov 26th, 2005, 3:08 PM

im going to guess for google ads on their own site? something along the lines of making money from ads probably..

zero771 · Nov 26th, 2005, 4:49 PM

ooh runescape, i remember that game,
autoclickers repeatedly click in places you program it to click in

13EN · Nov 26th, 2005, 5:07 PM

ok then this is the most recent attempt:

(Toggle Plain Text)

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 5000
SendKeys Text1.Text
SendKeys "{enter}"
End Sub

i got help with that off another forum

Rory · Nov 27th, 2005, 9:31 AM

You want to use the mouse_event and keyb_event APIs, they are implemented at the driver level, so will work if the application is using DirectInput or event hooks, which SendKeys won't work for (as it's a wrapper for SendMessage WM_KEYUP I believe), especially if this is for a game.

Pissi · Dec 5th, 2005, 4:13 PM

Hey, i did it, and that code you found on a forum is right for the auto talker, they are simple to make, but the clicker..

Put this in as a new module:

(Toggle Plain Text)

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 SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Public Const MOUSEEVENTF_MIDDLEUP = &H40
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10
    Public Const MOUSEEVENTF_MOVE = &H1

Then make a timer and add this code:

(Toggle Plain Text)

Private Sub Timer1_Timer()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Then just add buttons start and stop and set each one of them to enable/disable the clicker, and also you could add a text box to define the interval of the clicks:

(Toggle Plain Text)

Private Sub Command1_Click()
Timer1.Interval = Text1.Text
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Interval = Text1.Text
Timer1.Enabled = False
End Sub

hmm...i swear i have made more posts than 2!

coldDeath · Dec 5th, 2005, 4:47 PM

Hehe posts in "the lounge" don't count ;-)

Oct 30th, 2005, 2:20 PM	#1
Pissi Newbie Join Date: Oct 2005 Posts: 9 Rep Power: 0	Auto Clicker: Need help Hey im trying to make an autoclicker and its going to be in the same form as an autotyper though i cannot get it to work. Rory has tried to help me and its properbly just a mistake i am making. Can someone help me make a quick autoclicker where you can set how many left mouse clicks it does per second? It would realy help, thanks.

Nov 26th, 2005, 12:59 PM	#3
Dameon Troll Join Date: Apr 2005 Location: Texas Posts: 732 Rep Power: 4	Perhaps you should...I don't know...post some details? Such as code? __________________ MD5(sig) = bcef75433db02e9ad9bf81d6f7c5c270

Nov 26th, 2005, 5:07 PM	#7
13EN Newbie Join Date: Nov 2005 Posts: 13 Rep Power: 0	ok then this is the most recent attempt: (Toggle Plain Text) Private Sub Command1_Click() Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Timer1.Interval = 5000 SendKeys Text1.Text SendKeys "{enter}" End Sub Private Sub Command1_Click() Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Timer1.Interval = 5000 SendKeys Text1.Text SendKeys "{enter}" End Sub i got help with that off another forum

Dec 5th, 2005, 4:13 PM	#9
Pissi Newbie Join Date: Oct 2005 Posts: 9 Rep Power: 0	Hey, i did it, and that code you found on a forum is right for the auto talker, they are simple to make, but the clicker.. Put this in as a new module: (Toggle Plain Text) 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 SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 Public Const MOUSEEVENTF_MIDDLEUP = &H40 Public Const MOUSEEVENTF_RIGHTDOWN = &H8 Public Const MOUSEEVENTF_RIGHTUP = &H10 Public Const MOUSEEVENTF_MOVE = &H1 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 SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 Public Const MOUSEEVENTF_MIDDLEUP = &H40 Public Const MOUSEEVENTF_RIGHTDOWN = &H8 Public Const MOUSEEVENTF_RIGHTUP = &H10 Public Const MOUSEEVENTF_MOVE = &H1 Then make a timer and add this code: (Toggle Plain Text) Private Sub Timer1_Timer() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub Private Sub Timer1_Timer() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub Then just add buttons start and stop and set each one of them to enable/disable the clicker, and also you could add a text box to define the interval of the clicks: (Toggle Plain Text) Private Sub Command1_Click() Timer1.Interval = Text1.Text Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Interval = Text1.Text Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Interval = Text1.Text Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Interval = Text1.Text Timer1.Enabled = False End Sub hmm...i swear i have made more posts than 2!

Dec 5th, 2005, 4:47 PM	#10
coldDeath Expert Programmer Join Date: Aug 2005 Location: UK Posts: 862 Rep Power: 4	Hehe posts in "the lounge" don't count ;-) __________________ Programming Tutorials - Linux Installation Guide - Learn Python - Learn C++ Got Slack? Join us at #programmingforums @ irc.freenode.net! My software never has bugs. It just develops random features.

Nov 26th, 2005, 12:55 PM	#2
13EN Newbie Join Date: Nov 2005 Posts: 13 Rep Power: 0	hi i cannot help with the auto clicker program but i have 2 questions: Are you using them for Runescape? also Please can you tell me how to make an auto talker because all of my attempts have failed miserably!!

Nov 26th, 2005, 2:37 PM	#4
ivan Professional Programmer Join Date: Sep 2005 Location: serbia & montenegro Posts: 484 Rep Power: 4	Can somebody explain to me why so many people are trying to code autoclikers? For what are they used???

Nov 26th, 2005, 4:49 PM	#6
zero771 Programmer Join Date: Nov 2005 Posts: 37 Rep Power: 0	ooh runescape, i remember that game, autoclickers repeatedly click in places you program it to click in

Nov 27th, 2005, 9:31 AM	#8
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	You want to use the mouse_event and keyb_event APIs, they are implemented at the driver level, so will work if the application is using DirectInput or event hooks, which SendKeys won't work for (as it's a wrapper for SendMessage WM_KEYUP I believe), especially if this is for a game.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Programming Forums > Application Development > Visual Basic

Auto Clicker: Need help