Hallo, ich habe mich einige Zeit mit Autoit Auseinander gesetzt und hab nun gedacht ich Löse ein kleines Spiel, das ich in HTML geschrieben habe.
An der Coordinate 682 473, ist ein Link welcher sofort nachdem er angeklickt wird verschwindet.
Ich öffne den Link in einem Neuen Tab. Auf dieser Seite ist dann entweder der Header Rot oder Grün. Wenn er Rot ist, läuft ein kleiner Countdown.
Um das warten zu verhindern, dachte ich soll er erst die nächsten Tabs überprüfen.
Aber mit meinem Script funktioniert etwas nicht.
Ich bitte euch, es mal anzuschauen und ggf. mir eine Problemlösung vorzuschlagen. Wehe es kommt einer und meint: RTFM!!!!111elevenone
Spoiler anzeigen
HotKeySet ( "A" , "start" )
Func start()
WinWaitActive("Bla") ; Hier kommt der Name des Fensters hin
$Red = 0xFF3366
$Orange = 0xFB773F
For $i = 1 to 1 Step 1 ; ----------------------------------
MouseClick ("Middle", 682, 473, 1) ; --------------------
next ; --------------------------------------------------
Sleep(500) ; --------------------------------------------
For $i = 1 to 1 Step 1 ; --------------------------------
MouseClick ("Middle", 682, 473, 1) ; --------------------
next ; --------------------------------------------------
Sleep(500) ; ------------------------------------------
For $i = 1 to 1 Step 1 ; --------------------------------
MouseClick ("Middle", 682, 473, 1) ; --------------------
next ; --------------------------------------------------
Sleep(500) ; ------------------------------------------
For $i = 1 to 1 Step 1 ; --------------------------------
MouseClick ("Middle", 682, 473, 1) ; --------------------
next ; --------------------------------------------------
Sleep(500) ; ------------------------------------------
For $i = 1 to 1 Step 1 ; --------------------------------
MouseClick ("Middle", 682, 473, 1) ; --------------------
next ; --------------------------------------------------
Sleep(500) ; ------------------------------------------
For $i = 1 to 1 Step 1 ; ------------------------------------------------------------------------------ Hier wird der 2te Tab angewählt
MouseClick ("Left", 258, 9, 1) ; ---------------------------------------------------------------------- Hier wird der 2te Tab angewählt
next ; ------------------------------------------------------------------------------------------------ Hier wird der 2te Tab angewählt
Sleep(500) ; ---------------------------------------------------------------------------------------- Hier wird der 2te Tab angewählt
While 1 ; -------------------------------------------------
$Coord = PixelSearch(0, 64, 1395, 71, $Red, 10) ; ----- Hier wird die Farbe Rot gesucht 1
If @error Then ; -------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
For $i = 1 to 1 Step 1 ; -------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
MouseClick ("Left", 383, 13, 1) ; ----------------- Findet er die Farbe Rot nicht, Schließt er den Tab
EndIf ; ------------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
Sleep(500) ; --------------------------------------
If Not @error Then ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Send("^{TAB}") ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
EndIf ; ------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Sleep(500) ; -------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
ExitLoop
WEnd ; ---------------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
While 2 ; -------------------------------------------------------------------------------------------
$Coord = PixelSearch(231, 100, 418, 182, $Orange, 10) ; ------------------------------------------
If Not @error Then ; ----------------------------------------------------------------------------
Send("^{TAB}") ; ----------------------------------------------------------------------------
EndIf ; -------------------------------------------------------------------------------------
Sleep(500) ; --------------------------------------------------------------------------------
ExitLoop
WEnd ; ----------------------------------------------------------------------------------------------
While 3 ; -------------------------------------------------
$Coord = PixelSearch(0, 64, 1395, 71, $Red, 10) ; ----- Hier wird die Farbe Rot gesucht 2
If @error Then ; -------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
For $i = 1 to 1 Step 1 ; -------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
MouseClick ("Left", 383, 13, 1) ; ----------------- Findet er die Farbe Rot nicht, Schließt er den Tab
EndIf ; ------------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
Sleep(500) ; --------------------------------------
If Not @error Then ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Send("^{TAB}") ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
EndIf ; ------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Sleep(500) ; -------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
ExitLoop
WEnd ; ---------------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
While 4 ; -------------------------------------------------------------------------------------------
$Coord = PixelSearch(231, 100, 418, 182, $Orange, 10) ; ------------------------------------------
If Not @error Then ; ----------------------------------------------------------------------------
Send("^{TAB}") ; ----------------------------------------------------------------------------
EndIf ; -------------------------------------------------------------------------------------
Sleep(500) ; --------------------------------------------------------------------------------
ExitLoop
WEnd ; ----------------------------------------------------------------------------------------------
While 5 ; -------------------------------------------------
$Coord = PixelSearch(0, 64, 1395, 71, $Red, 10) ; ----- Hier wird die Farbe Rot gesucht 3
If @error Then ; -------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
For $i = 1 to 1 Step 1 ; -------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
MouseClick ("Left", 383, 13, 1) ; ----------------- Findet er die Farbe Rot nicht, Schließt er den Tab
EndIf ; ------------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
Sleep(500) ; --------------------------------------
If Not @error Then ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Send("^{TAB}") ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
EndIf ; ------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Sleep(500) ; -------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
ExitLoop
WEnd ; ---------------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
While 6 ; -------------------------------------------------------------------------------------------
$Coord = PixelSearch(231, 100, 418, 182, $Orange, 10) ; ------------------------------------------
If Not @error Then ; ----------------------------------------------------------------------------
Send("^{TAB}") ; ----------------------------------------------------------------------------
EndIf ; -------------------------------------------------------------------------------------
Sleep(500) ; --------------------------------------------------------------------------------
ExitLoop
WEnd ; ----------------------------------------------------------------------------------------------
While 7 ; -------------------------------------------------
$Coord = PixelSearch(0, 64, 1395, 71, $Red, 10) ; ----- Hier wird die Farbe Rot gesucht 4
If @error Then ; -------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
For $i = 1 to 1 Step 1 ; -------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
MouseClick ("Left", 383, 13, 1) ; ----------------- Findet er die Farbe Rot nicht, Schließt er den Tab
EndIf ; ------------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
Sleep(500) ; --------------------------------------
If Not @error Then ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Send("^{TAB}") ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
EndIf ; ------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Sleep(500) ; -------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
ExitLoop
WEnd ; ---------------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
While 8 ; -------------------------------------------------------------------------------------------
$Coord = PixelSearch(231, 100, 418, 182, $Orange, 10) ; ------------------------------------------
If Not @error Then ; ----------------------------------------------------------------------------
Send("^{TAB}") ; ----------------------------------------------------------------------------
EndIf ; -------------------------------------------------------------------------------------
Sleep(500) ; --------------------------------------------------------------------------------
ExitLoop
WEnd ; ----------------------------------------------------------------------------------------------
While 9 ; -------------------------------------------------
$Coord = PixelSearch(0, 64, 1395, 71, $Red, 10) ; ----- Hier wird die Farbe Rot gesucht 5
If @error Then ; -------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
For $i = 1 to 1 Step 1 ; -------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
MouseClick ("Left", 383, 13, 1) ; ----------------- Findet er die Farbe Rot nicht, Schließt er den Tab
EndIf ; ------------------------------------------- Findet er die Farbe Rot nicht, Schließt er den Tab
Sleep(500) ; --------------------------------------
If Not @error Then ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Send("^{TAB}") ; ---------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
EndIf ; ------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
Sleep(500) ; -------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
ExitLoop
WEnd ; ---------------------------------------------------- Findet er die Farbe Sendet er STRG + TAB bzw. wechselt in den nächsten Tab
While 10 ; -------------------------------------------------------------------------------------------
$Coord = PixelSearch(231, 100, 418, 182, $Orange, 10) ; ------------------------------------------
If Not @error Then ; ----------------------------------------------------------------------------
Send("^{TAB}") ; ----------------------------------------------------------------------------
EndIf ; -------------------------------------------------------------------------------------
Sleep(500) ; --------------------------------------------------------------------------------
ExitLoop
WEnd ; ----------------------------------------------------------------------------------------------
EndFunc
MFG & Frohe Ostern
PS: Dies ist kein Bot, ich hab mir das mal in HTML geschrieben bzw. habe ich noch mehr Scripte um damit meine Kenntnisse auszubauen. Ich hab dieses Programm schoneinmal geschrieben vor ca. 6 Jahren in C++ jedoch war dies auch das einzigste weil mir mit dieser Sprache schnell die Lust verging.