For the ones who posted / pmed me...
Here's my own little program, which clicks as long as you want (written with autoit).
Very very useful for the [Only registered and activated users can see links. Click Here To Register...] ^^
[Only registered and activated users can see links. Click Here To Register...]
(It may have a normal font on your pc.)
Left:
Type your number of clicks in the white box and click "Left" for left clicks.
When all clicks are done, you get a small message.
Right:
Type your number of clicks in the white box and click "Right" for right clicks.
Shop:
Type your number of clicks in the white box and click "Shop" for buying in a webshop (it works only on server with a user panel and a resolution of 1024*768, then the panel is on the correct place)
Glory:
Type your number of clicks in the white box and click "Glory" for using Glory Potions in your inventory. (Tested with oldschool skin) It's still bugged, if someone has a solution for it pm me.
Credits:
Just some credits.
Strg + Alt + X (Ctrl + Alt + X) closes the program, if you want to exit the program before all clicks are done.
Have fun :)
Source Code:
Here's my own little program, which clicks as long as you want (written with autoit).
Very very useful for the [Only registered and activated users can see links. Click Here To Register...] ^^
[Only registered and activated users can see links. Click Here To Register...]
(It may have a normal font on your pc.)
Left:
Type your number of clicks in the white box and click "Left" for left clicks.
When all clicks are done, you get a small message.
Right:
Type your number of clicks in the white box and click "Right" for right clicks.
Shop:
Type your number of clicks in the white box and click "Shop" for buying in a webshop (it works only on server with a user panel and a resolution of 1024*768, then the panel is on the correct place)
Glory:
Type your number of clicks in the white box and click "Glory" for using Glory Potions in your inventory. (Tested with oldschool skin) It's still bugged, if someone has a solution for it pm me.
Credits:
Just some credits.
Strg + Alt + X (Ctrl + Alt + X) closes the program, if you want to exit the program before all clicks are done.
Have fun :)
Source Code:
Quote:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\xxx\icon.ico
#AutoIt3Wrapper_Outfile=Clicker.exe
#AutoIt3Wrapper_Res_Comment=Clicks as much as you want.
#AutoIt3Wrapper_Res_Description=Clicker
#AutoIt3Wrapper_Res_Fileversion=1.8
#AutoIt3Wrapper_Res_LegalCopyright=Chrome
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=Mady by|Chrome
#AutoIt3Wrapper_Au3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Tidy_Stop_OnError=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\xxx\clicker.kxf
$box = GUICreate("Clicker", 203, 50, 193, 125)
GUISetCursor(3)
GUISetBkColor(0x000000)
$startleft = GUICtrlCreateButton("Left", 0, 0, 57, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Base 05")
GUICtrlSetCursor(-1, 3)
$startshop = GUICtrlCreateButton("Shop", 0, 24, 57, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Base 05")
GUICtrlSetCursor(-1, 3)
$startright = GUICtrlCreateButton("Right", 56, 0, 65, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Base 05")
GUICtrlSetCursor(-1, 3)
$glory = GUICtrlCreateButton("Glory", 56, 24, 65, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Base 05")
GUICtrlSetCursor(-1, 3)
$credits = GUICtrlCreateButton("Credits", 120, 24, 81, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Base 05")
GUICtrlSetCursor(-1, 3)
$input1 = GUICtrlCreateInput("100000", 120, -8, 81, 33)
GUICtrlSetFont(-1, 12, 800, 0, "Base 05")
GUICtrlSetCursor(-1, 3)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetIcon("\cabal.exe")
GUISetCursor(3)
GUISetBkColor(0x000000)
$g_szVersion = "ClickScript"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
HotKeySet("^!x", "HotkeyExit")
HotKeySet("^!c", "HotkeyEnde")
$inp = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $nMsg = $startleft Then
$i = 0
$inp = GUICtrlRead($input1)
If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer
If $inp >= 1 Then
Do
Sleep(300)
MouseClick("left")
$i = $i + 1
$sToolTipAnswer = ToolTip("" & $i & "", 500, 500, "Clicks:", 0, 0)
Until $i = $inp
$sToolTipAnswer = ToolTip("Fertig: " & $i & "", 500, 500, "Clicks:", 0, 0)
EndIf
EndIf
If $nMsg = $startright Then
$i = 0
$inp = GUICtrlRead($input1)
If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer
If $inp >= 1 Then
Do
Sleep(300)
MouseClick("right")
$i = $i + 1
$sToolTipAnswer = ToolTip("" & $i & "", 500, 500, "Clicks:", 0, 0)
Until $i = $inp
$sToolTipAnswer = ToolTip("Fertig: " & $i & "", 500, 500, "Clicks:", 0, 0)
EndIf
EndIf
If $nMsg = $startshop Then
$j = 0
$inp = GUICtrlRead($input1)
If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer
Do
$coord1 = PixelSearch(490, 280, 700, 580, 0x4F0303)
If Not @error Then
Sleep(1000)
MouseClick("left", $coord1[0], $coord1[1])
EndIf
Sleep(400)
$coord2 = PixelSearch(447, 550, 700, 580, 0xEEEEEE)
If Not @error Then
Sleep(1500)
MouseClick("left", $coord2[0], $coord2[1])
$sToolTipAnswer = ToolTip("Fertig: " & $j & "", 500, 500, "Items:", 0, 0)
EndIf
$j = $j + 1
Until $j = $inp
$sToolTipAnswer = ToolTip("Fertig: " & $j & "", 500, 500, "Items:", 0, 0)
EndIf
If $nMsg = $glory Then
$j = 0
$inp = GUICtrlRead($input1)
If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer
Do
$coord3 = PixelSearch(800, 340, 1020, 560, 0xE3DFA4)
;$coord3 = PixelSearch(800, 340, 1020, 560, 0xE2E2E2) ;potion
If Not @error Then
Sleep(200)
MouseClick("right", $coord3[0], $coord3[1])
EndIf
;$coord4 = PixelSearch(385, 280, 685, 320, 0x020204)
$coord4 = PixelSearch(385, 280, 685, 320, 0xC7C7C7) ;yes
If Not @error Then
Sleep(200)
MouseClick("left", $coord4[0], $coord4[1])
Send("I")
Send("I")
$sToolTipAnswer = ToolTip("" & $j & "", 500, 500, "Pots:", 0, 0)
EndIf
Sleep(1500)
$j = $j + 1
Until $j = $inp
EndIf
If $nMsg = $credits Then
MsgBox(0, "Clicker", " ##################" & @CRLF & " # This Program Clicks #" & @CRLF & " # As Much As You Want #" & @CRLF & " ##################" & @CRLF & " # (c) Chrome 2008 #" & @CRLF & " ##################")
EndIf
WEnd
Func HotkeyExit()
Exit
EndFunc ;==>HotkeyExit
Func HotkeyEnde()
$j = $inp
$i = $inp
EndFunc ;==>HotkeyEnde
