Measure Elapsed Time with the Convenience Timer

See more Socket/SSL/TLS Examples

Demonstrates Socket.StartTiming, which starts or restarts the object's convenience timer. The ElapsedSeconds property then reports the whole number of seconds since the call.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set socket = CreateObject("Chilkat.Socket")

'  Start (or restart) the object's convenience timer.
socket.StartTiming 

'  Perform some work.  (Here the thread simply sleeps to let time pass.)
socket.SleepMs 1500

'  Read the whole number of seconds elapsed since StartTiming was called.
outFile.WriteLine("Elapsed seconds: " & socket.ElapsedSeconds)

outFile.Close