Code: Select all

; Example: Download text to a variable:
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
whr.Send()
; Using 'true' above and the call below allows the script to remain responsive.
whr.WaitForResponse()
version := whr.ResponseText
MsgBox % version

Code: Select all

; ScreenSaver settings:
strComputer := "."
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")

colItems := objWMIService.ExecQuery("Select * from Win32_Desktop")._NewEnum

While colItems[objItem]
    MsgBox % "Screen Saver Active: "	 . objItem.ScreenSaverActive
		 . "`nScreen Saver Executable: " . objItem.ScreenSaverExecutable
		 . "`nScreen Saver Secure: "	 . objItem.ScreenSaverSecure
		 . "`nScreen Saver Timeout: "	 . objItem.ScreenSaverTimeout

Code: Select all

RunWait, %ComSpec% /c -L curl google.de ; -L folgt der weiterleitung, der Webseite
; weitere möglichkeiten:
RunWait, %ComSpec% /c -L curl google.de, , Hide ;Verstecktes Fenster
Run, %ComSpec% /c curl -L -I google.de  >  status.txt, , Hide, Var7  ; Speichert den Statuscode als Text im Skriptordner
Process, WaitClose, %Var7% ;Fertig?

Code: Select all

Loop {
	If (A_TimeIdle >= 5000) {
		msgbox 5 Sekunden nichts gemacht
		Exitapp
	}
Sleep 1000
}