nagendrathecoder Ответов: 2

несколько подключение через сокет, используя элемент управления winsock на VB6

Всем Привет,

Может ли кто-нибудь предоставить мне ссылку или статью об использовании множественного сокетного соединения с помощью winsock control в vb6.

----------------Обновление----------------------

Я понял, как использовать сокетное соединение.
Теперь у меня есть проблема.

Мы, используя элемент управления winsock для подключения к внешней программе, чей IP-адрес допустим 192.168.1.1
Теперь нам нужно поговорить с этим контролем на порту 25000
Это нормально, так как мы подключены к одному порту
TCPClient.RemoteHost = '192.168.1.1'
    TCPClient.RemotePort = 25000
   TCPClient.Connect



Но в то же время внешний программист транслирует некоторые сообщения на порт 25001 ,
как мы можем прослушивать этот порт ( нам не нужно отправлять данные на этот порт только слушать), используя тот же winsock или любой другой метод.

----------------Обновление----------------------


Спасибо,
Нагендра.

Sandeep Mewara

Вы пытались найти себя? Гугл?

2 Ответов

Рейтинг:
1

Dave Kreskowiak

Боже, я чувствую себя такой грязной, делая это. щелчок этот[^ и начинайте читать.

Поддержка VB6 в любом виде, форме или форме оставляет меня нуждающимся в душе. Я просто не могу понять, почему кто-то все еще пишет код на VB6. Он давно мертв и не поддерживается. Да, и вы не найдете поддержки среды выполнения VB6 в Windows 8.

Рейтинг:
0

JoinedUpCoder

Просто добавьте еще один элемент управления Winsock и прослушайте его. Вы говорите "вещание", так что это, вероятно, на UDP и на широковещательном адресе сети, поэтому убедитесь, что ваша подсеть рассчитана правильно. Для подсети /24 последний октет будет равен .255. Сохраните его в переменной NetworkBroadcastAddress$. Аналогично, сохраните адрес клиентского компьютера в MyIP$ . Затем, если ваш второй сокет называется TCPClient2, это должно сработать для вас и прослушивания UDP-трансляций на 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