



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 SubPrivate Sub Conf_soc()'
    If n = 1 Then
    n = 0
    Else
    n = 1
    End If
Zapros
End SubСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11