How to write a TCP/IP client server socket program in vbscript?

Question

Hi,&nbsp;&nbsp; Please anyone help me for writing a TCP/IP client server socket program in vbscript.In testcomplete documentation the same program is written for javascript.&nbsp;&nbsp; Will anyone help me to convert the same into vbsctipt?Thanks,Manne

reshma_bh · Answer

Function Test()     &nbsp;     &nbsp; Dim address, port, receiveTimeout, socket, connectionsQueueLength, connectedSocket, broadcast, endpoint, byteType, binaryData, maxLength, receivedLength, byteStr, str     &nbsp;&nbsp;     &nbsp; address = "122.188.113.56"     &nbsp; port = 3000     &nbsp; receiveTimeout = xxxx     &nbsp; connectionsQueueLength = 0     &nbsp;     &nbsp; Set Socket = dotNET.System_Net_Sockets.Socket.zctor(dotNET.System_Net_Sockets.AddressFamily.InterNetwork,dotNET.System_Net_Sockets.SocketType.Stream,dotNET.System_Net_Sockets.ProtocolType.Tcp)     &nbsp; Set broadcast = dotNET.System_Net.IPAddress.Parse(address)     &nbsp; Set endpoint = dotNET.System_Net.IPEndPoint.zctor_2(broadcast, port)     &nbsp; socket.Bind(endpoint)     &nbsp; socket.Listen(connectionsQueueLength)     &nbsp;&nbsp;     &nbsp; connectedSocket = socket.Accept()     &nbsp; Call connectedSocket.SetSocketOption_3(dotNET.System_Net_Sockets.SocketOptionLevel.Socket,dotNET.System_Net_Sockets.SocketOptionName.ReceiveTimeout,receiveTimeout)     &nbsp; &nbsp;&nbsp;     &nbsp; maxLength = 256     &nbsp; byteType = dotNET.System.Type.GetType("System.Byte")     &nbsp; binaryData = dotNET.System.Array.CreateInstance(byteType, maxLength)     &nbsp;     &nbsp; If connectedSocket.ReceiveFrom(binaryData, endpoint)Then     &nbsp;&nbsp;     &nbsp; &nbsp; receivedLength = connectedSocket.ReceiveFrom(binaryData, endpoint)     &nbsp; Else     &nbsp; &nbsp; &nbsp; '// An exception occurs if no data is received     &nbsp; &nbsp; receivedLength = 0     &nbsp; End IF     &nbsp; byteStr = ByteArrayToHexString(binaryData, receivedLength, "0x")     &nbsp; str = dotNET.System_Text.ASCIIEncoding.get_ASCII().GetString(binaryData)     &nbsp; str.SetLength(receivedLength)     &nbsp; Log.Message (receivedLength + " bytes were received: " + byteStr +"String Value: " + str)     &nbsp;&nbsp;     &nbsp; if (str = "TestMessage") Then     &nbsp; &nbsp; &nbsp;Log.Message "The received data is valid and a positive response will be sent"     &nbsp; &nbsp; binaryData = dotNET.System_Text.Encoding.ASCII.GetBytes_2("OK")     &nbsp;&nbsp;     &nbsp; else&nbsp;     &nbsp; &nbsp; &nbsp; Log.Message "The received data is invalid,a negative response will be sent"     &nbsp; &nbsp; binaryData = dotNET.System_Text.Encoding.ASCII.GetBytes_2("OK")     &nbsp; End IF     &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;     &nbsp; &nbsp; &nbsp; connectedSocket.Close     &nbsp; &nbsp; &nbsp; socket.Close &nbsp;&nbsp;     &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;     &nbsp;     End Function     &nbsp;     Function ByteArrayToHexString(byteArray, byteCount, prefix)     &nbsp;     &nbsp; Dim i, string     &nbsp; string = ""     &nbsp;i = 1&nbsp;     Do While i = (i &lt; byteArray.Length) &amp; (i &lt; byteCount)     &nbsp; string = dotNET.System.String.Format(prefix + "{0:X} ", byteArray.Get(i))     &nbsp; return string &nbsp;     Loop     &nbsp; &nbsp;     End Function      Thanks, Reshma &nbsp;

tanyayatskovska · Answer

Hi Manne, &nbsp; TestComplete documentation is huge! Post here the link where you found an example in JScript so that everybody could see the example. &nbsp;

rajibpradhan · Answer

Hi,&nbsp;&nbsp; Javascript code for TCP/IP socket is here.http://support.smartbear.com/viewarticle/9004/http://support.smartbear.com/viewarticle/9003/Thanks,Rajib

tanyayatskovska · Answer

Hi, &nbsp; Great! As far as I can see, the System  and System.Net assemblies are used there. Calling them in VBScript and JScript is very similar. You only need to use the Set statement to get the result in VBScript. Other changes are related only to the language syntax. Does anybody want to translate the scripts? We can add VBScript samples to these How To articles and specify the author name :). &nbsp;

tanyayatskovska · Answer

Hi Reshma, &nbsp; Thanks for the VBScript sample! I'll pass it to the team who can update the How To article. &nbsp;

Forum Discussion

How to write a TCP/IP client server socket program in vbscript?

5 Replies

Recent Discussions

Failed to upload the report data - An exception occurred

Unable to access popup menu from MFC Ribbon Dropdown button

How to compare local variables with a reusable script in TestComplete?

Related Content

Can TC communicate to other app by TCP/IP or twincat ads?

Goto in VBScript

TCP/IP client example in JScript; how to send HEX values in bytearray?