Send Bytes over Socket

Demonstrates how to send bytes over a TCP/IP socket.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim socket As New Chilkat.Socket()

Dim success As Boolean
success = socket.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox("Failed to unlock component")
    Exit Sub
End If



'  Connect to some custom server at some host:port that is expecting
'  to accept the connection and receive the data.
Dim ssl As Boolean
ssl = false
Dim maxWaitMillisec As Long
maxWaitMillisec = 20000
Dim port As Long
port = 4410
success = socket.Connect("www.some-hostname.com",port,ssl,maxWaitMillisec)
If (success <> true) Then
    MsgBox(socket.LastErrorText)
    Exit Sub
End If


'  Set maximum timeouts for reading an writing (in millisec)
socket.MaxReadIdleMs = 10000
socket.MaxSendIdleMs = 10000


Dim byteData() As Byte = {&HFF,&H55,&HAA,0}

'  Send the byte data.
success = socket.SendBytes(byteData)
If (success <> true) Then
    MsgBox(socket.LastErrorText)
    Exit Sub
End If


'  Close the connection with the server
'  Wait a max of 20 seconds (20000 millsec)
socket.Close(20000)