Hallo,
Falls ich nicht im richtigen Forum bin - bitte verschieben - Danke.
EDIT: Mit richtigen Forum meine ich die Sektion nicht die Seite :-)
nach längerer Pause zocke ich wieder - und nun nicht wow sonst swtor.
Vor langer Zeit habe ich mal für WOW einen Fischbot optimiert (aber seit HB gibt eh nichts besseres) und da in SWTOR das Handwerk zwar einfach aber sehr zeitintensiv ist, wollte ich mit dafür auch nen kleinen Bot schreiben.
Ich habe das in der Firma geschrieben, da habe ich leider kein SWTOR und es funktionierte mit dem Erkennen von Windows Icons wunderbar. Doch gelingt es mir nicht mit AutoIt die Maustaste zu drücken.
Der Mauszeige fährt zwar z.B. zu "Ermittlerung" aber selbst bei 20 Mausklicks öffnet sich nichts.
Wird das irgendwie umgeleitet? Wem es interessiert, daß ist die Rohfassung:
(Koordinaten stimmen nicht)
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author: aprisma
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
;Opt("MouseCoordMode", 1) ;1=absolut, 0=relativ, 2=client
;warte auf das Fenster mit dem Namen SWTOR
WinWaitActive("[SWTOR]")
;für die Koordinatensuche Maustool auf Windows umstellen
$a = 1
For $a = 1 to 5
MouseClick ("left" , 65, 238, 1) ;klickt 2x auf Missionsfähigkeit
sleep (3000) ;wartet 3 Sekunden
mouseclick ("left", 1400, 300, 1) ;klickt 2x auf die Mission
;sleep (180000) ;wartet 3 Minuten
sleep(3000)
;Send("{W 2}") ;drückt 2x die Taste W
; Anmerkung: check ob "ist nicht am Platz" auch mit a (drehen) verschwindet
;Finde einen roten Pikel innerhalb des Rechteckes der Koordinaten
;Sucht bis die OK Meldung der Mission erscheint
while True
Local $ok = PixelSearch(15, 395, 102, 903, 0xBA0000,5)
if isarray($ok) = true Then
Sleep(5000)
mouseclick ("right", $ok[0],$ok[1], 1) ;klickt auf OK und schliesst das Fenster
ExitLoop
EndIf
WEnd
MsgBox(4096, "Fertig", "Das ist Durchgang" & $a, 10)
$ok = 0 ;variable wird auf 0 gesetzt
Next
Hat einer ne Idee?
Danke und möge die Macht mit euch sein.
Aprisma
Falls ich nicht im richtigen Forum bin - bitte verschieben - Danke.
EDIT: Mit richtigen Forum meine ich die Sektion nicht die Seite :-)
nach längerer Pause zocke ich wieder - und nun nicht wow sonst swtor.
Vor langer Zeit habe ich mal für WOW einen Fischbot optimiert (aber seit HB gibt eh nichts besseres) und da in SWTOR das Handwerk zwar einfach aber sehr zeitintensiv ist, wollte ich mit dafür auch nen kleinen Bot schreiben.
Ich habe das in der Firma geschrieben, da habe ich leider kein SWTOR und es funktionierte mit dem Erkennen von Windows Icons wunderbar. Doch gelingt es mir nicht mit AutoIt die Maustaste zu drücken.
Der Mauszeige fährt zwar z.B. zu "Ermittlerung" aber selbst bei 20 Mausklicks öffnet sich nichts.
Wird das irgendwie umgeleitet? Wem es interessiert, daß ist die Rohfassung:
(Koordinaten stimmen nicht)
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author: aprisma
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
;Opt("MouseCoordMode", 1) ;1=absolut, 0=relativ, 2=client
;warte auf das Fenster mit dem Namen SWTOR
WinWaitActive("[SWTOR]")
;für die Koordinatensuche Maustool auf Windows umstellen
$a = 1
For $a = 1 to 5
MouseClick ("left" , 65, 238, 1) ;klickt 2x auf Missionsfähigkeit
sleep (3000) ;wartet 3 Sekunden
mouseclick ("left", 1400, 300, 1) ;klickt 2x auf die Mission
;sleep (180000) ;wartet 3 Minuten
sleep(3000)
;Send("{W 2}") ;drückt 2x die Taste W
; Anmerkung: check ob "ist nicht am Platz" auch mit a (drehen) verschwindet
;Finde einen roten Pikel innerhalb des Rechteckes der Koordinaten
;Sucht bis die OK Meldung der Mission erscheint
while True
Local $ok = PixelSearch(15, 395, 102, 903, 0xBA0000,5)
if isarray($ok) = true Then
Sleep(5000)
mouseclick ("right", $ok[0],$ok[1], 1) ;klickt auf OK und schliesst das Fenster
ExitLoop
EndIf
WEnd
MsgBox(4096, "Fertig", "Das ist Durchgang" & $a, 10)
$ok = 0 ;variable wird auf 0 gesetzt
Next
Hat einer ne Idee?
Danke und möge die Macht mit euch sein.
Aprisma
