Jump to content
Sign in to follow this  
toothyXdip

Autoclicker

Recommended Posts

toothyXdip

Just a simple autoclicker not really helping the public but i wanted to make my own AC

i would say tell me of any bugs or glitches but its so simple i dont think that there are any 0.o so injoy

Speeds:

Fast: about 23 clicks per sec

Medium: about 15 clicks per sec

Slow: about 8 clicks per sec

(XSkinGroup made by Valuater i just got it to work in my script)

oh yeah i forgot to tell you press F10 to use it

Global $F10OnOff

HotKeySet('{F10}', '_Sendleftclick')

#include <GUIConstants.au3>
GUICreate("Toothydip AC", 230, 300)
GUISetBkColor(0x0000ff)
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent ($GUI_EVENT_CLOSE, 'onclick')
$group = XSkinGroup("Speed Setting", 40, 80, 130, 130, $SS_CENTER)
GUISetFont(16, "", "", "Alien Encounters")
;Labels-------------------------------------------
$title = GUICtrlCreateLabel("Toothydip" & @CRLF & "AutoClicker", 40, 40)
guisetfont(9)
; Buttons & Checkboxes----------------------------
$fast_speed_checkbox = GUICtrlCreateRadio("  Fast Speed", 50, 100,90,20)
$medium_speed_checkbox = GUICtrlCreateRadio("  Medium Speed", 50, 130,110,20)
$slow_speed_checkbox = GUICtrlCreateRadio("  Slow Speed", 50, 160,90,20)
; Color Sets -------------------------------------
guictrlsetcolor($title, 0x000000)

$clicksetting_helper = 0
$defalt_delay = 10
$speed_setting = 0


GUISetState(@SW_SHOW)



While True
    $msg = GUIGetMsg()
    Sleep(10)
    $clicksetting_helper = $clicksetting_helper + $speed_setting
    If (($clicksetting_helper * $defalt_delay) / 500) >= 1 Then
        Sendleftclick()
        $clicksetting_helper = 0
        EndIf
    Switch $msg
        Case $GUI_EVENT_CLOSE
            OnExit()
    EndSwitch
WEnd

; Functions -------------------------------------

Func OnExit()
   Exit
EndFunc

Func onclick()
    GUICtrlSendToDummy($user)
EndFunc

Func Sendleftclick()
    If $F10OnOff Then MouseClick("Left")
EndFunc

Func _Sendleftclick()
    $F10OnOff = Not $F10OnOff
    If _IsChecked($fast_speed_checkbox) Then fast()
    If _IsChecked($medium_speed_checkbox) Then medium()
    If _IsChecked($slow_speed_checkbox) Then slow()
EndFunc

Func fast()
    $speed_setting = 50
EndFunc

Func medium()
    $speed_setting = 30
EndFunc

Func slow()
    $speed_setting = 10
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func XSkinGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight, $color)
    $color = 0Xffffff
    Local $XS_n, $PControl
    If StringInStr(@OSTYPE, "WIN32_NT") Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
    EndIf
    $PControl = GUICtrlCreateGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight)
    ;GUICtrlSetBkColor($PControl, $color1)
    GUICtrlSetColor($PControl, $color)
    If StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
    EndIf
    Return $PControl
EndFunc   ;==>XSkinGroup

Toothydip_Ac.exe

Edited by toothyXdip

---╔╦═╗╔╗'''╔╗╔═╦═╗╔╦═╗---╝╠═╣╝║'''║╝╝''''''╝╝║'''......''''''''''''''''''''''''''''''---╔╩═╩═╩═╩═══╩═╦═╩═╩══╦══════╗''''╔╩════════════╩══╗╔══╩══╗╔══╝ ''''''''''''''''''''''''''''''''''''''''''''''''''''║║'''''''''''''''║║ ''''''''''''''''''''''''''''''''''''''''''''''╔══╝╚══╗''''''║║''''''''''''''''''''''''''''''''''''''''''''''╚══════╝''''''╚╝

Share this post


Link to post
Share on other sites
toothyXdip

Toothydip Autoclicker Ver 1.01

lol i just made it look better have a menu at top and some other stuff

enjoy =) there is some stuff that i think ppl could learn from

Global $F10OnOff
Global $num
Global $ver = "Ver 1.01"
Global $Disabled = False
HotKeySet('{F10}', '_Sendleftclick')
HotKeySet('!^c', 'Hotkeyclose')

#include <GUIConstants.au3>
$main = GUICreate("Toothydip Ac", 230, 300)
GUISetBkColor(0x00ccee)
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, 'onclick')
$group = XSkinGroup("Speed Setting", 40, 80, 130, 130, $SS_CENTER)
;Labels-------------------------------------------
GUISetFont(16, "", "", "Alien Encounters")
$title = GUICtrlCreateLabel("Toothydip" & @CRLF & "AutoClicker", 40, 40)
GUISetFont(9)
$status_label = GUICtrlCreateLabel("Autoclicker is Off", 0, 260, 230, 20, BitOR($SS_SIMPLE, $SS_SUNKEN))
; Buttons & Checkboxes ----------------------------
GUISetFont(9)
$fast_speed_checkbox = GUICtrlCreateRadio("  Fast Speed", 50, 100, 90, 20)
$medium_speed_checkbox = GUICtrlCreateRadio("  Medium Speed", 50, 130, 110, 20)
GUICtrlSetState($medium_speed_checkbox, $GUI_CHECKED)
$slow_speed_checkbox = GUICtrlCreateRadio("  Slow Speed", 50, 160, 90, 20)
; Menus -------------------------------------
GUISetFont(9)
$file_menu = GUICtrlCreateMenu("File")
$file_exit = GUICtrlCreateMenuitem("Exit", $file_menu)
$options_menu = GUICtrlCreateMenu("Options")
$options_speed_menu = GUICtrlCreateMenu("Speed", $options_menu)
$speed_menu_setting_fast = GUICtrlCreateMenuitem("Fast", $options_speed_menu)
$speed_menu_setting_medium = GUICtrlCreateMenuitem("Medium", $options_speed_menu)
$speed_menu_setting_slow = GUICtrlCreateMenuitem("Slow", $options_speed_menu)
GUICtrlSetState($speed_menu_setting_medium, $GUI_CHECKED)
$help_menu = GUICtrlCreateMenu("Help")
$help_help = GUICtrlCreateMenuitem("Help", $help_menu)
$help_info = GUICtrlCreateMenuitem("Info", $help_menu)
$view_menu = GUICtrlCreateMenu("View")
$view_status_bar = GUICtrlCreateMenuitem("Status Bar", $view_menu)
GUICtrlSetState($view_status_bar, $GUI_CHECKED)

; Other Info --------------------------------
$clicksetting_helper = 0
$defalt_delay = 10
$speed_setting = 0

GUISetState(@SW_SHOW)

AdlibEnable("title_textcolor_change", 100)


While True
    $msg = GUIGetMsg()
    Sleep(10)
    $clicksetting_helper = $clicksetting_helper + $speed_setting
    If (($clicksetting_helper * $defalt_delay) / 500) >= 1 Then
        Sendleftclick()
        $clicksetting_helper = 0
    EndIf
    Select
        Case $msg = $GUI_EVENT_CLOSE
            OnExit()
            
        Case $msg = $file_exit
            ExitLoop
            
        Case $msg = $speed_menu_setting_fast
            speed_menu_setting_fast()
            
        Case $msg = $speed_menu_setting_medium
            speed_menu_setting_medium()
            
        Case $msg = $speed_menu_setting_slow
            speed_menu_setting_slow()
            
        Case $msg = $help_info
            helpinfo()
            
        Case $msg = $help_help
            helphelp()
            
        Case $msg = $view_status_bar
            If BitAND(GUICtrlRead($view_status_bar), $GUI_CHECKED) = $GUI_CHECKED Then
                GUICtrlSetState($view_status_bar, $GUI_UNCHECKED)
                GUICtrlSetState($status_label, $GUI_HIDE)
            Else
                GUICtrlSetState($view_status_bar, $GUI_CHECKED)
                GUICtrlSetState($status_label, $GUI_SHOW)
            EndIf
    EndSelect
WEnd

; Functions -------------------------------------

Func OnExit()
    Exit
EndFunc   ;==>OnExit

Func Hotkeyclose()
    Exit
EndFunc   ;==>Hotkeyclose

Func helpinfo()
    $info = GUICreate("Info", 150, 150, 0, 0)
    GUISetBkColor(0x000000)
    GUISetFont(9, "", "", "Comic Sans MS")
    $speed_label = GUICtrlCreateLabel("Toothydip Autoclicker"& @CRLF &  $ver & @CRLF & "Made by ToothyXdip" & @CRLF & "Autoit3", 15, 25)
    $Okbutton = GUICtrlCreateButton("Ok", 50, 110, 40, 20)
    GUISetFont(9)
    GUICtrlSetColor($speed_label, 0xffffff)
    GUISetState(@SW_SHOW)
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $Okbutton
                GUIDelete($info)
                ExitLoop
            Case $msg = $GUI_EVENT_CLOSE
                GUIDelete($info)
                ExitLoop
        EndSelect
    WEnd
EndFunc   ;==>helpinfo

Func helphelp()
    $help = GUICreate("Help", 150, 150, 0, 0)
    GUISetBkColor(0x000000)
    GUISetFont(9, "", "", "Comic Sans MS")
    $help_label = GUICtrlCreateLabel("Pick a speed and" & @CRLF & "Press F10 to start" & @CRLF & "or stop Autoclicker" & @CRLF & "Emergency Close:" & @CRLF & "Alt+Ctrl+c", 20, 20)
    $Okbutton2 = GUICtrlCreateButton("Ok", 50, 110, 40, 20)
    GUISetFont(9)
    GUICtrlSetColor($help_label, 0xffffff)
    GUISetState(@SW_SHOW)
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $Okbutton2 
                GUIDelete($help)
                ExitLoop
            Case $msg = $GUI_EVENT_CLOSE
                GUIDelete($help)
                ExitLoop
        EndSelect
    WEnd
EndFunc   ;==>helpinfo

Func speed_menu_setting_fast()
    GUICtrlSetState($fast_speed_checkbox, $GUI_CHECKED)
    GUICtrlSetState($speed_menu_setting_fast, $GUI_CHECKED)
    GUICtrlSetState($speed_menu_setting_medium, $GUI_UNCHECKED)
    GUICtrlSetState($speed_menu_setting_slow, $GUI_UNCHECKED)
EndFunc   ;==>speed_menu_setting_fast

Func speed_menu_setting_medium()
    GUICtrlSetState($medium_speed_checkbox, $GUI_CHECKED)
    GUICtrlSetState($speed_menu_setting_medium, $GUI_CHECKED)
    GUICtrlSetState($speed_menu_setting_fast, $GUI_UNCHECKED)
    GUICtrlSetState($speed_menu_setting_slow, $GUI_UNCHECKED)
EndFunc   ;==>speed_menu_setting_medium

Func speed_menu_setting_slow()
    GUICtrlSetState($slow_speed_checkbox, $GUI_CHECKED)
    GUICtrlSetState($speed_menu_setting_slow, $GUI_CHECKED)
    GUICtrlSetState($speed_menu_setting_fast, $GUI_UNCHECKED)
    GUICtrlSetState($speed_menu_setting_medium, $GUI_UNCHECKED)
EndFunc   ;==>speed_menu_setting_slow

Func onclick()
    GUICtrlSendToDummy($user)
EndFunc   ;==>onclick

Func title_textcolor_change()
    $num += 1
    $color = StringSplit("0x000000,0x111111,0x222222,0x333333,0x444444,0x555555,0x666666,0x777777,0x888888,0x999999,0xaaaaaa,0xbbbbbb,0xcccccc,0xdddddd,0xeeeeee,0xffffff,0xeeeeee,0xdddddd,0xcccccc,0xbbbbbb,0xaaaaaa,0x999999,0x888888,0x777777,0x666666,0x555555,0x444444,0x333333,0x222222,0x111111", ",")
    If $num > $color[0] Then $num = 1
    Return GUICtrlSetColor($title, $color[$num])
EndFunc   ;==>title_textcolor_change

Func Sendleftclick()
    If $F10OnOff Then MouseClick("Left")
EndFunc   ;==>Sendleftclick

Func _Sendleftclick()
    $F10OnOff = Not $F10OnOff
    If $Disabled Then
        GUICtrlSetState($fast_speed_checkbox, $GUI_ENABLE)
        GUICtrlSetState($medium_speed_checkbox, $GUI_ENABLE)
        GUICtrlSetState($slow_speed_checkbox, $GUI_ENABLE)
        GUICtrlSetData($status_label, "Autoclicker is Off")
        $Disabled = Not $Disabled
        Return
    EndIf
    If _IsChecked($fast_speed_checkbox) Then
        $speed_setting = 50
        GUICtrlSetState($medium_speed_checkbox, $GUI_DISABLE)
        GUICtrlSetState($slow_speed_checkbox, $GUI_DISABLE)
        GUICtrlSetData($status_label, "Autoclicker is On")
        GUICtrlSetState($speed_menu_setting_fast, $GUI_CHECKED)
        $Disabled = True
    ElseIf _IsChecked($medium_speed_checkbox) Then
        $speed_setting = 30
        GUICtrlSetState($fast_speed_checkbox, $GUI_DISABLE)
        GUICtrlSetState($slow_speed_checkbox, $GUI_DISABLE)
        GUICtrlSetData($status_label, "Autoclicker is On")
        GUICtrlSetState($speed_menu_setting_medium, $GUI_CHECKED)
        $Disabled = True
    ElseIf _IsChecked($slow_speed_checkbox) Then
        $speed_setting = 10
        GUICtrlSetState($medium_speed_checkbox, $GUI_DISABLE)
        GUICtrlSetState($fast_speed_checkbox, $GUI_DISABLE)
        GUICtrlSetData($status_label, "Autoclicker is On")
        GUICtrlSetState($speed_menu_setting_slow, $GUI_CHECKED)
        $Disabled = True
    EndIf
EndFunc   ;==>_Sendleftclick


Func _IsChecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Func XSkinGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight, $color)
    $color = 0Xffffff

    Local $XS_n, $PControl
    If StringInStr(@OSTYPE, "WIN32_NT") Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
    EndIf
    $PControl = GUICtrlCreateGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight)
    ;GUICtrlSetBkColor($PControl, $color1)
    GUICtrlSetColor($PControl, $color)
    If StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
    EndIf
    Return $PControl
EndFunc   ;==>XSkinGroup

ToothydipAC.exe


---╔╦═╗╔╗'''╔╗╔═╦═╗╔╦═╗---╝╠═╣╝║'''║╝╝''''''╝╝║'''......''''''''''''''''''''''''''''''---╔╩═╩═╩═╩═══╩═╦═╩═╩══╦══════╗''''╔╩════════════╩══╗╔══╩══╗╔══╝ ''''''''''''''''''''''''''''''''''''''''''''''''''''║║'''''''''''''''║║ ''''''''''''''''''''''''''''''''''''''''''''''╔══╝╚══╗''''''║║''''''''''''''''''''''''''''''''''''''''''''''╚══════╝''''''╚╝

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.