Warum geht das nicht?! (Tastenkombinationen)

P1xelfehler

Hallo,

dieses Skript soll einfach nach Drücken von SHIFT + ESC das laufende Excel-Makro pausieren (was mit STRG + PAUSE geht) und mein anderes (mit Visual Basic erstelltes) Programm schließen.

Die andere Tastenkombination (nur ESC) zum killen von allen Prozessen funktioniert.

Bin ich blind?

Danke im Voraus
~P1xel

AutoIt

#include <File.au3>


;ESC-Taste um alles sofort abzubrechen
HotKeySet("{ESC}","_AllesAbbrechen") ;Killt Project Excel und Excel selbst und beendet sich
Func _AllesAbbrechen ()
   ProcessClose("Projekt Excel.exe")
   ProcessClose("EXCEL.EXE")
   ProcessClose("Excel einstellen.exe")
   ProcessClose("Excel zurückstellen.exe")
   ProcessClose("Makro Bloecke starten.exe")
   ProcessClose("Makro KostenNeubau starten.exe")
   ProcessClose("Makro KostenRenovierung starten.exe")
   ProcessClose("Makro Reparaturkosten starten.exe")
   ProcessClose("Makro SpaltenAusblenden.exe")
   ProcessClose("Makro SpaltenEinblenden.exe")
   ProcessClose("Makros importieren (fertig).exe")
   ProcessClose("Makro Sortieren starten.exe")
   Exit
EndFunc


HotKeySet("+{ESC}", "ProjectExcelAbbrechen")


Func ProjectExcelAbbrechen () ;Stoppt das laufende Modul und killt NUR Project Excel!


	;Projekt Excel killen
	ProcessClose("Projekt Excel.exe")


   ;Excel-Fenster auswaehlen
    Opt("WinTitleMatchMode", 2)
    WinActivate("Microsoft Excel")
    WinWaitActive("Microsoft Excel")


	;Laufendes Excel-Modul stoppen
	Sleep(500)
	Send("^{PAUSE}")


   Exit
EndFunc


$a = 1


While $a = 1
   Sleep(1000)
WEnd

Alles anzeigen

Runa

Ich empfehle ein "ConsoleWrite" in beiden Funktionen, damit du prüfen kannst, ob die Tastenkombination das Problem ist, oder die Funktion an sich. Hättest du dies getan, hättest du gemerkt, dass die Tastenkombination problemlos funktioniert.

AutoIt

#include <File.au3>


;ESC-Taste um alles sofort abzubrechen
HotKeySet("{ESC}","_AllesAbbrechen") ;Killt Project Excel und Excel selbst und beendet sich


Func _AllesAbbrechen ()
   ConsoleWrite('ProcessClose("Alles.")')
   Return
EndFunc


HotKeySet("+{ESC}", "ProjectExcelAbbrechen")


Func ProjectExcelAbbrechen () ;Stoppt das laufende Modul und killt NUR Project Excel!


	;Projekt Excel killen
	ConsoleWrite('ProcessClose("Projekt Excel.exe")')
	Return


   ;Excel-Fenster auswaehlen
    Opt("WinTitleMatchMode", 2)
    WinActivate("Microsoft Excel")
    WinWaitActive("Microsoft Excel")


	;Laufendes Excel-Modul stoppen
	Sleep(500)
	Send("^{PAUSE}")


   Exit
EndFunc


$a = 1


While $a = 1
   Sleep(1000)
WEnd

Alles anzeigen

P1xelfehler

Er wechselt zwar in das Excel-Fenster, aber Send("^{PAUSE}") "wirkt" irgendwie nicht... Das Excel-Skript läuft weiter. Wenn ich das selbst eingebe, geht es aber.

Runa

EDIT: Unnützen kram rausgeworfen.

Eigentlich ist {BREAK} und {PAUSE} exakt die selbe Taste. Break funktioniert - Pause nicht.

^BREAK = STRG + pause / untbr
^PAUSE = STRG + SHIFT + pause / untbr

Daran liegt dies.

P1xelfehler

DANKE @Bioshade !