Ninijaludek Posted April 7, 2022 Posted April 7, 2022 (edited) Hi, I need help in advance, thank you help me make this code #include <date.au3> ;=============================================================================== ; ; Description: Sets a wakeup time to wake it up if the system / computer is hibernating or standby ; Parameter(s): $Hour - Hour Values : 0-23 ; $Minute - Minutes Values: 0-59 ; $Day - Days Values : 1-31 (optional) ; $Month - Month Values : 1-12 (optional) ; $Year - Year Values : > 0 (optional) ; ; Requirement(s): DllCall ; Return Value(s): On Success - 1 ; On Failure - 0 sets @ERROR = 1 and @EXTENDED (Windows API error code) ; ; Error code(s): [url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/system_error_codes.asp]http://msdn.microsoft.com/library/default....error_codes.asp[/url] ; ; Author(s): Bastel123 aka Sebastian ; Note(s): - ; ;=============================================================================== func SetWakeUpTime($Hour,$Minute,$Day=@mday,$Month=@mon,$Year=@YEAR) $SYSTEMTIME = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort") $lpSYSTEMTIME = DllStructGetPtr($SYSTEMTIME) $LOCALFILETIME=DllStructCreate("dword;dword") $lpLOCALFILETIME = DllStructGetPtr($LOCALFILETIME) $DueTime=DllStructCreate("dword;dword") $lpDueTime=DllStructGetPtr($DueTime) DllStructSetData($SYSTEMTIME, 1, $Year) DllStructSetData($SYSTEMTIME, 2, $Month) DllStructSetData($SYSTEMTIME, 3, _DateToDayOfWeek($Year,$Month,$Day)-1) DllStructSetData($SYSTEMTIME, 4, $Day) DllStructSetData($SYSTEMTIME, 5, $Hour) DllStructSetData($SYSTEMTIME, 6, $Minute) DllStructSetData($SYSTEMTIME, 7, 0) DllStructSetData($SYSTEMTIME, 8, 0) $result = DllCall("kernel32.dll", "long", "SystemTimeToFileTime", "ptr", $lpSystemTime, "ptr", $lpLocalFileTime) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf $result = DllCall("kernel32.dll", "long", "LocalFileTimeToFileTime", "ptr", $lpLocalFileTime, "ptr", $lpLocalFileTime) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf $result = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", "") If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf DllCall("kernel32.dll", "none", "CancelWaitableTimer", "long",$result[0]) DllStructSetData($DueTime, 1, DllStructGetData($LocalFILETIME, 1)) DllStructSetData($DueTime, 2, DllStructGetData($LocalFILETIME, 2)) $result = DllCall("kernel32.dll", "long", "SetWaitableTimer", "long",$result[0], "ptr", $lpDueTime, "long", 1000, "long", 0, "long", 0, "long", true) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf return 1 EndFunc ;=============================================================================== ; ; Description: Set the computer in Hibernate or Standby Status ; Parameter(s): $Mode - Suspend mode : True=Hibernate, False=Suspend ; $Force - Force-Mode : True=the system suspends operation immediately ; False=FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to each application to request permission to suspend operation ; ; Requirement(s): DllCall ; ; Author(s): Bastel123 aka Sebastian ; Note(s): If the system does not support hibernate use the standby mode - ; ;=============================================================================== Func SetSuspend($mode=true,$force=true) $result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long",$mode, "long",$force, "long", false) EndFunc SetWakeUpTime(@HOUR,@min+2); wakeup the system in 2 minutes from now SetSuspend(); go to hibernate mode Sleep(30000) RabunekCioty() it was working in code func szpital()$result = _ImageSearch("szpital.bmp",1,$x1,$y1,60)if $result=1 Thenwyloguj() and here I would like that to be posted funcend so that I will give somewhere the functions of the hospital and it will work when it will have to be when I put the code above in a Fun hospital, then an error pops up kgg ==> "Func" statement has no matching "EndFunc".: Func SetWakeUpTime($Hour,$Minute,$Day=@mday,$Month=@mon,$Year=@YEAR) Edited April 7, 2022 by Jos
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 (edited) if it is impossible to pass this script to several places in the code Edited April 7, 2022 by Jos
Developers Jos Posted April 7, 2022 Developers Posted April 7, 2022 Please do not post these black boxed text. The posted script doesn't give that error but rather another one... so please post the right code. Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 I would like to insert the script in several places, then another error pops up or I can put it in a func hospital () script here endfunc when he gives the code in several places, an error pops up "C:\*******testing\PrisBotGui.au3" (145) : ==> Duplicate function name.: Func SetWakeUpTime($Hour,$Minute,$Day=@mday,$Month=@mon,$Year=@YEAR)
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 if I give in func hospital () code endfunc then an error pops up and I would like to invoke it in a function or several places ==> "Func" statement has no matching "EndFunc".:Func SetWakeUpTime($Hour,$Minute,$Day=@mday,$Month=@mon,$Year=@YEAR)
Developers Jos Posted April 7, 2022 Developers Posted April 7, 2022 (edited) Please simply post the total script that gives the error in a codebox. (look at how to post code ) Edited April 7, 2022 by Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 expandcollapse popup#cs ######################################################### ### ### ### KOD ZRODLOWY ### ### ROZDZIELCZOSC 1280x1024 ### ### Autor: NinjaLudek ### ### ### ######################################################### #ce #include <date.au3> #include "Toast.au3" #include <ImageSearch.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #include <Inet.au3> #include <MsgBoxConstants.au3> #include <TrayConstants.au3> #include <Inet.au3> Global $Paused HotKeySet("{F1}","pauze") HotKeySet("{ESC}", "TogglePause") #Region ### START Koda GUI section ### Form= $PrisBot = GUICreate("PrisBot", 337, 185, 192, 124) $PrisBot = GUICtrlCreateLabel("PrisBot by DisScript", 32, 0, 286, 33) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel(" F1 Wylaczenie bot'a", 56, 48, 232, 33) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel(" ESC/ESC Wstrzymanie/Kontynuacja dzialania bot'a", 56, 70, 232, 33) GUICtrlSetFont(-1, 7,400, 0, "MS Sans Serif") $Start = GUICtrlCreateButton("Start", 104, 120, 131, 41) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Sleep(2000) $wplatamin = IniRead("settings.ini","Wplata", "WplataMin", 1) ; Minimalna wplata do banku $wplatamax = IniRead("settings.ini","Wplata", "WplataMax", 1) ; Maksymalna wplata do banku $wyplata = IniRead("settings.ini","Wplata", "Wyplata", 1) $min = IniRead("settings.ini","Uspienie", "CzasMin", 10) ; Minimalny czas uspienia bota $max = IniRead("settings.ini","Uspienie", "CzasMax", 10) ; Maksymalny czas uspienia bota $odsmin = IniRead("settings.ini","Odswiezanie", "OdsMin", 10) $odsmax = IniRead("settings.ini","Odswiezanie", "OdsMax", 10) $LRMin = IniRead("settings.ini","LosowyRuchMyszka", "CzasRMin", 10) $LRMax = IniRead("settings.ini","LosowyRuchMyszka", "CzasRMax", 10) $clickMin = 112 ; minimalny czas po ktorym nastapi klik myszka $clickMax = 200 ; maksymalny czas po ktorym nastapi klik myszka $czasmin = 1700 $czasmax = 2467 $trening = IniRead("settings.ini","Trening", "Czas", 10) ; Czas uspienia bota do treningu $szpital = IniRead("settings.ini","Uspienie", "szpital", 10) $izolatka = IniRead("settings.ini","Uspienie", "izolatka", 10) $x1=0 $y1=0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Start While 1 ; LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() WEnd Func pauze() exit EndFunc Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Skrypt jest "Wstrzymany = SKRYPT NIE JEST URUCHOMIONY = nie otrzymasz kolejnego komunikatu, jeśli go nie wznowisz"',0,0) WEnd ToolTip("") EndFunc Func logowanie() ;#== LOGOWANIE Sleep(1455) MouseMove(1036, 88) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) ;1 MouseMove(IniRead("settings.ini","WyburServera", "Wybur", 10), IniRead("settings.ini","WyburServera", "Wybur1", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) Sleep (Random(3456, 4864)) $ND = PixelSearch(0,0,639, 711, 0x8C613B) If Not @error Then Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep (Random($odsmin, $odsmax)) Sleep (Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($odsmin, $odsmax)) EndIf $Wykrywanie = PixelSearch(0, 0,867, 615, 0xB4B4B4) If IsArray($Wykrywanie) = True Then Sleep(3500) Send("^+{DEL}");RESET Sleep(5989) MouseMove(813, 722);Czyszczenie MouseClick("left") Sleep (4000) Send("^{TAB}");Zamykanie Czyszczenia Sleep (Random($odsmin, $odsmax)) Send("{F5}");Odswiezanie Sleep (Random($odsmin, $odsmax)) MouseMove(1036, 88) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) ;1 MouseMove(IniRead("settings.ini","WyburServera", "Wybur", 10), IniRead("settings.ini","WyburServera", "Wybur1", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) szpital() izolatka() EndIf szpital() izolatka() EndFunc Func lvlCela() ;#== LVL , CELA Send("{F5}") Sleep (Random(4543, 5992)) $ND = PixelSearch(0,0,639, 711, 0x8C613B) If Not @error Then Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep (Random($odsmin, $odsmax)) Sleep (Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($odsmin, $odsmax)) EndIf $LVLUP = PixelSearch(0, 0, 1089, 281, 0xFF5C4A) If Not @error Then Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $LVLUP[0], $LVLUP[1], 1, 15) Sleep (Random($odsmin, $odsmax)) Sleep(Random(2757,3456)) $cela = PixelSearch(0, 0, 1094, 262, 0x641710) If Not @error Then Sleep(1923) Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $cela[0], $cela[1], 1, 15) Sleep (Random($odsmin, $odsmax)) EndIf $pixel = PixelSearch(0, 0, 1094, 262, 0x641710) If IsArray($pixel) = False Then EndIf EndIf EndFunc func wykrywanie1() ;#== CAPTACHA Sleep(Random(989,1323)) $ND = PixelSearch(0,0,639, 711, 0x8C613B) If Not @error Then Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep (Random($odsmin, $odsmax)) Sleep (Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($odsmin, $odsmax)) EndIf $Wykrywanie = PixelSearch(0, 0,976, 143, 0xB7B3B2) If Not @error Then Sleep(3500) Send("^+{DEL}");RESET Sleep(5992) MouseMove(813, 722);Czyszczenie MouseClick("left") Sleep (4000) Send("^{TAB}");Zamykanie Czyszczenia Sleep (Random($odsmin, $odsmax)) Send("{F5}");Odswiezanie Sleep (Random($odsmin, $odsmax)) MouseMove(1036, 88) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) ;1 MouseMove(IniRead("settings.ini","WyburServera", "Wybur", 10), IniRead("settings.ini","WyburServera", "Wybur1", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) Sleep (Random(6123, 7500)) Send("{F5}") Sleep (Random($odsmin, $odsmax)) $ND = PixelSearch(0,0,639, 711, 0x8C613B) If Not @error Then Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep (Random($odsmin, $odsmax)) Sleep (Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random(1896, 2998)) EndIf $LVLUP = PixelSearch(0, 0, 1089, 281, 0xFF5C4A) If Not @error Then Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $LVLUP[0], $LVLUP[1], 1, 15) Sleep (Random($odsmin, $odsmax)) $cela = PixelSearch(0, 0, 1094, 262, 0x641710) If Not @error Then Sleep(1923) Sleep (Random($clickMin, $clickMax)) MouseClick("Left", $cela[0], $cela[1], 1, 15) Sleep (Random($odsmin, $odsmax)) EndIf $pixel = PixelSearch(0, 0, 1094, 262, 0x641710) If IsArray($pixel) = False Then EndIf EndIf EndIf EndFunc Func cioty() ;#== CIOTY wykrywanie1() $pixel = PixelSearch(0, 0, 929, 431, 0x9FBA2F) If IsArray($pixel) = False Then Sleep (Random($czasmin, $czasmax)) MouseMove(716,150) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) wykrywanie1() MouseMove(632,570) ;Interesy Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) ;1 $pixel = PixelSearch(0, 0, 942, 447, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 1054, 470, 0x97B22E) If IsArray($pixel) = True Then MouseMove(1051, 441) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 927, 552, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 1052, 561, 0x97B22E) If IsArray($pixel) = True Then MouseMove(1052, 561) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 936, 667, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 1056, 665, 0x97B22E) If IsArray($pixel) = True Then MouseMove(1056, 665) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 1067, 802, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 947, 780, 0x97B22E) If IsArray($pixel) = True Then MouseMove(947, 780) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 1055, 787, 0x97B22E) If IsArray($pixel) = False Then EndIf wykrywanie1() MouseMove(595, 353) ;Przestepstwa cioty Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(1563,1798)) $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left",634, 679,1,39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = False Then EndIf EndIf EndFunc Func dilerka() ;#== DILERKA wykrywanie1() MouseMove(IniRead("settings.ini","Bank", "Bank", 10), IniRead("settings.ini","Bank", "Bank1", 10)) ; Wchodzenie do Banku Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) MouseMove(721, 530);Chowanie kasy Sleep (Random($clickMin, $clickMax)) MouseClick("left",221, 415,3) Sleep(1300) Send ($wyplata) Sleep (Random($odsmin, $odsmax)) MouseMove(IniRead("settings.ini","Transfer", "Transfer", 10), IniRead("settings.ini","Transfer", "Transfer1", 10)) ;Transfer Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($LRMin, $LRMax)) wykrywanie1() MouseMove(IniRead("settings.ini","Przestepstwo", "Przestepstwo2", 10), IniRead("settings.ini","Przestepstwo", "Przestepstwo1", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) MouseMove(677, 196) ; Wejscie do dilerki Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) $pixel = PixelSearch(675, 530, 736, 525, 0xFF0000) ; Wykrywanie dragu If IsArray($pixel) = True Then MouseClick("left",702, 527,1,34) Sleep (Random($clickMin, $clickMax)) Sleep(1405) EndIf $kupdrag1 = PixelSearch(0, 0,1068, 366, 0x8C613A) ; kupowanie dragu If Not @error Then MouseClick("left",1068, 366,1,34) Sleep (Random($clickMin, $clickMax)) Sleep(1604) EndIf ;11 $pixel = PixelSearch(752, 525, 815, 531, 0xFF0000) ; Wykrywanie dragu If IsArray($pixel) = True Then MouseClick("left",784, 532,1,34) Sleep (Random($clickMin, $clickMax)) Sleep(1700) EndIf $kupdrag2 = PixelSearch(0, 0,1067, 365, 0x8C613A); kupowanie dragu If Not @error Then MouseClick("left",1067, 365,1,34) Sleep (Random($clickMin, $clickMax)) Sleep(1545) EndIf $dill = PixelSearch(0, 0,1054, 544,0x9EB92F) ; Wykonanie dilerki If Not @error Then MouseClick("left",1054, 544,1,34) Sleep (Random($clickMin, $clickMax)) Sleep(1540) EndIf EndFunc Func bkboch() ;#== BANK z chowaniem kasy wykrywanie1() MouseMove(IniRead("settings.ini","Bank", "Bank", 10), IniRead("settings.ini","Bank", "Bank1", 10)) ;Wchodzenie do Banku Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) MouseMove(721, 530);Chowanie kasy Sleep (Random($clickMin, $clickMax)) MouseClick("left",221, 415,3) Sleep(1300) Send (Random($wplatamin, $wplatamax,1)) ; Ile ma byc wplacone do Banku Sleep (Random($odsmin, $odsmax)) MouseMove(IniRead("settings.ini","Transfer", "Transfer", 10), IniRead("settings.ini","Transfer", "Transfer1", 10)) ;Transfer Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($LRMin, $LRMax)) MouseMove(Random(0, @DesktopWidth), Random(0, @DesktopHeight)) ;Losowy ruch Sleep (Random($LRMin, $LRMax)) EndFunc Func silka() ;#== SILKA MouseMove(IniRead("settings.ini","Silownia", "Silownia", 10), IniRead("settings.ini","Silownia", "Silownia1", 10)) ;Silownia Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) wykrywanie1() MouseMove(IniRead("settings.ini","Trening", "Trening", 10), IniRead("settings.ini","Trening", "Trening1", 10)) ;Pompuj Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 600)) EndFunc Func sterydy() ;#== STERYDY MouseMove(IniRead("settings.ini","Menele", "Menele", 10), IniRead("settings.ini","Menele", "Menele1", 10)) ;Menele Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($odsmin, $odsmax)) $sterydy = PixelSearch(321, 910,395, 914, 0x98704B) If IsArray($sterydy) = True Then MouseClick("left",378, 911,1) Sleep (Random($clickMin, $clickMax)) Sleep(1545) EndIf EndFunc Func Przestepstwo() ;#== PRZESTEPSTWO wykrywanie1() MouseMove(IniRead("settings.ini","Przestepstwo", "Przestepstwo2", 10), IniRead("settings.ini","Przestepstwo", "Przestepstwo1", 10)) ; Wejscie do Przestepstwa Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) wykrywanie1() $Wykonanie = PixelSearch(0, 0, 929, 431, 0x9EB92F); Wykonanie Przestepstwa If IsArray($Wykonanie) = True Then MouseMove(IniRead("settings.ini","Fucha", "OffenseX", 10), IniRead("settings.ini","Fucha", "OffenseY", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($LRMin, $LRMax)) Sleep(Random(1345,2059)) wykrywanie1() $ZdobycieLVL = PixelSearch(0, 0, 1109, 262, 0x621710) If IsArray($ZdobycieLVL) = True Then MouseMove(1109, 262) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($LRMin, $LRMax)) Sleep(Random(1345,2059)) wykrywanie1() $Wykonanie = PixelSearch(0, 0, 929, 431, 0x9EB92F); Wykonanie Przestepstwa If IsArray($Wykonanie) = True Then MouseMove(IniRead("settings.ini","Fucha", "OffenseX", 10), IniRead("settings.ini","Fucha", "OffenseY", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($LRMin, $LRMax)) Sleep(Random(1345,2059)) EndIf EndIf EndIf EndFunc Func GangPrzestepstwo() ;#== WEJSCIE DO GANGU MouseMove(1005, 149) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) MouseMove(1010, 452,25) ; 1 Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) MouseMove(813, 518) ; 2 Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) $result = _ImageSearch("gangp.bmp",1,$x1,$y1,100) if $result=1 Then MouseMove($x1,$y1,28) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($czasmin, $czasmax)) EndIf EndFunc Func Wyloguj() ;#== WYLOGUJ MouseMove(IniRead("settings.ini","Wyloguj", "Wyloguj", 10), IniRead("settings.ini","Wyloguj", "Wyloguj1", 10)) Sleep (Random($clickMin, $clickMax)) MouseClick("left") Sleep (Random($odsmin, $odsmax)) Send("{F5}") EndFunc Func Fajki() ;#== FAJKI MouseClick("left",779, 623,1) Sleep(Random(768,976)) $Fajki = PixelSearch(953, 444,953, 444, 0xFFFEFF) If IsArray($Fajki) = True Then MouseClick("left",939, 491,1) Sleep (Random($clickMin, $clickMax)) Sleep(Random(356,565)) $Fajki = PixelSearch(0, 0,1098, 260,0xFF5C4A) If Not @error Then MouseClick("left",1099, 263,1) Sleep (Random($clickMin, $clickMax)) Sleep (Random($odsmin, $odsmax)) EndIf EndIf $Fajki = PixelSearch(0, 0,1098, 260,0xFF5C4A) If Not @error Then MouseClick("left",1099, 263,1) Sleep (Random($clickMin, $clickMax)) Sleep (Random($odsmin, $odsmax)) EndIf EndFunc Func Maryska() ;#== MARYSKA MouseClick("left", 677, 568,1) Sleep(Random(768,976)) $Maryska = PixelSearch (967, 443,971, 446,0xFFFEFF) If IsArray ($Maryska) = True Then MouseClick("left",945, 499,1) Sleep (Random($clickMin, $clickMax)) Sleep(Random(356,565)) $Maryska = PixelSearch(0, 0,1098, 260,0xFF5C4A) If Not @error Then MouseClick("left",1099, 263,1) Sleep (Random($clickMin, $clickMax)) Sleep (Random($odsmin, $odsmax)) EndIf EndIf $Maryska = PixelSearch(0, 0,1098, 260,0xFF5C4A) If Not @error Then MouseClick("left",1099, 263,1) Sleep (Random($clickMin, $clickMax)) Sleep (Random($odsmin, $odsmax)) EndIf EndFunc Func Alkohol();#== ALKOHOL MouseClick("left", 560, 584,1) Sleep(Random(768,976)) $Alkohol = PixelSearch (990, 444,997, 445,0xFFFEFF) If IsArray ($Alkohol) = True Then MouseClick("left",934, 492,1) Sleep (Random($clickMin, $clickMax)) Sleep(Random(356,565)) $Alkohol = PixelSearch(0, 0,1098, 260,0xFF5C4A) If Not @error Then MouseClick("left",1099, 263,1) Sleep (Random($clickMin, $clickMax)) Sleep (Random($odsmin, $odsmax)) EndIf EndIf $Alkohol = PixelSearch(0, 0,1098, 260,0xFF5C4A) If Not @error Then MouseClick("left",1099, 263,1) Sleep (Random($clickMin, $clickMax)) Sleep (Random($odsmin, $odsmax)) EndIf EndFunc Func FMA() ;#== FAJKI - MARYSKA - ALKOHOL Fajki() Maryska() Alkohol() EndFunc Func izolatka() ;#== IZOLATKA Sleep(Random(898,1000)) $result = _ImageSearch("izolatka1.bmp",1,$x1,$y1,60) if $result=1 Then wyloguj() Func SetWakeUpTime($Hour,$Minute,$Day=@mday,$Month=@mon,$Year=@YEAR) $SYSTEMTIME = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort") $lpSYSTEMTIME = DllStructGetPtr($SYSTEMTIME) $LOCALFILETIME=DllStructCreate("dword;dword") $lpLOCALFILETIME = DllStructGetPtr($LOCALFILETIME) $DueTime=DllStructCreate("dword;dword") $lpDueTime=DllStructGetPtr($DueTime) DllStructSetData($SYSTEMTIME, 1, $Year) DllStructSetData($SYSTEMTIME, 2, $Month) DllStructSetData($SYSTEMTIME, 3, _DateToDayOfWeek($Year,$Month,$Day)-1) DllStructSetData($SYSTEMTIME, 4, $Day) DllStructSetData($SYSTEMTIME, 5, $Hour) DllStructSetData($SYSTEMTIME, 6, $Minute) DllStructSetData($SYSTEMTIME, 7, 0) DllStructSetData($SYSTEMTIME, 8, 0) $result = DllCall("kernel32.dll", "long", "SystemTimeToFileTime", "ptr", $lpSystemTime, "ptr", $lpLocalFileTime) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf $result = DllCall("kernel32.dll", "long", "LocalFileTimeToFileTime", "ptr", $lpLocalFileTime, "ptr", $lpLocalFileTime) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf $result = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", "") If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf DllCall("kernel32.dll", "none", "CancelWaitableTimer", "long",$result[0]) DllStructSetData($DueTime, 1, DllStructGetData($LocalFILETIME, 1)) DllStructSetData($DueTime, 2, DllStructGetData($LocalFILETIME, 2)) $result = DllCall("kernel32.dll", "long", "SetWaitableTimer", "long",$result[0], "ptr", $lpDueTime, "long", 1000, "long", 0, "long", 0, "long", true) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf Sleep(10000) EndFunc Func SetSuspend($mode=False,$force=true) $result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long",$mode, "long",$force, "long", false) EndFunc SetWakeUpTime(@HOUR,@min+20); wakeup the system in 2 minutes from now SetSuspend(); go to hibernate mode Sleep(30000) RabunekCioty() EndIf EndFunc Func szpital() ;#== SZPITAL $result = _ImageSearch("szpital.bmp",1,$x1,$y1,60) if $result=1 Then wyloguj() _Toast_Hide() $sMsg = "Zostales pobity " & @CRLF & @CRLF $sMsg &= "Wyjdziesz po 1190 sekundach ( ok 20min)" & @CRLF & @CRLF $sMsg &= "Minelo sekund : " & @CRLF & @CRLF _Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10) $aRet = _Toast_Show(32, "Szpital", $sMsg, -1190, False) ConsoleWrite("Toast size: " & $aRet[0] & " x " & $aRet[1] & @CRLF) $hLabel = GUICtrlCreateLabel("", 230, 98, 40, 15, BitOR(0x1, 0x0200)) GUICtrlSetBkColor(-1, 0x0000FF) $iCount = 0 Do $iCount += 1 GUICtrlSetData($hLabel, StringFormat("%2s", $iCount)) Sleep(1000) Until $iCount = 1190 Or $hToast_Handle = 0 RabunekCioty() EndIf EndFunc Func CzasTreningu() ;#== CZAS TRENINGU _Toast_Hide() $sMsg = "TRENING ZACZNIE SIE" & @CRLF & @CRLF $sMsg &= "PO 495 SEKUNDACH = ( ok 8,5 min)" & @CRLF & @CRLF $sMsg &= "Minelo sekund : " & @CRLF & @CRLF _Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10) $aRet = _Toast_Show(32, "Trening", $sMsg, -495, False) ConsoleWrite("Toast size: " & $aRet[0] & " x " & $aRet[1] & @CRLF) $hLabel = GUICtrlCreateLabel("", 230, 98, 40, 15, BitOR(0x1, 0x0200)) GUICtrlSetBkColor(-1, 0x0000FF) $iCount = 0 Do $iCount += 1 GUICtrlSetData($hLabel, StringFormat("%2s", $iCount)) Sleep(1000) Until $iCount = 495 Or $hToast_Handle = 0 EndFunc Func CzasPrzestepstwa() ;#== CZAS PRZESTEPSTWA _Toast_Hide() $sMsg = "PRZESTEPSTWO ZACZNIE SIE" & @CRLF & @CRLF $sMsg &= "PO 390 SEKUNDACH = ( ok 6,5 min)" & @CRLF & @CRLF $sMsg &= "Minelo sekund : " & @CRLF & @CRLF _Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10) $aRet = _Toast_Show(32, "PRZESTEPSTWO", $sMsg, -390, False) ConsoleWrite("Toast size: " & $aRet[0] & " x " & $aRet[1] & @CRLF) $hLabel = GUICtrlCreateLabel("", 230, 98, 40, 15, BitOR(0x1, 0x0200)) GUICtrlSetBkColor(-1,0x0000FF) $iCount = 0 Do $iCount += 1 GUICtrlSetData($hLabel, StringFormat("%2s", $iCount)) Sleep(1000) Until $iCount = 390 Or $hToast_Handle = 0 EndFunc Func Trening() ;#== TRENING logowanie() lvlCela() ;sterydy() silka() Wyloguj() EndFunc Func LLSSDPBkbWT() ;#== RAZEM - CHOWA KASE logowanie() lvlCela() ;GangPrzestepstwo() ;sterydy() silka() ;dilerka() Przestepstwo() izolatka() bkboch() Wyloguj() CzasTreningu() Trening() CzasPrzestepstwa() EndFunc Func RabunekCioty() ;#== RABUNEK Z CIOTAMI logowanie() lvlCela() FMA() ;GangPrzestepstwo() ;sterydy() silka() ;dilerka() Przestepstwo() izolatka() cioty() bkboch() Wyloguj() CzasTreningu() Trening() CzasPrzestepstwa() EndFunc EndSwitch WEnd
Trong Posted April 7, 2022 Posted April 7, 2022 (edited) This is not the script you wrote, but for it to work it should look like this: expandcollapse popup#cs ######################################################### ### ### ### KOD ZRODLOWY ### ### ROZDZIELCZOSC 1280x1024 ### ### Autor: NinjaLudek ### ### ### ######################################################### #ce #include <date.au3> #include "Toast.au3" #include <ImageSearch.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #include <Inet.au3> #include <MsgBoxConstants.au3> #include <TrayConstants.au3> #include <Inet.au3> Global $Paused HotKeySet("{F1}", "pauze") HotKeySet("{ESC}", "TogglePause") #Region ### START Koda GUI section ### Form= $PrisBot = GUICreate("PrisBot", 337, 185, 192, 124) $PrisBot = GUICtrlCreateLabel("PrisBot by DisScript", 32, 0, 286, 33) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel(" F1 Wylaczenie bot'a", 56, 48, 232, 33) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel(" ESC/ESC Wstrzymanie/Kontynuacja dzialania bot'a", 56, 70, 232, 33) GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif") $Start = GUICtrlCreateButton("Start", 104, 120, 131, 41) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Sleep(2000) $wplatamin = IniRead("settings.ini", "Wplata", "WplataMin", 1) ; Minimalna wplata do banku $wplatamax = IniRead("settings.ini", "Wplata", "WplataMax", 1) ; Maksymalna wplata do banku $wyplata = IniRead("settings.ini", "Wplata", "Wyplata", 1) $min = IniRead("settings.ini", "Uspienie", "CzasMin", 10) ; Minimalny czas uspienia bota $max = IniRead("settings.ini", "Uspienie", "CzasMax", 10) ; Maksymalny czas uspienia bota $odsmin = IniRead("settings.ini", "Odswiezanie", "OdsMin", 10) $odsmax = IniRead("settings.ini", "Odswiezanie", "OdsMax", 10) $LRMin = IniRead("settings.ini", "LosowyRuchMyszka", "CzasRMin", 10) $LRMax = IniRead("settings.ini", "LosowyRuchMyszka", "CzasRMax", 10) $clickMin = 112 ; minimalny czas po ktorym nastapi klik myszka $clickMax = 200 ; maksymalny czas po ktorym nastapi klik myszka $czasmin = 1700 $czasmax = 2467 $trening = IniRead("settings.ini", "Trening", "Czas", 10) ; Czas uspienia bota do treningu $szpital = IniRead("settings.ini", "Uspienie", "szpital", 10) $izolatka = IniRead("settings.ini", "Uspienie", "izolatka", 10) $x1 = 0 $y1 = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Start Start() EndSwitch WEnd Func Start() While 1 ; LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() LLSSDPBkbWT() LLSSDPBkbWT() RabunekCioty() WEnd EndFunc ;==>Start Func pauze() Exit EndFunc ;==>pauze Func TogglePause() $Paused = Not $Paused While $Paused Sleep(100) ToolTip('Skrypt jest "Wstrzymany = SKRYPT NIE JEST URUCHOMIONY = nie otrzymasz kolejnego komunikatu, jeśli go nie wznowisz"', 0, 0) WEnd ToolTip("") EndFunc ;==>TogglePause Func logowanie() ;#== LOGOWANIE Sleep(1455) MouseMove(1036, 88) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) ;1 MouseMove(IniRead("settings.ini", "WyburServera", "Wybur", 10), IniRead("settings.ini", "WyburServera", "Wybur1", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) Sleep(Random(3456, 4864)) $ND = PixelSearch(0, 0, 639, 711, 0x8C613B) If Not @error Then Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep(Random($odsmin, $odsmax)) Sleep(Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($odsmin, $odsmax)) EndIf $Wykrywanie = PixelSearch(0, 0, 867, 615, 0xB4B4B4) If IsArray($Wykrywanie) = True Then Sleep(3500) Send("^+{DEL}") ;RESET Sleep(5989) MouseMove(813, 722) ;Czyszczenie MouseClick("left") Sleep(4000) Send("^{TAB}") ;Zamykanie Czyszczenia Sleep(Random($odsmin, $odsmax)) Send("{F5}") ;Odswiezanie Sleep(Random($odsmin, $odsmax)) MouseMove(1036, 88) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) ;1 MouseMove(IniRead("settings.ini", "WyburServera", "Wybur", 10), IniRead("settings.ini", "WyburServera", "Wybur1", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) szpital() izolatka() EndIf szpital() izolatka() EndFunc ;==>logowanie Func lvlCela() ;#== LVL , CELA Send("{F5}") Sleep(Random(4543, 5992)) $ND = PixelSearch(0, 0, 639, 711, 0x8C613B) If Not @error Then Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep(Random($odsmin, $odsmax)) Sleep(Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($odsmin, $odsmax)) EndIf $LVLUP = PixelSearch(0, 0, 1089, 281, 0xFF5C4A) If Not @error Then Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $LVLUP[0], $LVLUP[1], 1, 15) Sleep(Random($odsmin, $odsmax)) Sleep(Random(2757, 3456)) $cela = PixelSearch(0, 0, 1094, 262, 0x641710) If Not @error Then Sleep(1923) Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $cela[0], $cela[1], 1, 15) Sleep(Random($odsmin, $odsmax)) EndIf $pixel = PixelSearch(0, 0, 1094, 262, 0x641710) If IsArray($pixel) = False Then EndIf EndIf EndFunc ;==>lvlCela Func wykrywanie1() ;#== CAPTACHA Sleep(Random(989, 1323)) $ND = PixelSearch(0, 0, 639, 711, 0x8C613B) If Not @error Then Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep(Random($odsmin, $odsmax)) Sleep(Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($odsmin, $odsmax)) EndIf $Wykrywanie = PixelSearch(0, 0, 976, 143, 0xB7B3B2) If Not @error Then Sleep(3500) Send("^+{DEL}") ;RESET Sleep(5992) MouseMove(813, 722) ;Czyszczenie MouseClick("left") Sleep(4000) Send("^{TAB}") ;Zamykanie Czyszczenia Sleep(Random($odsmin, $odsmax)) Send("{F5}") ;Odswiezanie Sleep(Random($odsmin, $odsmax)) MouseMove(1036, 88) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) ;1 MouseMove(IniRead("settings.ini", "WyburServera", "Wybur", 10), IniRead("settings.ini", "WyburServera", "Wybur1", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) Sleep(Random(6123, 7500)) Send("{F5}") Sleep(Random($odsmin, $odsmax)) $ND = PixelSearch(0, 0, 639, 711, 0x8C613B) If Not @error Then Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $ND[0], $ND[1], 1, 15) Sleep(Random($odsmin, $odsmax)) Sleep(Random($clickMin, $clickMax)) MouseMove(1098, 260) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(1896, 2998)) EndIf $LVLUP = PixelSearch(0, 0, 1089, 281, 0xFF5C4A) If Not @error Then Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $LVLUP[0], $LVLUP[1], 1, 15) Sleep(Random($odsmin, $odsmax)) $cela = PixelSearch(0, 0, 1094, 262, 0x641710) If Not @error Then Sleep(1923) Sleep(Random($clickMin, $clickMax)) MouseClick("Left", $cela[0], $cela[1], 1, 15) Sleep(Random($odsmin, $odsmax)) EndIf $pixel = PixelSearch(0, 0, 1094, 262, 0x641710) If IsArray($pixel) = False Then EndIf EndIf EndIf EndFunc ;==>wykrywanie1 Func cioty() ;#== CIOTY wykrywanie1() $pixel = PixelSearch(0, 0, 929, 431, 0x9FBA2F) If IsArray($pixel) = False Then Sleep(Random($czasmin, $czasmax)) MouseMove(716, 150) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) wykrywanie1() MouseMove(632, 570) ;Interesy Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) ;1 $pixel = PixelSearch(0, 0, 942, 447, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 1054, 470, 0x97B22E) If IsArray($pixel) = True Then MouseMove(1051, 441) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 927, 552, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 1052, 561, 0x97B22E) If IsArray($pixel) = True Then MouseMove(1052, 561) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 936, 667, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 1056, 665, 0x97B22E) If IsArray($pixel) = True Then MouseMove(1056, 665) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 1067, 802, 0x97B22E) If IsArray($pixel) = False Then Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(1256) EndIf $pixel = PixelSearch(0, 0, 947, 780, 0x97B22E) If IsArray($pixel) = True Then MouseMove(947, 780) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 1055, 787, 0x97B22E) If IsArray($pixel) = False Then EndIf wykrywanie1() MouseMove(595, 353) ;Przestepstwa cioty Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(1563, 1798)) $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = True Then MouseMove(542, 759) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 500)) MouseClick("left", 634, 679, 1, 39) Sleep(567) EndIf $pixel = PixelSearch(0, 0, 542, 759, 0xA07851) If IsArray($pixel) = False Then EndIf EndIf EndFunc ;==>cioty Func dilerka() ;#== DILERKA wykrywanie1() MouseMove(IniRead("settings.ini", "Bank", "Bank", 10), IniRead("settings.ini", "Bank", "Bank1", 10)) ; Wchodzenie do Banku Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) MouseMove(721, 530) ;Chowanie kasy Sleep(Random($clickMin, $clickMax)) MouseClick("left", 221, 415, 3) Sleep(1300) Send($wyplata) Sleep(Random($odsmin, $odsmax)) MouseMove(IniRead("settings.ini", "Transfer", "Transfer", 10), IniRead("settings.ini", "Transfer", "Transfer1", 10)) ;Transfer Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($LRMin, $LRMax)) wykrywanie1() MouseMove(IniRead("settings.ini", "Przestepstwo", "Przestepstwo2", 10), IniRead("settings.ini", "Przestepstwo", "Przestepstwo1", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) MouseMove(677, 196) ; Wejscie do dilerki Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) $pixel = PixelSearch(675, 530, 736, 525, 0xFF0000) ; Wykrywanie dragu If IsArray($pixel) = True Then MouseClick("left", 702, 527, 1, 34) Sleep(Random($clickMin, $clickMax)) Sleep(1405) EndIf $kupdrag1 = PixelSearch(0, 0, 1068, 366, 0x8C613A) ; kupowanie dragu If Not @error Then MouseClick("left", 1068, 366, 1, 34) Sleep(Random($clickMin, $clickMax)) Sleep(1604) EndIf ;11 $pixel = PixelSearch(752, 525, 815, 531, 0xFF0000) ; Wykrywanie dragu If IsArray($pixel) = True Then MouseClick("left", 784, 532, 1, 34) Sleep(Random($clickMin, $clickMax)) Sleep(1700) EndIf $kupdrag2 = PixelSearch(0, 0, 1067, 365, 0x8C613A) ; kupowanie dragu If Not @error Then MouseClick("left", 1067, 365, 1, 34) Sleep(Random($clickMin, $clickMax)) Sleep(1545) EndIf $dill = PixelSearch(0, 0, 1054, 544, 0x9EB92F) ; Wykonanie dilerki If Not @error Then MouseClick("left", 1054, 544, 1, 34) Sleep(Random($clickMin, $clickMax)) Sleep(1540) EndIf EndFunc ;==>dilerka Func bkboch() ;#== BANK z chowaniem kasy wykrywanie1() MouseMove(IniRead("settings.ini", "Bank", "Bank", 10), IniRead("settings.ini", "Bank", "Bank1", 10)) ;Wchodzenie do Banku Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) MouseMove(721, 530) ;Chowanie kasy Sleep(Random($clickMin, $clickMax)) MouseClick("left", 221, 415, 3) Sleep(1300) Send(Random($wplatamin, $wplatamax, 1)) ; Ile ma byc wplacone do Banku Sleep(Random($odsmin, $odsmax)) MouseMove(IniRead("settings.ini", "Transfer", "Transfer", 10), IniRead("settings.ini", "Transfer", "Transfer1", 10)) ;Transfer Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($LRMin, $LRMax)) MouseMove(Random(0, @DesktopWidth), Random(0, @DesktopHeight)) ;Losowy ruch Sleep(Random($LRMin, $LRMax)) EndFunc ;==>bkboch Func silka() ;#== SILKA MouseMove(IniRead("settings.ini", "Silownia", "Silownia", 10), IniRead("settings.ini", "Silownia", "Silownia1", 10)) ;Silownia Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) wykrywanie1() MouseMove(IniRead("settings.ini", "Trening", "Trening", 10), IniRead("settings.ini", "Trening", "Trening1", 10)) ;Pompuj Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random(350, 600)) EndFunc ;==>silka Func sterydy() ;#== STERYDY MouseMove(IniRead("settings.ini", "Menele", "Menele", 10), IniRead("settings.ini", "Menele", "Menele1", 10)) ;Menele Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($odsmin, $odsmax)) $sterydy = PixelSearch(321, 910, 395, 914, 0x98704B) If IsArray($sterydy) = True Then MouseClick("left", 378, 911, 1) Sleep(Random($clickMin, $clickMax)) Sleep(1545) EndIf EndFunc ;==>sterydy Func Przestepstwo() ;#== PRZESTEPSTWO wykrywanie1() MouseMove(IniRead("settings.ini", "Przestepstwo", "Przestepstwo2", 10), IniRead("settings.ini", "Przestepstwo", "Przestepstwo1", 10)) ; Wejscie do Przestepstwa Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) wykrywanie1() $Wykonanie = PixelSearch(0, 0, 929, 431, 0x9EB92F) ; Wykonanie Przestepstwa If IsArray($Wykonanie) = True Then MouseMove(IniRead("settings.ini", "Fucha", "OffenseX", 10), IniRead("settings.ini", "Fucha", "OffenseY", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($LRMin, $LRMax)) Sleep(Random(1345, 2059)) wykrywanie1() $ZdobycieLVL = PixelSearch(0, 0, 1109, 262, 0x621710) If IsArray($ZdobycieLVL) = True Then MouseMove(1109, 262) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($LRMin, $LRMax)) Sleep(Random(1345, 2059)) wykrywanie1() $Wykonanie = PixelSearch(0, 0, 929, 431, 0x9EB92F) ; Wykonanie Przestepstwa If IsArray($Wykonanie) = True Then MouseMove(IniRead("settings.ini", "Fucha", "OffenseX", 10), IniRead("settings.ini", "Fucha", "OffenseY", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($LRMin, $LRMax)) Sleep(Random(1345, 2059)) EndIf EndIf EndIf EndFunc ;==>Przestepstwo Func GangPrzestepstwo() ;#== WEJSCIE DO GANGU MouseMove(1005, 149) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) MouseMove(1010, 452, 25) ; 1 Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) MouseMove(813, 518) ; 2 Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) $result = _ImageSearch("gangp.bmp", 1, $x1, $y1, 100) If $result = 1 Then MouseMove($x1, $y1, 28) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($czasmin, $czasmax)) EndIf EndFunc ;==>GangPrzestepstwo Func Wyloguj() ;#== WYLOGUJ MouseMove(IniRead("settings.ini", "Wyloguj", "Wyloguj", 10), IniRead("settings.ini", "Wyloguj", "Wyloguj1", 10)) Sleep(Random($clickMin, $clickMax)) MouseClick("left") Sleep(Random($odsmin, $odsmax)) Send("{F5}") EndFunc ;==>Wyloguj Func Fajki() ;#== FAJKI MouseClick("left", 779, 623, 1) Sleep(Random(768, 976)) $Fajki = PixelSearch(953, 444, 953, 444, 0xFFFEFF) If IsArray($Fajki) = True Then MouseClick("left", 939, 491, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random(356, 565)) $Fajki = PixelSearch(0, 0, 1098, 260, 0xFF5C4A) If Not @error Then MouseClick("left", 1099, 263, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random($odsmin, $odsmax)) EndIf EndIf $Fajki = PixelSearch(0, 0, 1098, 260, 0xFF5C4A) If Not @error Then MouseClick("left", 1099, 263, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random($odsmin, $odsmax)) EndIf EndFunc ;==>Fajki Func Maryska() ;#== MARYSKA MouseClick("left", 677, 568, 1) Sleep(Random(768, 976)) $Maryska = PixelSearch(967, 443, 971, 446, 0xFFFEFF) If IsArray($Maryska) = True Then MouseClick("left", 945, 499, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random(356, 565)) $Maryska = PixelSearch(0, 0, 1098, 260, 0xFF5C4A) If Not @error Then MouseClick("left", 1099, 263, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random($odsmin, $odsmax)) EndIf EndIf $Maryska = PixelSearch(0, 0, 1098, 260, 0xFF5C4A) If Not @error Then MouseClick("left", 1099, 263, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random($odsmin, $odsmax)) EndIf EndFunc ;==>Maryska Func Alkohol() ;#== ALKOHOL MouseClick("left", 560, 584, 1) Sleep(Random(768, 976)) $Alkohol = PixelSearch(990, 444, 997, 445, 0xFFFEFF) If IsArray($Alkohol) = True Then MouseClick("left", 934, 492, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random(356, 565)) $Alkohol = PixelSearch(0, 0, 1098, 260, 0xFF5C4A) If Not @error Then MouseClick("left", 1099, 263, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random($odsmin, $odsmax)) EndIf EndIf $Alkohol = PixelSearch(0, 0, 1098, 260, 0xFF5C4A) If Not @error Then MouseClick("left", 1099, 263, 1) Sleep(Random($clickMin, $clickMax)) Sleep(Random($odsmin, $odsmax)) EndIf EndFunc ;==>Alkohol Func FMA() ;#== FAJKI - MARYSKA - ALKOHOL Fajki() Maryska() Alkohol() EndFunc ;==>FMA Func izolatka() ;#== IZOLATKA Sleep(Random(898, 1000)) $result = _ImageSearch("izolatka1.bmp", 1, $x1, $y1, 60) If $result = 1 Then Wyloguj() SetWakeUpTime(@HOUR, @MIN + 20) ; wakeup the system in 2 minutes from now SetSuspend() ; go to hibernate mode Sleep(30000) RabunekCioty() EndIf EndFunc ;==>izolatka Func SetWakeUpTime($Hour, $Minute, $Day = @MDAY, $Month = @MON, $Year = @YEAR) $SYSTEMTIME = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort") $lpSYSTEMTIME = DllStructGetPtr($SYSTEMTIME) $LOCALFILETIME = DllStructCreate("dword;dword") $lpLOCALFILETIME = DllStructGetPtr($LOCALFILETIME) $DueTime = DllStructCreate("dword;dword") $lpDueTime = DllStructGetPtr($DueTime) DllStructSetData($SYSTEMTIME, 1, $Year) DllStructSetData($SYSTEMTIME, 2, $Month) DllStructSetData($SYSTEMTIME, 3, _DateToDayOfWeek($Year, $Month, $Day) - 1) DllStructSetData($SYSTEMTIME, 4, $Day) DllStructSetData($SYSTEMTIME, 5, $Hour) DllStructSetData($SYSTEMTIME, 6, $Minute) DllStructSetData($SYSTEMTIME, 7, 0) DllStructSetData($SYSTEMTIME, 8, 0) $result = DllCall("kernel32.dll", "long", "SystemTimeToFileTime", "ptr", $lpSYSTEMTIME, "ptr", $lpLOCALFILETIME) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf $result = DllCall("kernel32.dll", "long", "LocalFileTimeToFileTime", "ptr", $lpLOCALFILETIME, "ptr", $lpLOCALFILETIME) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf $result = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", "") If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf DllCall("kernel32.dll", "none", "CancelWaitableTimer", "long", $result[0]) DllStructSetData($DueTime, 1, DllStructGetData($LOCALFILETIME, 1)) DllStructSetData($DueTime, 2, DllStructGetData($LOCALFILETIME, 2)) $result = DllCall("kernel32.dll", "long", "SetWaitableTimer", "long", $result[0], "ptr", $lpDueTime, "long", 1000, "long", 0, "long", 0, "long", True) If $result[0] = 0 Then Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") SetExtended($lastError[0]) SetError(1) Return 0 EndIf Sleep(10000) EndFunc ;==>SetWakeUpTime Func SetSuspend($mode = False, $force = True) $result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long", $mode, "long", $force, "long", False) EndFunc ;==>SetSuspend Func szpital() ;#== SZPITAL $result = _ImageSearch("szpital.bmp", 1, $x1, $y1, 60) If $result = 1 Then Wyloguj() _Toast_Hide() $sMsg = "Zostales pobity " & @CRLF & @CRLF $sMsg &= "Wyjdziesz po 1190 sekundach ( ok 20min)" & @CRLF & @CRLF $sMsg &= "Minelo sekund : " & @CRLF & @CRLF _Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10) $aRet = _Toast_Show(32, "Szpital", $sMsg, -1190, False) ConsoleWrite("Toast size: " & $aRet[0] & " x " & $aRet[1] & @CRLF) $hLabel = GUICtrlCreateLabel("", 230, 98, 40, 15, BitOR(0x1, 0x0200)) GUICtrlSetBkColor(-1, 0x0000FF) $iCount = 0 Do $iCount += 1 GUICtrlSetData($hLabel, StringFormat("%2s", $iCount)) Sleep(1000) Until $iCount = 1190 Or $hToast_Handle = 0 RabunekCioty() EndIf EndFunc ;==>szpital Func CzasTreningu() ;#== CZAS TRENINGU _Toast_Hide() $sMsg = "TRENING ZACZNIE SIE" & @CRLF & @CRLF $sMsg &= "PO 495 SEKUNDACH = ( ok 8,5 min)" & @CRLF & @CRLF $sMsg &= "Minelo sekund : " & @CRLF & @CRLF _Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10) $aRet = _Toast_Show(32, "Trening", $sMsg, -495, False) ConsoleWrite("Toast size: " & $aRet[0] & " x " & $aRet[1] & @CRLF) $hLabel = GUICtrlCreateLabel("", 230, 98, 40, 15, BitOR(0x1, 0x0200)) GUICtrlSetBkColor(-1, 0x0000FF) $iCount = 0 Do $iCount += 1 GUICtrlSetData($hLabel, StringFormat("%2s", $iCount)) Sleep(1000) Until $iCount = 495 Or $hToast_Handle = 0 EndFunc ;==>CzasTreningu Func CzasPrzestepstwa() ;#== CZAS PRZESTEPSTWA _Toast_Hide() $sMsg = "PRZESTEPSTWO ZACZNIE SIE" & @CRLF & @CRLF $sMsg &= "PO 390 SEKUNDACH = ( ok 6,5 min)" & @CRLF & @CRLF $sMsg &= "Minelo sekund : " & @CRLF & @CRLF _Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10) $aRet = _Toast_Show(32, "PRZESTEPSTWO", $sMsg, -390, False) ConsoleWrite("Toast size: " & $aRet[0] & " x " & $aRet[1] & @CRLF) $hLabel = GUICtrlCreateLabel("", 230, 98, 40, 15, BitOR(0x1, 0x0200)) GUICtrlSetBkColor(-1, 0x0000FF) $iCount = 0 Do $iCount += 1 GUICtrlSetData($hLabel, StringFormat("%2s", $iCount)) Sleep(1000) Until $iCount = 390 Or $hToast_Handle = 0 EndFunc ;==>CzasPrzestepstwa Func Trening() ;#== TRENING logowanie() lvlCela() ;sterydy() silka() Wyloguj() EndFunc ;==>Trening Func LLSSDPBkbWT() ;#== RAZEM - CHOWA KASE logowanie() lvlCela() ;GangPrzestepstwo() ;sterydy() silka() ;dilerka() Przestepstwo() izolatka() bkboch() Wyloguj() CzasTreningu() Trening() CzasPrzestepstwa() EndFunc ;==>LLSSDPBkbWT Func RabunekCioty() ;#== RABUNEK Z CIOTAMI logowanie() lvlCela() FMA() ;GangPrzestepstwo() ;sterydy() silka() ;dilerka() Przestepstwo() izolatka() cioty() bkboch() Wyloguj() CzasTreningu() Trening() CzasPrzestepstwa() EndFunc ;==>RabunekCioty Edited April 7, 2022 by VIP Regards,
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 of course, I did not write the whole thing, but I wrote a little myself and I downloaded some solutions from the Internet, thanks to the great work
Solution Ninijaludek Posted April 7, 2022 Author Solution Posted April 7, 2022 work, I wrote a lot of things myself, but some of them are taken from ready scripts and made so that they work for me, these are: I found the computer to sleep, toast, etc. I worked on some scripts that were available thanks to VIP, the topic to be closed
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 Most of the sc I wrote the script myself, but there are things like I took it and I redoed everything legally
Moderators Melba23 Posted April 7, 2022 Moderators Posted April 7, 2022 Ninijaludek, Translating the various text elements of that script make me think it is game-related - is this the case? If so, then I refer you to the Forum rules, which clearly state that such threads are not permitted. If not, then please explain just why there are so many "gamebot" terms being used in the script. M23 P.S. And just to be absolutely clear - this is the Mod team determining the legality of the thread, so everyone else please keep out. Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Ninijaludek Posted April 7, 2022 Author Posted April 7, 2022 I Do not deny that I did not want to pass the entire code from all that I pasted. Delete the topic and sorry I don't want to Ban get it
Moderators Melba23 Posted April 7, 2022 Moderators Posted April 7, 2022 Ninijaludek, Thank you for being honest. No ban - but please respect those rules from now on. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Recommended Posts