Code: Select all

#NoEnv
^p::
MouseGetPos, X, Y, W, H, HWND, ClassNN
MsgBox, 0, Control unter der Maus, ClassNN: %ClassNN%`nX: %X% - Y: %Y% - W: %W% - H: %H%
Return
Esc::
ExitApp

Code: Select all

#NoEnv
#persistent
EditX := ?
EditY := ?
EditW := ?
EditH := ?
StaticX := ?
StaticY := ?
StaticW := ?
StaticH := ?

Menu, Tray, Icon, tray.ico ; spezielles icon benutzen (muss im gleichen Ordner liegen)
SetTimer, Statusauslesen, 30000 ; Ausführen des Bereiches "Statusauslesen", Intervall in ms, 60sec=60000
return
Statusauslesen: 
WinTitle := "Druckeinstellungen für DP-DS620"
If !WinExist(WinTitle) ; Solange das Fenster nicht existiert, wird eine Fehlermeldung in die Druckerstatus-Datei geschrieben
{
  FileDelete,D:\statustool\Druckerstatus.txt
  FileAppend,---`nRX1-Tool nicht aktiv,D:\statustool\Druckerstatus.txt
  psScript := "D:\statustool\fa-status.ps1"
  Run, powershell.exe "%psScript%",, hide
  Return
}
; Wenn das Fenster existiert, werden die Werte ausgelesen und in die Druckerstatus-Datei geschrieben
Rest := ""
Status := ""
WinGet, CtrlList, ControlList
For Each, ClassNN In StrSplit(CtrlList, "`n") {
	If (SubStr(ClassNN , 1, 4) = "Edit") {
		ControlGetPos, X, Y, W, H, %ClassNN%
		If (X = EditX) && (Y = EditY) && (W = EditW) && (H = EditH)
			ControlGetText, Status, %ClassNN %
	}
	Else If (SubStr(ClassNN , 1, 6) = "Static") {
		ControlGetPos, X, Y, W, H, %ClassNN%
		If (X = StaticX) && (Y = StaticY) && (W = StaticW) && (H = StaticH)
			ControlGetText, Rest,  %ClassNN %
	}
}
If (Rest <> "") && (Status <> "") {
	FileDelete,D:\statustool\Druckerstatus.txt
	FileAppend,%Rest%`n%Status%,D:\statustool\Druckerstatus.txt
	psScript := "D:\statustool\fa-status.ps1"
	Run, powershell.exe "%psScript%" ,, hide
} ; hier könnte noch ein Else-Zweig für eine Fehlermeldung gstehen
Return

Code: Select all

#NoEnv
#persistent
Menu, Tray, Icon, tray.ico ; spezielles icon benutzen (muss im gleichen Ordner liegen)
SetTimer, Statusauslesen, 30000 ; Ausführen des Bereiches "Statusauslesen", Intervall in ms, 60sec=60000
return
Statusauslesen: 
WinTitle := "Druckeinstellungen für DP-DS620"
If !WinExist(WinTitle) ; Solange das Fenster nicht existiert, wird eine Fehlermeldung in die Druckerstatus-Datei geschrieben
{
  FileDelete,D:\statustool\Druckerstatus.txt
  FileAppend,---`nRX1-Tool nicht aktiv,D:\statustool\Druckerstatus.txt
  psScript := "D:\statustool\fa-status.ps1"
  Run, powershell.exe "%psScript%",, hide
  Return
}
; Wenn das Fenster existiert, werden die Werte ausgelesen und in die Druckerstatus-Datei geschrieben
ControlGetText, Rest, Static2
ControlGetText, Status, Edit1
FileDelete,D:\statustool\Druckerstatus.txt
FileAppend,%Rest%`n%Status%,D:\statustool\Druckerstatus.txt
psScript := "D:\statustool\fa-status.ps1"
Run, powershell.exe "%psScript%" ,, hide
Return

Code: Select all

If !WinExist(WinTitle) ; bei Erfolg wird das 'Zuletzt Gefundene Fenster' gesetzt -> https://ahkde.github.io/docs/misc/WinTitle.htm
{
   MsgBox, 16, Test, Das Fenster %WinTitle% wurde nicht gefunden! ; der Fenstertitel stimmt offensichtlich nicht
   Return ; <<<<<
}

Code: Select all

#NoEnv
#persistent
SetTimer, Statusauslesen, 10000
Return
Statusauslesen:
WinTitle := "RX1 Information"
If !WinExist(WinTitle) ; bei Erfolg wird das 'Zuletzt Gefundene Fenster' gesetzt -> https://ahkde.github.io/docs/misc/WinTitle.htm
{
  FileDelete, Druckerstatus.txt
  FileAppend,--- `nRX1-Tool nicht aktiv, Druckerstatus.txt
}
ControlGetText, Rest, WindowsForms10.STATIC.app.0.378734a16
ControlGetText, Status, WindowsForms10.EDIT.app.0.378734a1
FileDelete, Druckerstatus.txt
FileAppend, %Rest% `n%Status%, Druckerstatus.txt
Return

Code: Select all

 DetectHiddenWindows, On

Code: Select all

#NoEnv
WinTitle := "RXI Information"

^+a:: ; Hotkey Strg+Shift+a -> Werte auslesen
If !WinExist(WinTitle) ; bei Erfolg wird das 'Zuletzt Gefundene Fenster' gesetzt -> https://ahkde.github.io/docs/misc/WinTitle.htm
{
   MsgBox, 16, Test, Das Fenster %WinTitle% wurde nicht gefunden! ; der Fenstertitel stimmt offensichtlich nicht
   Return
}
ControlGetText, Gedruckt, WindowsForms10.STATIC.app.0.378734a16
ControlGetText, Status, WindowsForms10.EDIT.app.0.378734a1
MsgBox, 0, Ergebnis:`nBlattzähler: %Gedruckt%`nDruckerstatus: %Status%
Return