Zeit einer Bookmark-Prüfung in eine Log-Datei schreiben

Top  Previous  Next

Dieses Beispiel berechnet die Zeit einer Bookmark-Prüfung und schreibt die Anzahl der Sekunden in eine CSV Log-Datei (c:\wswlogs\log23.txt).

 

Weiters werden die Sekunden in das Info-Feld #1 geschrieben, das in der Bookmark-Liste als eigene Spalte angezeigt werden kann.

 

 Dim sLogfile = "c:\wswlogs\log23.txt"

 Dim dStart

 

Sub Wsw_BeforeCheck(Handle)

   Bookmark_SetProperty(Handle, "checkmethod", "content")

   dStart = Now

End Sub

 

'*******************************************************************************

 

Sub Wsw_AfterCheck(Handle, ByRef sStatusMessage)

   

   Dim sSeconds = CStr(Trunc((Now - dStart) * 24 * 60 * 60))

   

   ' Write seconds into additional info field/column

   Bookmark_SetProperty(Handle, "infofield1", sSeconds + " sec")

   

   ' Write URL and seconds into log file

   If sLogfile <> "" Then

      AddStringToFile(sLogfile, """" + Bookmark_GetProperty(Handle, "check_url") + """;""" + sSeconds + """" + CRLF)

   End If

   

End Sub