[autoIT] Need Help (Anfaenger)

[WieMeinen]

Hi, ich bin seit kurzem am coden mit autoIT und habe da auch schon ein Projekt, dass ich teils auch schon fertig habe.

Das Projekt ist ein Tool für Warcraft3 bzw. DotA Spieler, die über Garena spielen.

Es beinhaltet bis jetzt:
-automatisches Starten und Login von Garena
-Ansage des Modes, wenn ein Spieler das Game joint (als Host)
-Eingabe des Modes nach Spielstart (als Host)

Und hier ist der neue Code:

;Script von Philipp Keil
;;HostHelper v0.8
;;;Garena autostart funktioniert nicht

#include <String.au3>
#include <file.au3>
#include <misc.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


HotKeySet ("{F5}", "StartCountdown")
HotKeySet ("{F6}", "StopCountdown")
HotKeySet ("{F7}", "Mode")
HotKeySet ("{F8}", "End")
$file = "daten.txt"
If FileReadLine ($file,1) = "" then
$name = Inputbox ("HostHelper","Dein Login Nick?")
$Pass = InputBoX ("HostHelper","dein Passwort?","","*")
$Pfad = InputBoX ("HostHelper","Pfad zur Garena.exe","C:\Programme\Garena")
$crypt_name =_StringEncrypt(1,$name,"946699")
$crypt_pass =_StringEncrypt(1,$Pass,"946699")
FileWrite ($file, "")
_FileWriteToLine ($file, 1, $crypt_name, 1)
_FileWriteToLine ($file, 2, $crypt_pass, 1)
_FileWriteToLine ($file, 3, $Pfad, 1)
EndIf
$crypt_name2 = FileReadLine ($file, 1)
$crypt_pass2 = FileReadLine ($file, 2)
$name2 =_StringEncrypt(0,$crypt_name2,"946699")
$pass2 =_StringEncrypt(0,$crypt_pass2,"946699")
$Pfad = FileReadLine ($file, 3)

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\philipp keil\desktop\hosthelper\hosthelpergui.kxf
$Form1_1 = GUICreate("HostHelper", 493, 413, 488, 177)
$HostHelperv0_9 = GUICtrlCreateLabel("HostHelperv0.9", 71, 16, 342, 60)
GUICtrlSetFont(-1, 30, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x008080)
$Group1 = GUICtrlCreateGroup("Garena", 136, 144, 177, 233)
$Nick = GUICtrlCreateInput($name2, 152, 192, 121, 21)
$Nick_Name = GUICtrlCreateLabel("Nick Name", 152, 168, 69, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$Passwort = GUICtrlCreateLabel("Passwort", 152, 224, 60, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$Passwort1 = GUICtrlCreateInput("*******************", 152, 248, 121, 21)
$Pfad_zur_garena_exe = GUICtrlCreateLabel("Pfad zur garena.exe", 160, 296, 121, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$Pfad = GUICtrlCreateInput($pfad, 152, 320, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start Tools", 56, 152, 75, 225, $WS_GROUP)
$Hotkeys = GUICtrlCreateLabel("Hotkeys:", 312, 152, 57, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$F5 = GUICtrlCreateLabel("Start Game = F5", 314, 176, 101, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$F7 = GUICtrlCreateLabel("Modeingabe = F7", 314, 200, 103, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$F8 = GUICtrlCreateLabel(" Beenden = F8", 311, 224, 88, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$Modusangabe = GUICtrlCreateGroup("Modusangabe", 336, 280, 137, 97)
$mod1 = GUICtrlCreateInput("", 344, 336, 121, 21)
GUICtrlCreateLabel("Modus des Spiels?", 344, 312, 115, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1

if $mod1 = "1" then $mod1 = "APSO"
if $mod1 = "2" then $mod1 = "SDSO"

while 1
sleep (100)
WEnd

Func StartCountdown()
send ("MODE IS ")
send ("{enter}")
send ("-" & $mod1)
send ("{enter}")
sleep (5000)
send ("10")
send ("{enter}")
sleep (1000)
send ("9")
send ("{enter}")
sleep (1000)
send ("8")
send ("{enter}")
sleep (1000)
send ("7")
send ("{enter}")
sleep (1000)
send ("6")
send ("{enter}")
MouseMove (1110, 839)
MouseClick ( "left")
sleep (3800)
send ("{enter}")
EndFunc

Func StopCountdown()
while 1
sleep (100)
WEnd
EndFunc

while 1
sleep (100)
WEnd

Func Mode()
send ("{enter}")
send ("-" & $mod1)
send ("{enter}")
EndFunc

Func End()
Exit
EndFunc

Exit
EndSwitch
WEnd

Jetzt habe ich aber ein paar Probleme:

1. GelöstWenn ich ihm sage er soll Garena starten, dann macht er einfach garnichts.

run ("garena.exe",$pfad2)
send ($name2)
send ("{TAB}")
send ($pass2)
send ("{enter}")

Die Variable ist in diesem Fall : C:\Programme\Garena

2.Gelöst Ich frage mich, ob autoIT erkennen kann, dass das Laden der Map abgeschlossen ist.
Ich hab mir gedacht solbald die Farbe eines bestimmten Pixels sich ändert, soll er den Mod eingeben, aber ich weiß nicht wie ich es schreiben soll. Viell. mit einer IF-Abfrage?

3. Kann autoIT erkennen, dass Spieler ins Spiel eingetreten sind und dann automatisch den Mode in den Chat schreiben?

4. GelöstWie ich es schreiben soll, dass wenn der User in der MessageBoX "Ja" gedrückt hat, er erst mit etwas anderem weiter machen soll?
So dachte ich es mir :

msgBoX (4, "HostHelper", "Garena starten?")

If msgBoX = 8 then

run ("garena.exe",$pfad2)
send ($name2)
send ("{TAB}")
send ($pass2)
send ("{enter}")
EndFunc

Ich hoffe mir kann schnell jemand helfen, denn ich hab grad langeweile und brauch was zum denken.
MfG WaYnE

[Crrrespo]

1)
Er findet die Exe nicht. Pack die garana.exe mal in den Ordner mit dem Script.

2)


3) Versteh ich nicht. :/

[MoepMeep]

Das ist nicht die autoit section. Und setz deinen 'code' gefälligst in code-tags.

[Shadow992]

Originally Posted by Crrrespo

1)
Er findet die Exe nicht. Pack die garana.exe mal in den Ordner mit dem Script.

2)


3) Versteh ich nicht. :/

1) Benutz statt Run(...) lieber ShellExecute(...)

2)

3) Klar gibt es möglichkeiten das zu verwirklichen ...
Z.B. mit Pixelsearch (auf deinem Nivaeu wird das aber nix und erst recht nix mit Memories , also schmink dir das erstmal ab )

Btw Ich hab auch Garena

[Kazaaa]

Originally Posted by oOWaYnEOo

3. Kann autoIT erkennen, dass Spieler ins Spiel eingetreten sind und dann automatisch den Mode in den Chat schreiben?

While 1 ; damit es nach dem ersten mal nicht aufhört
Do ;Tu folgendes:
$Suche = pixelgetcolor (***, yyy) ;Sucht die Pixelfarbe am Punkt ***, yyy raus
sleep (150) ; "Schläft" 150 millisekunden, da sonst zu CPU-lastig
until $suche = 0x0000 (dein Farbwert) ;(tu folgendes:) bis deine suche den Farbwert 0x0000 hat
WEnd ; wegen While 1 nötig

€dit: den Code hab ich mir grad mal aus nem anderen Thread geklaut weil der Tab noch offen war
Damit solltest dir den "Checker" ob die Map geladen ist basteln können

[WieMeinen]

Ok, schon mal ein großes Dankeschön an alle, die mir geantwortet haben.
@Shadow992: Es funktioniert jez mit "shellexecute"

If $answer = 6 then
shellexecute ("garena.exe", "", "C:\Programme\Garena")
winwaitActive ("Login")
sleep (300)
send ($name2)
send ("{TAB}")
send ($pass2)
send ("{enter}")
EndIf

@Kazaaa: Muss er jedesmal neu den Punkt suchen?
Man könnte es doch auch so schreiben:

$Suche = pixelgetcolor (***, yyy)
Do
sleep (100)
until $suche = 0x0000
WEnd

oder?
Egal, trotzdem dankeschön an alle die mir geholfen haben.

[AllesVergeben]

Originally Posted by oOWaYnEOo

@Kazaaa: Muss er jedesmal neu den Punkt suchen?
Man könnte es doch auch so schreiben:

oder?
Egal, trotzdem dankeschön an alle die mir geholfen haben.

Nein, da es sonst nur einmal nach dem Pixel sucht und dann gleich in der Schleife hängt, wenn er den Pixel beim ersten mal nicht gefunden hat. Danach geht dann garnichts mehr, das heißt, dann kommt er nicht mehr aus der Do Until Schleife raus.

(Funktion Do Until ist eine Art Schleife, die ausgeführt wird, bis eine Bedingung erfüllt ist -> Wenn sie nie erfüllt wird, dann kein Ende)

[WieMeinen]

So schlecht bin ich auch net, dass ich net weiß was eine Do until-Schleife ist.
Hab hier noch ne neue Frage, kann man Passwörter auch anders verschlüsseln als mit
"_StringEncrypt"?
Weil ich hab es jez so gemacht:

If FileReadLine ($file,1) = "" then
$name = Inputbox ("HostHelper","Dein Login Nick?")
$Pass = InputBoX ("HostHelper","dein Passwort?","","*")
$crypt_name =_StringEncrypt(1,$name,"946699")
$crypt_pass =_StringEncrypt(1,$Pass,"946699")
FileWrite ($file, "")
_FileWriteToLine ($file, 1, $crypt_name, 1)
_FileWriteToLine ($file, 2, $crypt_pass, 1)
EndIf

Und wie kann ich die Farbe mit dem Windowinfo sehen, wenn ich das Spiel offen habe?
Es gibt leider keinen Fenstermodus.....

[Kazaaa]

Originally Posted by oOWaYnEOo

Und wie kann ich die Farbe mit dem Windowinfo sehen, wenn ich das Spiel offen habe?
Es gibt leider keinen Fenstermodus.....

Strg+Alt+F sollte den Punkt den du mit der Maus angewählt hast freezen damit du ihn dann ausm WindowInfo auslesen kannst

[WieMeinen]

Hi, so ich hab ne neue Frage, wenn man eine GUI macht und schreibt:

$mod1 = GUICtrlCreateInput("Apso", 344, 336, 121, 21)

dann ist $mod1 nicht das in den Input eingetragene.
Wollte fragen, wie man es hinbekommt, dass $mod1 immer das ist, was eingetragen wird.

[Crrrespo]

PHP Code:

$HELMK = GUICtrlCreateInput("Beliebiger Text", 184, 280, 33, 21)
send(GUICtrlRead($HELMK)) 


Bei mir wird "Beliebiger Text" gesendet. (ich hoffe das war es was du meinst )

[WieMeinen]

Nicht ganz, also wenn man eine GUI hat und in der GUI was einträgt in die inputbox, dann auf den Startbutton geht und, dass dann später das was in input
stand gesendet wird.
Bei mir sendet er dann nur das was am Anfang drin stand. Also das Voreingestellte (in meinem Fall "Apso")

[WieMeinen]

K, das Problem ist gelöst.

Jez muss ich nur rausfinden, wie das Tool erkennt, dass Spieler ins Spiel gejoint sind.

Also Pixelgetcolor funktioniert nicht, da sich nichts ändert außer dass der Name da steht.

Gibt es noch andere Möglichkeiten?