Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=......icon bot.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;Präprozessor anweisungen Start #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstants.au3> ;Präprozessor Anweisungen ende ;Erste Informationen start MyToolTip() HotKeySet("{F7}","endofbot") MyToolTip() MsgBox(0,"hi","Zum beenden F7 drücken!") MyToolTip() MsgBox(0,"hi","Willkommen beim universal anklick bot.") MyToolTip() MsgBox(0,"by","scripted by freddy23111996") MyToolTip() ;Erste Informationen Ende $kara = True $Form1 = GUICreate("Form1", 625, 445, 192, 124) $Label1 = GUICtrlCreateLabel("Universal Anklick-Bot v.1.5", 120, 24, 285, 33) GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Soll das Ziel nur verfolgt oder durchgängig angeklickt werden?", 48, 120, 527, 28) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Verfolgen", 80, 224, 161, 65, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("Verfolgen und anklicken", 326, 221, 161, 65, 0) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While $kara = True MyToolTip() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $verfolgen= "verfolgen" $kara = False Case $Button2 $verfolgen = "anklicken" $kara = False EndSwitch WEnd $kara = True GUISetState(@SW_HIDE) $Form2 = GUICreate("Geschwindigkeit", 491, 414, 245, 157) $Label1 = GUICtrlCreateLabel("Wie schnell soll verfolgt bzw. angeklickt werden?", 24, 0, 443, 28) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") $Slider1 = GUICtrlCreateSlider(96, 192, 321, 33) GUICtrlSetLimit(-1, 2, 0) $Label2 = GUICtrlCreateLabel("Langsam", 88, 168, 70, 24) GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("Mittel", 234, 167, 42, 24) GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("Schnell", 358, 163, 56, 24) GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif") $Label5 = GUICtrlCreateLabel("Achtung: Umso schneller umso ungenauer!!!", 56, 48, 381, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Bestätigen", 152, 304, 185, 81, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) $pli = 0 While $pli = 0 ;~ $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $wieschnell = GUICtrlRead($Slider1) If $wieschnell = 0 Then $gess = 1 ElseIf $wieschnell = 1 Then $gess = 3 Else $gess = 6 EndIf $pli = 1 EndSwitch WEnd GUISetState(@SW_HIDE) MyToolTip() MsgBox(0,"hi","So, du hast jetzt 5 sec zeit um den mauszeiger aud das objekt zu bewegen, das später verfolgt bzw. angeklickt werden soll") MyToolTip() Sleep(5000) MyToolTip() $mauspos = MouseGetPos() MyToolTip() $objcolor = PixelGetColor($mauspos[0],$mauspos[1]) MsgBox(0,"ok","Ok, das Objekt wurde eingelesen.") MyToolTip() MsgBox(0,"du","du hast jetzt 5 sekunden zeit den mauszeiger in die obere linke ecke des zu suchenden bereich zu bewegen!") MyToolTip() sleep(5000) MyToolTip() $search1 = MouseGetPos() MsgBox(0,"ok ","Ok, Die Koordinaten wurden eingelesen") MyToolTip() MsgBox(0,"du","du hast jetzt 5 sekunden zeit den mauszeiger in die untere rechte ecke des zu suchenden bereich zu bewegen!") MyToolTip() sleep(5000) MyToolTip() $search2 = MouseGetPos() MyToolTip() MsgBox(0,"ok ","Ok,die Koordinaten wurden eingelesen") MyToolTip() MsgBox(0,"los","Ok, starte jetzt das spiel und drücke F6") MyToolTip() HotKeySet("{F6}","lol") While 1 Sleep(500) MyToolTip() WEnd Func endofbot(); Beendet den Bot vollständig MsgBox(0,"copyright","Copyright by Freddy23111996") Exit EndFunc Func lol() bot($search1[0],$search1[1],$search2[0],$search2[1],$objcolor) EndFunc Func bot($search1,$search2,$search3,$search4,$color) ;Eigentliche verfolg bzw. anklick funktion While True Sleep(2) $bott = PixelSearch($search1,$search2,$search3,$search4,$color,1,3) ; Sucht nache dem ziel if IsArray ($bott) Then if $verfolgen = "anklicken" Then MouseClick("",$bott[0],$bott[1],1,15) Else MouseMove($bott[0],$bott[1],1) EndIf EndIf WEnd EndFunc Func MyToolTip() ; Erstellt damit nicht immer das stehen muss! ToolTip("Universal-Anklick-Bot Version 1.6 by Blacky | " & @HOUR & ":" & @MIN & ":" & @SEC & " ",0,0) EndFunc
Dauerhaft angemeldet bleiben?