Auch hier nochmal:
RSBox : Doch, wenn du in der Verknüpfung das Arbeitsverzeichnis richtig angibst sollte das funktionieren: https://www.autoitscript.com/autoit3/docs/f…ateShortcut.htm
Sonst würden ja viele Programme nicht über Verknüpfungen funktionieren 
RSBox : Doch, wenn du in der Verknüpfung das Arbeitsverzeichnis richtig angibst sollte das funktionieren: https://www.autoitscript.com/autoit3/docs/f…ateShortcut.htm
Sonst würden ja viele Programme nicht über Verknüpfungen funktionieren
Ja, KI kann hilfreich sein, das stimmt.
Witzigerweise hat gerade ein Kollege einen Artikel (Achtung: Englisch) gepostet was die Nutzung von KI (im allgemeinen) vs. selber umsetzen angeht (Aber den Artikel bitte nicht falsch verstehen):
Falls es wen interessiert. Es ist aber kein Artikel gegen KI, nur es werden durchaus Unterschiede sichtbar.
Warum schiebst du dann nicht einfach nur eine verknüpfung zum Programm in Autostart?
Jo, fehlt nur noch das automatische Starten der Programme/Öffnen der Fenster beim hochfahren
Das hatte ich zumindest bei meinem Beispiel mit drin, das die Programme gestartet werden wenn dises Programm startet, sofern sie noch nicht laufen.
Eigentlich fehlt nur das man eben nix anderes machen kann wenn es läuft und nur per Passwort raus kommt, dann hast du deinen Kiosk 
Wobei, wenn kein Eingabegerät vorhanden ist und man nur den Bildschirm sieht, das vollkommen drüber wäre
Im Prinzip ist das ja was für einen Kiosk Bildschirm
Kanashius du musst mich auch immer übertreffen 
Nochmal mit VSCode getestet,damit geht es, es scheint hier ggf. ein Problem mit bestimmten MS Programmen zu sein, die in Windoof integriert sind und sich da anders verhalten.
Folgendes Beispiel funktionierte bei mir nun Einwandfrei (Achtung, die Zeit musst du verlängern, zum Testen hier auf 5 Sekunden gesetzt):
Opt('MustDeclareVars', 1)
#include <Timers.au3>
#include <Array.au3>
HotKeySet("^!k", "Terminate") ; Strg + Alt + K zum Beenden des Skrip
Global $Programm[2][3] = [[2, "C:\Program Files\Notepad++\notepad++.exe", "C:\Program Files\Microsoft VS Code\Code.exe"]]
Global $killSwitch = False
If Check_Programs() then Loop()
Func Check_Programs()
Local $pid
For $i = 1 to $Programm[0][0]
$pid = ProcessExists($Programm[1][$i])
If $pid = 0 Then $pid = Run($Programm[0][$i])
if $pid = 0 Then return false
Sleep(2000)
$Programm[1][$i] = _WinActivatePID($pid)
Next
return True
EndFunc
Func Loop()
Local $i = 1
Local $currentProgram = $Programm[1][$i]
Local $interval = 5 * 1000 ; 5 Sekunden
Local $timer = _Timer_Init()
Local $TimerProgress = 0
Local $diff = $interval
While Not $killSwitch
While $diff > 0
$TimerProgress = _Timer_Diff($timer)
$diff = $interval-$TimerProgress
If not WinActive($currentProgram) Then
WinSetOnTop($currentProgram, Default, $WINDOWS_ONTOP)
sleep(100)
WinSetOnTop($currentProgram, Default, $WINDOWS_NOONTOP)
EndIf
Sleep(100)
WEnd
If $currentProgram = $Programm[1][$i] Then
$i += 1
If $i > UBound($Programm, 2)-1 Then $i = 1
$currentProgram = $Programm[1][$i]
WinSetOnTop($currentProgram, Default, $WINDOWS_ONTOP)
sleep(100)
WinSetOnTop($currentProgram, Default, $WINDOWS_NOONTOP)
EndIf
$TimerProgress = 0
$diff = $interval
$timer = _Timer_Init()
WEnd
EndFunc
Func _WinActivatePID($iPID)
Local $aList, $i
$aList = WinList()
For $i = 1 To $aList[0][0]
If WinGetProcess($aList[$i][1]) = $iPID Then Return WinActivate($aList[$i][1])
Next
Return -1
EndFunc
Func Terminate()
$killSwitch = True
EndFuncNoch mal Moin,
dass Run eine 'falsche' PID liefert entsteht dadurch, dass "Calc.exe" nur einen weiteren Prozess mit eigener PID startet und sich dann verabschieded. Die gelieferte PID ist dann wertlos.
Das das nicht nur Calc betrifft hast du gesehen? Ich kann das mit msedge (siehe oben) als auch notepad nachstellen, andere habe ich noch nicht probiert.
Alles schon gemacht (ein sich ändernder Exename lässt sich aber nicht dynamisch einfach mal so abfangen, ohne ihn manuell mit anzugeben, was ich vermeiden wollte, der calc war auch nur zum testen da).
Aber ich nehme das trotzdem mal als Beispiel:
- calc.exe gestartet -> pid: 24316
- CalculatorApp.exe pid über ProcessList ausgelesen -> pid: 2452
- msedge.exe gestartet -> pid: 31180
- msedge.exe pid über ProcessList ausgelesen -> 13 pids aber nicht die 31180
Oder ist das Problem nur bei mir, weil Unternehmens PC und sich irgendwas dazwischen setzt und daher die pids nicht passen?
Wenn ich den Prozess starte (egal ob mit Shellexecute oder run) bekommst du ja bereits eine pid zurück.
Dort lag erst mal mein Fokus (Programme laufen noch nicht).
Und mit WinList() kannst du ja durchgehen und mit WinGetProcess($aList[$i][1]) die jeweiligen pids auslesen, bleibt aber immer ohne Ergebnis.
Auch wenn ich mir per Processlist (wo ja keine hwnd zu bekommen ist aber ich halt zur Prüfung geschaut habe) die Prozesse nach dem starten anschaue, taucht die pid vom erstellen nicht auf.
Manchmal auch nichtmal der Prozess laut Name (z.B. Rechner) oder eben mit einer ganz anderen pid (und ja es ist kein 2. Prozess dieser Programme am laufen).
Keine Ahnung was da falsch läuft.
Naja ProcessExists funktioniert bei mir ja aber halt in der ProcessList oder Winlist taucht der Prozess entweder nicht auf oder mit einer anderen PID als das was ich beim erstellen zurück bekommen habe.
Das Problem was meinen Vorschlag angeht, ist, das ich (unter Win11) es nicht hin bekomme, von der pid zum hwnd zu kommen, da der erstellte Prozess (wo man ja eine pid zurück bekommt) weder in ProcessList, noch in Winlist auftaucht. Erklären kann ich mir das aber nicht.
Ansonsten sähe meine Umsetzung ca. so aus (nicht komplett zu testen, aus genannten Gründen, leider)
Opt('MustDeclareVars', 1)
#include <Timers.au3>
HotKeySet("^!k", "Terminate") ; Strg + Alt + K zum Beenden des Skrip
Global $Programm[2][3] = [[2, "C:\Windows\System32\notepad.exe", "C:\Windows\System32\calc.exe"]]
Global $killSwitch = False
If Check_Programs() then Loop()
Func Check_Programs()
Local $pid
For $i = 1 to $Programm[0][0]
$pid = ProcessExists($Programm[1][$i])
If $pid = 0 Then $pid = Run($Programm[0][$i])
if $pid = 0 Then return false
Consolewrite($pid & @CRLF)
Sleep(2000)
$Programm[1][$i] = _WinActivatePID($pid)
Next
return True
EndFunc
Func Loop()
Local $i = 1
Local $currentProgram = $Programm[1][$i]
Local $interval = 5 * 1000 ; 5 Sekunden
Local $timer = _Timer_Init()
Local $TimerProgress = 0
Local $diff = $interval
While Not $killSwitch
While $diff > 0
$TimerProgress = _Timer_Diff($timer)
$diff = $interval-$TimerProgress
If not WinActive($currentProgram) Then
WinSetState($currentProgram, "", @SW_MAXIMIZE)
EndIf
Sleep(100)
WEnd
If $currentProgram = $Programm[1][$i] Then
;~ WinSetState($currentProgram, "", @SW_MINIMIZE)
ConsoleWrite($i & @CRLF)
ConsoleWrite($Programm[1][$i] & @CRLF)
$i += 1
If $i > UBound($Programm, 2)-1 Then $i = 1
$currentProgram = $Programm[1][$i]
WinSetState($currentProgram, "", @SW_MAXIMIZE)
EndIf
$TimerProgress = 0
$diff = $interval
$timer = _Timer_Init()
WEnd
EndFunc
Func _WinActivatePID($iPID)
Local $aList, $i
$aList = WinList()
For $i = 1 To $aList[0][0]
If WinGetProcess($aList[$i][1]) = $iPID Then Return WinActivate($aList[$i][1])
Next
Return -1
EndFunc
Func Terminate()
$killSwitch = True
EndFuncWobei das Beispiel aus "Gute Frage" ja jedesmal das Programm startet und minimiert und nicht anzeigt.
#include <Timers.au3>
Global $Programm1 = "C:\Program Files\Programm1.exe"
Global $Programm2 = "C:\Program Files\Programm2.exe"
Global $interval = 30 * 1000 ; 30 Sekunden
Global $timer = _Timer_Init()
Global $currentProgram = $Program1
Global $killSwitch = False
While Not $killSwitch
Run($currentProgram)
_Timer_SetTimer($timer, $interval)
While _Timer_GetTimer($timer) > 0 And Not $killSwitch
Sleep(100)
If WinActive($currentProgram) Then
WinSetState($currentProgram, "", @SW_MINIMIZE)
EndIf
WEnd
If $currentProgram = $Program1 Then
$currentProgram = $Program2
Else
$currentProgram = $Program1
EndIf
WEnd
Func Terminate()
$killSwitch = True
EndFunc
HotKeySet("^!k", "Terminate") ; Strg + Alt + K zum Beenden des SkripEigentlich müsste man vorher prüfen ob die Programme schon laufen, sich dann die PID dazu merken und darauf prüfen.
Sind die Programme noch nicht am laufen, starte sie, zeige das 1. Programm und wechsel bei Hotkey (ohne sie nochmal starten zu wollen).
Zudem eine gesonderter Hotkey zum Beenden der ganzen Schleife.
Grundsätzlich gerne, allerdings habe ich dafür privat zu wenig Zeit.
Ich habe ja Ende des letzten Jahres mein Smart Home erweitert und kämpfe da noch mit dem ein oder anderen Problem.
Hier ab und zu ein paar Zeilen zuschreiben geht noch aber halt sich ernsthaft zum programmieren hin zu setzen, schaffe ich aktuell nicht :(.
Ich würde nicht anfangen Software von Dritten zu hosten, versenden oder amderweitig anzubieten.
Das war auch nicht gemeint
Was ich meinte, war (dies Software soll ja beim nutzenden Admin lokal laufen) das der Admin sich das für lokale Zwecke ablegt und seinen nutzern eben nur explizit diese Software/Version zur verfügung stellt, die er möchte. Die ggf. auch schon geprüft/getestet wurde.
Haben wir bei uns immer so gemacht, um zum Einen eine Fallback Installationsdatei zu haben und zum Anderen dem Benutzer nur vorher geprüfte Versionen zur Verfügung gestellt haben.
Aber ich wollte es halt nur einmal anmerken, bin ja mittlerweile nur noch im Mobility Bereich zuständig und da läuft das ganze leider nochmal wesentlich schlechter/anders.
Dabei crawled der einfach als cronjob das Netz nach in seiner DB bekannten URLs nach neueren Versionen von angebotener Software und schickt eine Email an eingetragene User, die dann für den jeweiligen User interessante Software als Email eine Aktualisierung meldet.
Der User geht auf die Seite des Herstellers und lädt sich die Aktualisierung, da er ja grundsätzlich keine direkte I-Net Verbindung hat.
Warum es nicht komplett "offline" machen?
Aus meiner Erfahrung ist selbst das "...Der User geht auf die Seite des Herstellers und lädt sich die Aktualisierung..." teilweise schon problematisch (holt der Nutzer sich die richtige Version (32- vs. 64-Bit,...), hakt er richtige Optionen an/ab,...).
Ich selber wäre da eher bei: Du/der Admin bekommt eine Mail und lädt die neue Version runter und legt diese auf einem lokalen Server ab (ggf. sogar die letzten X Versionen um ein Fallback zu haben).
Danach wird entweder
... der User informiert das dieser über eine eigene "Pull-" Software sich von dort die neue, explizit vom Admin bereitgestellte Version, vom Server holt und installiert (hier wäre dann ggf. auch die Möglichkeit Installationsparameter mit zu übergeben) oder
... der Admin diese zu den Usern im Hintergrund "Pusht" und eine beim Enduser laufende Software dann (unter bestimmten Bedingungen) das Update ausführt.
Ich hatte mir soetwas in der Art mal in Turbo Pascal gebaut aber da ich es nicht mehr brauchte, ist das auch nicht mehr vorhanden
Habs auch nur durch "mal schauen" ("Jugend" forscht) gesehen
Thema bearbeiten -> Erweitert -> auf das Label drücken und das richtige auswählen - speichern
Label (das mit [...]) <> Themen Status (das Kästchen):
Hier nun ein paar Beispiele für Lancom Cloud (um einen Standort anzulegen).
Ich musste ein wenig Namen etc. entfernen ersetzen und die ein oder andere "Unterfunktion" ist natürlich zu speziell und müsste von jedem selber entspechend gebaut werden und fehlt hier daher.
Das API_token ist bei mir global, daher wird dies nicht bei jeder Funktion übergeben.
Function SendRequest_LMC { #sends a request to Lancom Cloud API using a API token and returns the result
param (
[string]$Domain,
[string]$Method,
[string]$Request,
[string]$ContentType = 'application/json',
[string]$ReturnType = 'Content', #Content, StatusCode
[string]$AccountID = '',
$OptionalData = $null,
[bool]$Debug = $false
)
$Url = "https://$Domain$Request"
$Token = $API_KEY
$headers = @{
Accept = $ContentType
Authorization = "LMC-API-KEY $Token"
}
If ($Debug -eq $true) {
LogWrite "$Domain - URL: $Url" 'DEBUG' $Debug
LogWrite "$Domain - Method: $Method" 'DEBUG' $Debug
LogWrite "$Domain - ContentType: $ContentType" 'DEBUG' $Debug
LogWrite "$Domain - ReturnType: $ReturnType" 'DEBUG' $Debug
Logwrite "$Domain - OptionalData: $OptionalData" 'DEBUG' $Debug
Logwrite "$Domain - AccountID: $AccountID" 'DEBUG' $Debug
Logwrite "$Domain - Debug: $Debug" 'DEBUG' $Debug
LogWrite "$Domain - Headers: $($headers | Out-String)" 'DEBUG' $Debug
}
if ($null -eq $OptionalData) {
$response = Invoke-WebRequest -Uri $Url -Method $Method -Headers $headers -ContentType $ContentType
} else {
$response = Invoke-WebRequest -Uri $Url -Method $Method -Headers $headers -ContentType $ContentType -Body $OptionalData
}
if ($Debug -eq $true) {
LogWrite "$Domain - Response StatusCode: $($response.StatusCode)" 'DEBUG' $Debug
LogWrite "$Domain - Response Content: $($response.$ReturnType)" 'DEBUG' $Debug
}
return $response.$ReturnType
}
Function LMC_Get_Variables { #returns configuration variables from Lancom Cloud
param (
[string]$Domain,
[string]$AccountID,
[bool]$Debug = $false
)
$Request = "/cloud-service-config/configvariable/accounts/$AccountID/variables"
$Return = SendRequest_LMC $Domain 'GET' $Request 'application/json' 'Content' $AccountID $null $false
if ($null -eq $Return) {
return $null
}
If ($Debug) { LogWrite "Return: $Return" 'DEBUG' $false }
$Return = $Return | ConvertFrom-Json
$VarData = @(foreach ($Var in $Return) {
New-Object -Type PSObject -Property @{
'Name' = $Var.name
'ID' = $Var.id
}
if ($Debug) { LogWrite "Name: $($Var.name) - Value: $($Var.id)" 'DEBUG' $false }
})
if ($Debug) { LogWrite "$VarData" 'DEBUG' $false }
return $VarData
}
Function LMC_Get_VLANs { #returns VLAN configuration variables from Lancom Cloud
param (
[string]$Domain,
[string]$AccountID,
[bool]$Debug = $false
)
$Request = "/cloud-service-config/confignetwork/accounts/$AccountID/networks"
$Return = SendRequest_LMC $Domain 'GET' $Request 'application/json' 'Content' $AccountID $null $false
if ($null -eq $Return) {
return $null
}
If ($Debug) { LogWrite "Return: $Return" 'DEBUG' $false }
$Return = $Return | ConvertFrom-Json
$VLANData = @(foreach ($Var in $Return) {
New-Object -Type PSObject -Property @{
'Name' = $Var.name
'ID' = $Var.id
}
if ($Debug) { LogWrite "Name: $($Var.name) - Value: $($Var.id)" 'DEBUG' $false }
})
if ($Debug) { LogWrite "$VLANData" 'DEBUG' $false }
return $VLANData
}
Function Create_Location { #creates a Location in Lancom Cloud based on given Location data
param (
[array]$LocationData,
[string]$Domain,
[string]$AccountID,
[bool]$Debug = $false
)
$Request = "/cloud-service-devices/accounts/$AccountID/sites"
$Data = '{"name": "' + $LocationData.Locationname + '",' +
'"address": {"city": "' + $LocationData.City + '",' +
'"zipCode": "' + $LocationData.ZIP + '"},' +
'"street": "' + $LocationData.Street + '",' +
'"countryCode": "' + $LocationData.Country + '"' +
'},' +
'"position": {"latitude": ' + $LocationData.Latitude.Replace(',', '.') + ',' +
'"longitude": ' + $LocationData.Longitude.Replace(',', '.') +
'}' +
'}'
if ($Debug) {
LogWrite "Create_Location - Request: $Request" 'DEBUG' $false
LogWrite "Create_Location - Data: $Data" 'DEBUG' $false
}
$Return = SendRequest_LMC $Domain 'POST' $Request 'application/json' 'Content' $AccountID $Data $false | ConvertFrom-Json
if ($null -eq $Return) {
return $null
}
return $Return
}
Function Add_Network_to_Location { #adds a network to a Location in Lancom Cloud
param (
[string]$LocationNumber,
[string]$SubNetGroupId,
[array]$VLANData,
[string]$Domain,
[string]$AccountID,
[bool]$Debug = $false
)
$VLAN = 3, 'VLAN1', 'VLAN2', 'VLAN3' #,...
$Request = "/cloud-service-config/confignetwork/accounts/$AccountID/networks/subnetgroups/$SubNetGroupId/bulk-create"
if ($Debug) {
LogWrite "Add_Network_to_Location - SubnetgroupID: $SubNetGroupId" 'DEBUG' $false
LogWrite "Add_Network_to_Location - LocationNumber: $LocationNumber" 'DEBUG' $false
}
For ($v=1; $v -le $VLAN[0]; $v++) {
$VLANName = $VLAN[$v]
$VLANId = ''
For ($vd=0; $vd -lt $VLANData.Count; $vd++) {
if ($VLANData[$vd].Name -eq $VLANName) {
$VLANId = $VLANData[$vd].ID
}
}
if ($VLANId -eq '') {
LogWrite "VLAN $VLANName not found in Lancom Cloud!" 'ERROR' $false
Return $null
}
$Data = '{"networkIds":["' + $VLANId + '"]}' #"id","id"
if ($Debug) {
LogWrite "Add_Network_to_Location - Request: $Request" 'DEBUG' $false
LogWrite "Add_Network_to_Location - Data: $Data" 'DEBUG' $false
}
$Return = SendRequest_LMC $Domain 'POST' $Request 'application/json' 'StatusCode' $AccountID $Data $false
if ($Return -eq 200) {
LogWrite "Add_Network_to_Location - Successfully added network $VLANName to Location $LocationNumber." 'INFO' $false
} else {
LogWrite "Add_Network_to_Location - Failed to add network $VLANName to Location $LocationNumber. Return code: $Return ($(EncodeStatusCode $Return))" 'ERROR' $false
}
}
}
Function Add_Variables_to_Location { #sets a configuration variable in a Location in Lancom Cloud
param (
[string]$LocationNumber,
[string]$SubNetGroupId,
[array]$VariableData,
[string]$Domain,
[string]$AccountID,
[bool]$Debug = $false
)
$SSIDVal = Location_to_SSID $LocationNumber
if ($Debug) {
LogWrite "Add_Variables_to_Location - LocationNumber: $LocationNumber" 'DEBUG' $false
Logwrite "Add_Variables_to_Location - SubnetgroupID: $SubNetGroupId" 'DEBUG' $false
LogWrite "Add_Variables_to_Location - SSIDVal: $SSIDVal" 'DEBUG' $false
}
Foreach ($Var in $VariableData) {
if ($Var.Name -eq 'SSID') { $SSIDID = $Var.ID }
}
if ('' -eq $SSIDID) {
LogWrite "Add_Variables_to_Location - Variable not found! SSID:$SSIDID" 'ERROR' $false
Return $null
}
$Data = '{"value":"' + $SSIDVal + '"}'
if ($Debug) { LogWrite "Add_Variables_to_Location - Data send to LMC: $Data" 'DEBUG' $false }
$Request = "/cloud-service-config/configvariable/accounts/$AccountID/subnetgroups/$SubNetGroupId/variables/$SSIDID"
$Return = SendRequest_LMC $Domain 'PUT' $Request 'application/json' 'StatusCode' $AccountID $Data $false
if ($Return -eq 200) {
LogWrite "Successfully set SSID to $SSIDVal for Location $LocationNumber." 'INFO' $false
} else {
LogWrite "Failed to set SSID for Location $LocationNumber. Return code: $Return ($(EncodeStatusCode $Return))" 'ERROR' $false
}
}