multiple socket connection using winsock control in vb6

Question

0.00/5 (No votes)

See more:

Hello All,

Can anybody provide me a link or article on using multiple socket connection using winsock control in vb6.

----------------Update----------------------

I got how to use socket connection.
Now i have a problem.

We are using Winsock control to connect to external program whose ip address let’s say 192.168.1.1
Now we need to talk with that control on port 25000
This is fine as we are connected to the same port

TCPClient.RemoteHost = '192.168.1.1'
    TCPClient.RemotePort = 25000
   TCPClient.Connect

But at the same time external programmer is broadcasting some messages on port 25001 ,
how can we listen to that port ( we don’t need to send data to this port only listen ) using the same winsock or there is any other method.

----------------Update----------------------

Thanks,
Nagendra.

Posted 16-May-11 21:06pm

nagendrathecoder

Updated 17-May-11 2:30am

v2

Add a Solution

Comments

Sandeep Mewara 17-May-11 3:15am

Did you try to find yourself? Google?

2 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dave Kreskowiak · Answer 1 · 2011-05-17T09:00:00

God, I feel so filthy doing this. CLick this[^] and start reading.

Supporting VB6 in any way, shape, or form leaves me needing a shower. I just cannot accept, at all, why ANYONE is still writing code in VB6. It's long dead and unsupported. Oh, and you won't find support for the VB6 runtime in Windows 8.

JoinedUpCoder · Answer 2 · 2020-06-20T11:44:00

Simply add another Winsock control and listen to it. You say "Broadcasting" so it's probably on UDP and on the network's broadcast address so be sure you have your subnet calculated correctly. For a /24 subnet, the last octet will be .255. Save it in a variable called NetworkBroadcastAddress$. Similarly, store the client computer's address in MyIP$ . Then, if your second socket is called TCPClient2, this should work for you to and listen for UDP broadcasts on 25001.

With TCPClient2
        .LocalIP = NetworkBroadcastAddress$
        .Protocol = sckUDPProtocol
        .Bind 25001, MyIP$ 
        .Listen
        
        If .State = sckListening Then
            Msgbox "Listening on Socket " & .LocalPort 
        Else
            Msgbox "Deaf !"
        End If
End With

multiple socket connection using winsock control in vb6

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

multiple socket connection using winsock control in vb6

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us