Write check status to log file

Top  Previous  Next

This example writes the date, URL and status of the last check to a log file in 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




Translate document: