Private Sub Form_Load()
WSoc1(0).Protocol = sckUDPProtocol
WSoc1(0).RemoteHost = "192.168.50.2"
WSoc1(0).RemotePort = 1051
WSoc1(0).Bind 1001
Load WSoc1(1)
WSoc1(1).Protocol = sckUDPProtocol
WSoc1(1).RemoteHost = "192.168.50.3"
WSoc1(1).RemotePort = 1052
WSoc1(1).Bind 1002
End Sub
Private Sub Conf_soc()'
If n = 1 Then
n = 0
Else
n = 1
End If
Zapros
End Sub
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 42