VBCoding Библиотека кодов Visual Basic 6 Интернет и сеть Прослушать порт и вывести в Debug все принятые данные

Visual Basic 6
Прослушать порт и вывести в Debug все принятые данные
Подключите компонент COM Microsoft WinSock Control.
Добавьте на форму компонент ws(WinSock).

'КОД ФОРМЫ
Private Sub Form_Load()
ws.LocalPort = 80 'Номер порта
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
ws.GetData strData
Debug.Print strData
End Sub

Public Sub ws_Close()
ws.Close
ws.Listen
End Sub
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Интернет и сеть Прослушать порт и вывести в Debug все принятые данные  
Powered by Exponenta -