VBScript

Poll a Socket for Available Data

Demonstrates Socket.PollDataAvailable, which performs a nonblocking check for readable activity and returns whether data or another read-ready condition is present.

Background. This lets an application check for incoming data without blocking, for example in an event loop that services multiple tasks.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

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

success = 0

set socket = CreateObject("Chilkat.Socket")

'  Connect to the server using TLS.
bTls = 1
maxWaitMs = 5000
success = socket.Connect("example.com",5000,bTls,maxWaitMs)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

'  Perform a nonblocking check for readable data.  Returns 1 when data or another read-ready
'  condition is present, and 0 when nothing is immediately available.
bAvailable = socket.PollDataAvailable()
If (bAvailable <> 1) Then
    outFile.WriteLine("No data is immediately available.")
Else
    outFile.WriteLine("Data is available to read.")
End If


outFile.Close