Schreibe Status der letzten Prüfung in Log-Datei

Top  Previous  Next

Dieses Beispiel schreibt das Datum, die URL sowie den Status der letzten Prüfung in eine Logdatei im CSV-Format.

 

Sub Wsw_AfterCheck(Handle, ByRef sStatusMessage)

 

   Dim sUrl, sDateTime, sStatus

 

   sUrl = Bookmark_GetProperty(Handle, "check_url")

   sStatus = Bookmark_GetProperty(Handle, "status")

   sDateTime = CStr(Now)

 

   AddStringToFile("c:\logs\log.csv", sDateTime + ";" + sUrl + ";" + sStatus)

 

End Sub