AutoIT Send key´s to minimierten Window

[Supermgking]

Hallo liebe epvp com
Brauche dringend hilfe will ein BoT mache wie jeder andere
aber was ich will :
Wenn ich starte soll er z.B 4,y,{SPACE},q,e
an das fenster senden obwohl das fenster nicht sichtbar oder minimiert
ist habe es mit dem Code :

 Spoiler

#RequireAdmin
Local $hWnd = WinGetHandle("Celestial World 2.0")
ProcessGetStats ("metin2client.bin")
while 1
ControlSend ( $hWnd, "", "", "{4}")
Opt("SendKeyDownDelay", 500)
Wend

Brauche hilfe dringend bin auch über Skype erreichbar : supermgking

[alpines]

Du kannst keine Tasten an minimierte Fenster senden da diese nicht gerendert werden. Du könntest aber versuchen sie außerhalb des Bildbereiches zu schieben und dann etwas dorthin zu senden.

[Supermgking]

schade trotzdem danke für deine schnelle hilfe
kannst du mir sagen warum bei mir nicht pause und ende funktioniert?

 Spoiler

#RequireAdmin
HotKeySet("p", "Pause") ; Bei drücken von "p" dann Pause
HotKeySet("x", "Ende") ;Bei drücken von "x" dann Ende
$Pause = 0

while 1
send ("q")
sleep ("1")
send ("{space}")
sleep ("1")
send ("q")
sleep ("1")
send ("y^")
sleep (1)
sleep (1)
send ("q")
sleep ("1")
send ("{space}")
sleep ("1")
send ("q")
sleep ("1")
send ("4")
sleep (1)
send ("q")
sleep ("1")
send ("{space}")
sleep ("1")
send ("q")
sleep ("1")
wend

[alpines]

Aus dem Grund weil du keine Funktionen definiert hast die Pause und Ende heißen.

[Supermgking]

Also muss ich Func Pause
Func Ende so schreiben?

[Devsome]

Bei dir würde es Funktionieren wenn du p oder x gedrückt halten würdest, sofern die Funktionen existieren würden :3
Ich würde dir eher zu raten.

Habe auf dem Mac kein AutoIt drauf, daher kann ich das leider nicht testen.
Sollte so oder so ähnlich klappen

#RequireAdmin

HotKeySet("p", "Pause")
HotKeySet("x", "Ende")
$pause = false;
AdlibRegister("start", 25) ; Jede 25ms wird die Funktion ausgeführt


While 1
	sleep(250); wartet 250ms
WEnd

Func Pause()
	If $pause = False Then ; Schaut ob die Funktion gestartet ist oder nicht
		AdlibUnRegister("start") ; Funktion start wird hier pausiert
	Else
		AdlibRegister("start", 25) ; Jede 25ms wird die Funktion ausgeführt
	EndIf
EndFunc

Func Ende()
	AdlibUnRegister("start") ; siehe oben
	Exit 0 ; Beendet dein Programm
EndFunc

Func start()
	send ("q")
	sleep ("1")
	send ("{space}")
	sleep ("1")
	send ("q")
	sleep ("1")
	send ("y^")
	sleep (1)
	sleep (1)
	send ("q")
	sleep ("1")
	send ("{space}")
	sleep ("1")
	send ("q")
	sleep ("1")
	send ("4")
	sleep (1)
	send ("q")
	sleep ("1")
	send ("{space}")
	sleep ("1")
	send ("q")
	sleep ("1")

EndFunc

[Moope]

Originally Posted by Supermgking

Also muss ich Func Pause
Func Ende so schreiben?

wenn ich dir was vorschlagen darf:

mit visual basic (2010 und neuer) kannst du ganz einfach mit SendMessage Key´s an ein minimiertes Fenster schicken!
C++ geht natürlich auch.. autoit weis ich ned ob SendMessage unterstützt

vb.net:

Imports System.Runtime.InteropServices

  <Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    End Function

 Dim p As Process = Process.GetProcessesByName("deinegameexe")(0) 'ohne .exe


SendMessage(p.MainWindowHandle, &H102, Asc("W"c), 0)
SendMessage(p.MainWindowHandle, &H102, Asc("A"c), 0)
SendMessage(p.MainWindowHandle, &H102, Asc("S"c), 0)
SendMessage(p.MainWindowHandle, &H102, Asc("D"c), 0)

[alpines]

SendMessage gibts in AutoIt auch. Ich denke aber nicht das die Befehle vom Fenster entgegengenommen werden.

[warfley]

Originally Posted by BYTHEW4Y

wenn ich dir was vorschlagen darf:

mit visual basic (2010 und neuer) kannst du ganz einfach mit SendMessage Key´s an ein minimiertes Fenster schicken!
C++ geht natürlich auch.. autoit weis ich ned ob SendMessage unterstützt

vb.net:

Imports System.Runtime.InteropServices

  <Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    End Function

 Dim p As Process = Process.GetProcessesByName("deinegameexe")(0) 'ohne .exe


SendMessage(p.MainWindowHandle, &H102, Asc("W"c), 0)
SendMessage(p.MainWindowHandle, &H102, Asc("A"c), 0)
SendMessage(p.MainWindowHandle, &H102, Asc("S"c), 0)
SendMessage(p.MainWindowHandle, &H102, Asc("D"c), 0)

Spiele arbeiten oftmals nicht mit der Windows Message Queue um Tastatureingaben zu verarbeiten, sondern nutzen meist z.B. DirectX, SDL, glut oder ähnliche Frameworks, welche direkt den Tastatur Puffer auslesen, da wird man mit SendMessage nicht weit kommen

[alpines]

Originally Posted by warfley

Spiele arbeiten oftmals nicht mit der Windows Message Queue um Tastatureingaben zu verarbeiten, sondern nutzen meist z.B. DirectX, SDL, glut oder ähnliche Frameworks, welche direkt den Tastatur Puffer auslesen, da wird man mit SendMessage nicht weit kommen

Das hängt aber vom Spiel ab.

[warfley]

Originally Posted by alpines

Das hängt aber vom Spiel ab.

Darum steht da oftmals

[alpines]

Originally Posted by warfley

Darum steht da oftmals

Wollts nur nochmal gesagt haben

[Moope]

SendInput sollte aber dann zu 80% funktionieren.. tut es zumindest bei mir

[MaxChri]

@TE, controlsend funktioniert auf den neuen metin2 binarys nicht mehr.