Nach Windowsstart Focus für AHK-Script Topic is solved

[LuckyJoe]

Hallo zusammen,

ich habe den Link zu einem AHK-Script in das Windows-Autostartmenü gelegt, so dass das Script bei jedem Windowsstart aufgerufen wird. Innerhalb des Scripts habe ich das verwendete GUI auf AllwaysOnTop. Das funktioniert soweit auch, aber offensichtlich werden beim Start im Hintergrund noch weitere Programme geladen, so dass mein Script den Focus verliert. Ich muss diesen immer erst manuell setzen oder die Maus bedienen. Ich würde aber lieber, dass das Script den Focus automatisch er- oder behält, so dass ich sofort mit Enter meine Standard-Umgebung aufrufe oder sofort mit den Cursor-Tasten eine andere Umgebung aufrufen kann.

Wie behält bzw. bekommt mein Script den Focus? Geht das vielleicht zeitgesteuert, dass innerhalb des Scriptes per Timer der Focus überprüft und gesetzt wird?

Code: Select all

#NoEnv
#SingleInstance force

Gui, -Theme
Gui, Font, s10 cFFF68F, Arial
Gui, Add, Text,		x22 y15                      		, Womit starten?
Gui, Font
Gui, Add, Button,	x30 y40  w70  h23 gStandardButton	Default, Standard
Gui, Add, Button,	x30 y70  w70  h23 gNutzer1Button    , Nutzer 1
Gui, Add, Button,	x30 y100 w70  h23 gEscButton	    , Esc

Gui, Color, 4488BB
Gui, -Border
Gui, Show, 			xCenter y300 w130 h140
Gui, +LastFound
GuiID := WinExist()
WinSet, Redraw
WinSet, AlwaysOnTop, on
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Standard-Button										'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
StandardButton:
	Gui, Submit
	MsgBox, 1,, Startdateien ausführen?, 3
	IfMsgBox Timeout
		MsgBox, Standard-Umgebung starten ...
	Else IfMsgBox Ok
		MsgBox, Standard-Umgebung starten ...
	Else
		Gui, Show
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Nutzer1Button											'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Nutzer1Button:
	Gui, Submit
	MsgBox, 1,, Nutzer1-Umgebung starten?, 3
	IfMsgBox Timeout
		MsgBox, Nutzer1-Umgebung starten ...
	Else IfMsgBox Ok
		MsgBox, Nutzer1-Umgebung starten ...
	Else
		Gui, Show
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Esc-Button											'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
EscButton:
	Goto GuiEscape

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Beenden												'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GuiEscape:
GuiClose:
	Gui, Submit
	Gui, Destroy
	ExitApp

Danke schon mal im Voraus!
Viele Grüße - Lucky Joe

[Folllast]

Wenn du meinst, das das Fenster nicht im Vordergrund (markiert) ist. .. das geht mit WinActivate bzw. WinWaitActivate.

[BoBo]

https://www.pcwelt.de/ratgeber/Reihenfo ... 13687.html
https://www.drwindows.de/windows-7-allg ... ndern.html (letzter kommentar)

[LuckyJoe]

Hallo,

zunächst Danke für eur Mithilfe!

@Bobo:
Ist das einzige Programm im Autostart-Ordner (darum ja mein Script, weil ich je nach Vorhaben die jeweilige Arbeitsumgebung laden will). Es werden aber im Hintergrund Processe und Programme geladen, die offensichtlich der GUI den Fokus entziehen (ich weiß nicht welche). Die Links habe ich mir aber mal angeschaut.

@Folllast:
WinActivate kenne ich natürlich, aber ich suchte dann so was wie "WinActivate Me" und habe - wie in der Hilfe beschrieben - alles durchgegangen:

Code: Select all

id := WinExist("A")
WinActivate A
WinActivate, ahk_id %id%
Winmove, xCenter y300
Winset, Enable
Winset, Redraw
WinHide
WinShow

... funktionierte aber nicht.

Letztendlich habe ich jetzt mit einem Timer eine Lösung gefunden, die zwar funktioniert, aber mir irgendwie nicht wirklich "schön" vorkommt:

Code: Select all

#NoEnv
#SingleInstance force
#Persistent

Gui, -Theme
Gui, Font, s10 cFFF68F, Arial
Gui, Add, Text,		x22 y15                      		, Womit starten?
Gui, Font
Gui, Add, Button,	x30 y40  w70  h23 gStandardButton	Default, Standard
Gui, Add, Button,	x30 y70  w70  h23 gNutzer1Button    , Nutzer 1
Gui, Add, Button,	x30 y100 w70  h23 gEscButton	    , Esc

Gui, Color, 4488BB
Gui, -Border
Gui, Show, 			xCenter y300 w130 h140
Gui, +LastFound
GuiID := WinExist()
WinSet, Redraw
WinSet, AlwaysOnTop, on

id := WinExist("A")
SetTimer, WinActivateThisScript, 1000					; jede Sekunde Fokus prüfen
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Script regelmäßig "fokussieren"						'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
WinActivateThisScript:
	IfWinNotActive, XStart
		WinActivate, ahk_id %id%
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Standard-Button										'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
StandardButton:
	Gui, Submit
	MsgBox, 1, XStart, Startdateien ausführen?, 300000
	IfMsgBox Timeout
	{
		MsgBox, Standard-Umgebung starten ...
		Goto GuiClose
	}
	Else IfMsgBox Ok
	{
		MsgBox, Standard-Umgebung starten ...
		Goto GuiClose
	}
	Else
		Gui, Show
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Nutzer1Button											'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Nutzer1Button:
	Gui, Submit
	MsgBox, 1, XStart, Nutzer1-Umgebung starten?, 300000
	IfMsgBox Timeout
	{
		MsgBox, Nutzer1-Umgebung starten ...
		Goto GuiClose
	}
	Else IfMsgBox Ok
	{
		MsgBox, Nutzer1-Umgebung starten ...
		Goto GuiClose
	}
	Else
		Gui, Show
Return

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Esc-Button											'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
EscButton:
	Goto GuiEscape

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Beenden												'
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GuiEscape:
GuiClose:
	Gui, Submit
	Gui, Destroy
	ExitApp

Viele Grüße
Lucky Joe

[just me]

Moin,

wenn ich das richtig verstehe, soll mit dem Skript als erste Aktion am Rechner eine 'Arbeitsumgebung' ausgewählt werden. Das Skript beendet sich dann. Dafür scheint mir die Timerlösung ausreichend. Als technisch einfache Alternative fällt mir nur Folgendes ein:

Code: Select all

...
Gui, Show, 			xCenter y300 w130 h140
Gui, +LastFound +hwndGuiID ; <<< hwnd Option zugefügt
; GuiID := WinExist()
WinSet, Redraw
WinSet, AlwaysOnTop, on

; id := WinExist("A")
; SetTimer, WinActivateThisScript, 1000					; jede Sekunde Fokus prüfen
Loop {
   WinWaitNotActive, ahk_id %GuiID%
   WinActivate, ahk_id %GuiID%
}
Return

Frohe Ostern!

[LuckyJoe]

... ahhhhh ... ich wußte, dass es "schöner" geht.
Allerdings darf ; GuiID := WinExist() nicht auskommentiert sein

Danke just me - und ebenfalls Frohe Ostern!
Lucky Joe

[just me]

Allerdings darf ; GuiID := WinExist() nicht auskommentiert sein

Eigentlich wird die Variable GuiID jetzt hier versorgt:

Code: Select all

Gui, +LastFound +hwndGuiID ; <<< hwnd Option zugefügt

Läuft das so bei Dir nicht?

[LuckyJoe]

... nicht gesehen - sorry. Wieder dazugelernt