asked on

Winsock Visual Basic Question

I have a Visual Basic 6 application that I'm writing to connect to two remote micro-controllers. The micro controllers each have their own IP addresses and ports. My laptop application has two Winsock controls in a form that I connect and try to read/write data to each controller. Both controllers are Arduino Ethernets and are programmed to be servers. My application on my laptop is programmed to connect to each using "sckTCPProtocol".

Controller 1: Winsock1 192.168.1.100 port 11010
Controller 2: Winsock2 192.168.1.101 port 11011

In my Visual Basic application, I make the connections on loading the app, then I have a timer that I placed the winsock.sendData command in such that I intend to "sendData" periodically to Winsock1 and Winsock2. Unfortunately, I can't seem to send data to both at the same time. Both connect but I can't send data to both when running in the same application. I can comment one and send to the other and vice versa. But I can't send data to both in the application. I've tried closing one connection and alternating but that doesn't work. I don't want to run two separate executables.

Private Sub Timer1_Timer()
If Not Winsock2.State = sckConnected Then
'Winsock2.Connect
Winsock2.SendData Packet2
'Winsock2.Close
End If

If Not Winsock1.State = sckConnected Then
'Winsock1.Connect
Winsock1.SendData Packet1
'Winsock1.Close
End If
End Sub

Any suggestions? Definitely need help on this one.

ASKER CERTIFIED SOLUTION

Bembi

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

chaau

To connect to more than one host you need to create a Winsock array. You do this by setting a different index for each of the controls. Set the Index property of Winsock1 to 0, and Winsock2 to 1, like this:

Winsock1.Index = 0
Winsock2.Index = 1

Open in new window

You can do this in designer, I believe.

jkaios

See if this can help:

https://www.experts-exchange.com/questions/21878112/Issue-using-MS-Winsock-control-in-VB6.html

jkaios

...Or these...

Creating Client/Server Application using Winsock:
http://www.codeproject.com/Purgatory/winsock.asp

Using the Winsock Control in Client/Server Applications:
http://www.15seconds.com/issue/010820.htm

Winsock Programming:
http://www.devx.com/vb2themax/Article/19879/1954?pf=true

ScottVeitch

ASKER

Using the DoEvents definitely worked. However, I didn't need to close or open any connections. I just had the DoEvents in the Sub( ) after the first Winsock1.sendData prior to the second Winsock2.sendData. Works like a champ now. Thank you very much.