IPSTools - Tools für Monitor, Maus und mehr ...

IP-Symcon Skripte, PHP, SQL (Anleitungen)
201

Bei absetzen dieses Befehls beendet sich IPSTools am Windows PC.
Gibts eine Möglichkeit eine Variable (in diesem Beispiel die Helligkeit) mitzusenden ?

CSCK_SendText($Socket, 'RunProgram;C:\IPS\Monitor.exe b '.$_IPS['VALUE'].';');
202

Hallo,
ich habe nun das IPS Tool auf meinen neuen PC unter Windows 10 installiert. So funktioniert alles, nur wenn ich den PC mit dem Touchscreen bediene, dann bekommt das IPSTool keine Mausbewegung mit. Das war am alten PC anders. Wenn ich eine Maus bewege funktioniert es. Kann ich die Zeit der letzten Toucheingabe auch irgendwie abfragen?

203

Servus,

komme bei Scripteditor mit der neuen Schreibweise noch nicht ganz klar.
Könnte jemand die IPS Tools Skripte mit aktueller Schreibweise posten?

Mfg Klaus

204

Eine Seite zurückblättern, letzter Beitrag zum Beispiel ?

205

Ich kann auch dieses Modul empfehlen: [Modul] IOTLinkService

Grüße,
Kai

206

Ist IPS Tools tot? startet und schließt sich gleich wieder unter Win10 Version 1909 auf dem Remoterechner.

Gruß

207

Dem muss ich mich auch anschließen.

IPSTools gestartet und sofort wieder weg.

Hat dazu jemand eine Idee?

208

Da die letzten 2 Win10-Updates IPSTools nicht gut gekommen sind, habe ich hass-workstation-service getestet, funktioniert wie gewünscht.

Das schöne ich rufe bei den MQTT Broker Commands immer dasselbe VBS Script auf, und übergebe einfach einen Parameter den ich im Script auswerte…

Die Befehle für Monitor aus- und einschalten, Bildschirmschoner(Galerieanzeige), Windows-Neustart lassen sich damit umsetzen.

2021-06-28 20_27_45-Smarthome
2021-06-28 20_27_45-Smarthome903×90 8.43 KB

2021-06-28 20_25_00-Smarthome — IP-Symcon Verwaltungskonsole
2021-06-28 20_25_00-Smarthome — IP-Symcon Verwaltungskonsole914×323 66.9 KB

2021_06_28_20_20_58_top5_tabl1_top5_tabl1_Remotedesktopverbindung
2021_06_28_20_20_58_top5_tabl1_top5_tabl1_Remotedesktopverbindung984×498 18.2 KB

209

Hi SimonS,

hört sich interessant an!
Kannst du bitte beschreiben wie du das genau gemacht hast?

Danke
Erwoolf

210

Was ist unklar?
Weitere Screenshots

grafik
grafik1757×300 58.5 KB

grafik

Mein VBS Script sieht im Moment so aus:

'Script.vbs
Set objShell = WScript.CreateObject("WScript.Shell")
'objShell.SendKeys "^+Q"
'objShell.SendKeys "%{F4}"

'Parameter (Arguments)
Set objParameter = WScript.Arguments
If objParameter.Count = 0 Then
    WScript.Echo "Usage: " & WScript.ScriptName & " Parameter1"
    Wscript.Quit
End If
'MsgBox objParameter(0),vbOKOnly,WScript.ScriptName

Select Case objParameter(0)
	Case "screensaver_on"
		objShell.Run "cmd.exe /c start C:\Windows\gPhotoShow.scr -start"
    Case "screensaver_off"
		objShell.Run "cmd.exe /c taskkill /IM gPhotoShow.scr"
	Case "display_off"
		objShell.Run "cmd.exe /c c:\ips\nircmd.exe monitor off"
	Case "display_on"
		objShell.Run "cmd.exe /c c:\ips\nircmd.exe sendmouse 1 5"
		WScript.Sleep 1000
		objShell.SendKeys "{ESC}"
	Case "Mouse"
		objShell.Run "cmd.exe /c c:\ips\nircmd.exe sendmouse 1 5"
    Case "SendKey_Esc"
        objShell.SendKeys "{ESC}"
    Case "SendKey_Exit"
		objShell.SendKeys "%{F4}"		
    Case "sendkey_altf4"
		objShell.SendKeys "%{F4}"		
    Case "reboot"
        objShell.Run "cmd.exe /c shutdown -r -f -t 5 -c ""Neustart durch Symcon initiiert.."""
    Case Else
		WScript.Echo "?"
End Select