Aktion nach einer bestimmten Tastenkombination weiterführen

Nabend

Bei meinem Script hab ich einen Abschnitt, bei welchem ein Dialogfeld aufgeht, und sobald dann OK gedrückt wird, schliesst sich die Anwendung. Ich wäre allerdings glücklich, wenn ich das mit dem Dialogfeld weg lassen könnte, und es mit einer bestimmten Tastenkombination erledigen könnte. Also dass er die Anwendung schliesst, sobald eine bestimmte Taste, bzw. Tastenkombination gedrückt wurde. Ist das überhaupt möglich?

Ahatius

Ja das geht nehm einfach HotKeySet() damit kannst du festlegen mit welcher Tastenkombination welche Funktion ausgelöst werden soll.

z.B:

HotKeySet("{ESC}","_Beenden")

Func _Beenden()
Exit
EndFunc

; Tastenkombinationen (einfach auf Send klicken -> öffnet sich automatisch die Hilfe):
Send()

Alle Dinge um dir eine "Tastenkombination zusammenzustellen" gibt es in der Hilfe unter dem Suchbegriff: "Send"

Mfg
Jautois

Wenn mehrere tasten gedrückt werden sollen damit die Funktion aufgerufen wird dann kann man das mit _IsPressed() machen. Zum Beispiel so:

#Include <Misc.au3>
Func _meinefunc()
msgBox(0,"","a+b+c wurde gedrückt")
EndFunc

While 1
If _IsPressed("41") and _IsPressed ("42") and _IsPressed("43") Then
_meinefunc()
EndIf
WEnd

Danke für die Antwort.
Send selbst ist mir bekannt. Jedenfalls, wo definiere ich _Beenden ?

In dem

HotKeySet

.

Also wenn ich das richtig verstanden habe, dient HotKeySet dazu, eine Tastenkombination, für eine Funktion zu definieren. Diese Funktion muss dann natürlich noch auch definiert werden. Da ich persönlich noch nie mit Func gearbeitet habe, poste ich mal meinen Versuch (welcher nicht geklappt hat).

Opt("TrayIconHide", 1)
Opt("TrayIconDebug", 0)

If FileExists (@UserProfileDir & "\Exist.txt") Then
run(@ScriptDir & "\load.bat")
sleep(2000)
WinClose("Titel der Batchdatei")
Else
MsgBox(64, "Text", "Text")
run(@ScriptDir & "\load.bat")
sleep(2000)
WinClose("Titel der Batchdatei")
FileOpen(@UserProfileDir & "\Exist.txt",
FileWrite(@UserProfileDir & "\Exist.txt", "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " -- " & @UserName & " started script successfully.")
FileWrite(@UserProfileDir & "\Exist.txt", @CRLF & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " -- Don't remove this file. It's needed to check if you already started the script once.")
EndIf

WinActivate("Fenstertitel")
HotKeySet("{LCTRL}P","_Beenden")

Func _Beenden()
WinKill("Fenstertitel")
run("explorer.exe")
Exit
EndFunc

Ich will eigtl. nicht mehr als dass er, beim drücken von Ctrl + P die Anwendung schliesst. Klappt aber irgendwie nicht.

Opt("TrayIconHide", 1)
Opt("TrayIconDebug", 0)

If FileExists (@UserProfileDir & "\Exist.txt") Then
run(@ScriptDir & "\load.bat")
sleep(2000)
WinClose("Titel der Batchdatei")
Else
MsgBox(64, "Text", "Text")
run(@ScriptDir & "\load.bat")
sleep(2000)
WinClose("Titel der Batchdatei")
FileOpen(@UserProfileDir & "\Exist.txt",
FileWrite(@UserProfileDir & "\Exist.txt", "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " -- " & @UserName & " started script successfully.")
FileWrite(@UserProfileDir & "\Exist.txt", @CRLF & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " -- Don't remove this file. It's needed to check if you already started the script once.")
EndIf

WinActivate("Fenstertitel")

Func _Beenden()
WinKill("Fenstertitel")
run("explorer.exe")
Exit
EndFunc

while 1
If _ispressed ("12") and _ispressed ( "50") Then
_Beenden()
EndIf
WEnd

Danke euch allen, mit dem letzten Lösungsvorschlag hats wunderbar geklappt