Sub GetTime
Dim DL As HttpJob
DL.Initialize("Time", Me)
DL.Download("http://nist.time.gov/actualtime.cgi?lzbc=siqm9b")
End Sub
Sub JobDone(Job As HttpJob)
Select Job.JobName
Case "Time"
Dim Sax As SaxParser
Sax.Initialize
Sax.Parse(Job.GetInputStream, "Time")
End Select
End Sub
Sub Time_StartElement (Uri As String, Name As String, Attributes As Attributes)
Select Name
Case "timestamp"
Log("Timestamp: " & Attributes.GetValue2("", "time"))
Log("Delay: " & Attributes.GetValue2("","delay"))
End Select
End Sub