A client server network sample, based on Winsock

				
'**************************************
' Name: A client server network sample, based on Winsock
' Description:TCP/IP and Winsock based client server sample. Client connects to server (listens on port 1500) and sends a couple of messages.
' By: Tako Griffith
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8837&lngWId=4'for details.'**************************************

' ********************************************************************
' TCP/IP client/server sample - send and Receive binary data
'Requires freeware ASocket.dll to run the sample.
'Download it from http://www.vahland.com/asocket/asocket.dll
'and register it (REGSVR32 asocket.dll) on your machine.
'
' IMPORTANT: 
'Online manual: http://www.vahland.com/asocket/manual.htm
' ********************************************************************
' Constants: Connection states
Const asCONN_DISCONNECTED=1
Const asCONN_LISTENING=2
Const asCONN_CONNECTED=3
' Constants: Error codes
Const asERR_SUCCESS=0
' Constants: Protocols
Const asPROTOCOL_RAW=1
Const asPROTOCOL_TELNET=2
' Create a socket instance
Set asObj = CreateObject("ActiveXperts.Socket")
asObj.Protocol = asPROTOCOL_RAW
' Make a connection to port 1500 on remote server
asObj.Connect "127.0.0.1", 1500
WScript.Echo "Connect: result = " & asObj.LastError
If asObj.LastError = 11001 Then
WScript.Echo "Error 11001: Specify a valid hostname-parameter in the Connect-method."
End If
If asObj.LastError = asERR_SUCCESS Then
 ' YES, we established a connection
 WScript.Echo "Connection established" & vbCrLf
 ' Send 256 bytes now: 0, 1, .., 255
 For i = 0 To 255
asObj.PutByte( i )
WScript.Echo "PutByte: " & i
If i mod 10 = 0 Then
 asObj.SendBytes()
 WScript.Echo "SendBytes, result: " & asObj.LastError
 asObj.Sleep 1000
End If 
 Next
 asObj.SendBytes()
 WScript.Echo "SendBytes, result: " & asObj.LastError
 ' And finally, disconnect
 asObj.Disconnect
End If