AutoHotkey Community

Code: Select all

#NoTrayIcon ; Das AHK Symbol wird nicht angezeigt
#SingleInstance force ; Bei Neustart des Scriptes die alte Instanz ohne Nachfrage ersetzen

; Credits: https://ragnar-f.github.io/docs/commands/URLDownloadToFile.htm
; Forum Link: https://autohotkey.com/boards/viewtopic.php?f=9&t=15945
; Script by: Rohwedder, Tipps and Modifikation: jNizM & Best-Code-in-Use 

; einen asynchronen HTTP-Request durchfuehren.
req := ComObjCreate("Msxml2.ServerXMLHTTP")
; Oeffnet einen Request mit aktivierter async.
req.open("GET", "http://zeitaktuelle.de/", true)
; ruft eine berliner Atomuhr auf
req.setRequestHeader("cache-control", "max-age=0")
; den aktuellen Seiteninhalt abrufen
req.onreadystatechange := Func("Ready")
; Sendet den Request.  Ready() wird aufgerufen, wenn es fertig ist.
req.send()
#Persistent

Ready() 
{
    global req
    if (req.readyState != 4)  ; Noch nicht fertig.
        return
    if (req.status == 200 || req.status == 304) ; OK.
	{
		q := req.responseText ;Text der Seite		
		q := SubStr(q, InStr(q,">var currenttime") + 35,8) ;Uhrzeit extrahiert
		RunWait, %ComSpec% /c Time %q%,,Hide ;Systemuhr setzen
	}
    else
        MsgBox 16,, % "Status " req.status
	ExitApp
}