Hallo zusammen,
ich bin neu hier im Forum.
Als Autodidakt im Bereich Programmiersprachen lese ich zwar schon länger mit, möchte jetzt aber meine erste Frage stellen:
Ich habe mir mittels der Funktion PixelChecksum ein SKript geschrieben, welches einen Telegram-Chat auf eingehende Nachrichten überwacht und jede neue Nachricht kopiert und an einen zweiten account weiterleitet. Dies ist ein reines Übungsscript und dient zunächst einmal nur dem Erlernen grundsätzlicher Funktionen.
Folgende Situation liegt vor:
Das Programm scannt den unteren Bildbereich auf Veränderungen und führt dann eine bestimmte Klickfolge durch, um den Text zu kopieren und anschließend weiter zu leiten.
Bei einem ersten Probelauf habe ich jedoch festgestellt, dass sich das Programm in eine Endlosschleife begibt und durchgehend Nachrichten verschickt. Bei jeder neuen Nachricht ändert sich zwar der Text, die ENdlosschleife bleibt jedoch. Leider habe ich wohl ein Brett vor dem Kopf und finde den Fehler (die Endloschleife) nicht. Deshalb hoffe ich auf eure fundierte UNterstützung
HotKeySet ("1","_start")
HotKeySet ("2","_pause")
HotKeySet ("3","_exit")
Global $go = 0
Func _start()
$go = 1
EndFunc
Func _pause()
$go = 0
EndFunc
Func _exit()
Exit
EndFunc
Func _search()
Local $iCheckSum = PixelChecksum(1120, 936, 1632, 952)
While $iCheckSum = PixelChecksum(1120, 936, 1632, 952)
Sleep(1000)
WEnd
MouseClick("right", 1124, 944) ;Rechtsklick auf neue Nachricht
Sleep (1000)
MouseClick("left", 1218, 787) ;Copy Text auswählen
Sleep (1000)
MouseClick("left", 971, 202) ; Ziel-Gruppe auswählen
Sleep (1000)
MouseClick("right", 1174, 989) ; Rechtsklick in Textfeld
Sleep (1000)
MouseClick("left", 1266, 846) ;Einfügen auswählen
Sleep (1000)
MouseClick("left", 1655, 984) ;Senden klicken
Sleep (1000)
MouseClick("left", 973, 140) ; Original-Chat auswählen
EndFunc
While 1
If $go = 1 Then
_search()
Else
Sleep(10)
EndIf
WEnd
Danke & Gruß Bucardo
Alles anzeigen