toothyXdip Posted November 7, 2007 Share Posted November 7, 2007 (edited) 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 expandcollapse popupGlobal $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 ;==>XSkinGroupToothydip_Ac.exe Edited November 7, 2007 by toothyXdip ---╔╦═╗╔╗'''╔╗╔═╦═╗╔╦═╗---╝╠═╣╝║'''║╝╝'''║'''╝╝║'''║......║'''║'''║'''║'''''''''║'''''''''║'''║---╔╩═╩═╩═╩═══╩═╦═╩═╩══╦══════╗''''╔╩════════════╩══╗╔══╩══╗╔══╝ ''''╝''''''''''''''''''''''''''''''''''''''''''''''''║║'''''''''''''''║║ ''''''''''''''''''''''''''''''''''''''''''''''╔══╝╚══╗''''''║║''''''''''''''''''''''''''''''''''''''''''''''╚══════╝''''''╚╝ Link to comment Share on other sites More sharing options...
toothyXdip Posted November 11, 2007 Author Share Posted November 11, 2007 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 expandcollapse popupGlobal $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 ;==>XSkinGroupToothydipAC.exe ---╔╦═╗╔╗'''╔╗╔═╦═╗╔╦═╗---╝╠═╣╝║'''║╝╝'''║'''╝╝║'''║......║'''║'''║'''║'''''''''║'''''''''║'''║---╔╩═╩═╩═╩═══╩═╦═╩═╩══╦══════╗''''╔╩════════════╩══╗╔══╩══╗╔══╝ ''''╝''''''''''''''''''''''''''''''''''''''''''''''''║║'''''''''''''''║║ ''''''''''''''''''''''''''''''''''''''''''''''╔══╝╚══╗''''''║║''''''''''''''''''''''''''''''''''''''''''''''╚══════╝''''''╚╝ Link to comment Share on other sites More sharing options...
ashley Posted November 11, 2007 Share Posted November 11, 2007 (edited) Nice good jobi have made one, its a little more custimizable then yours take a look, here Edited November 11, 2007 by ashley Free icons for your programs Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now