Connexion refusée

Question

slt tous le monde, j le pb suivant j' ai developp&#233; une application qui me permet de savoir 

la date et l'heur d'un pc qui se trouve sur mon r&#233;seau en s&#233;sissant son adr&#233;sse IP

mais a chaque fois que j'&#233;ssaie de me conn&#233;cter la connexion est refus&#233;e 

j'utilise le code suivant :

Private Sub Connexion_Click()

    txtDateTime = ""

    Winsock1.Close

    Winsock1.LocalPort = 0

    Winsock1.Connect Trim(txtHote), 13

    Do While Winsock1.State = sckConnecting

        DoEvents

    Loop

    If Winsock1.State = sckConnected Then

        Winsock1.SendData "date"

    Else

        MsgBox "Connexion refus&#233;e"

    End If

    

End Sub



Private Sub Form_Load()

    txtHote = "192.168.0.2"

    txtDateTime = ""



End Sub



Private Sub Quit_Click()

    Unload Me

End Sub



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim Donn&#233;es As String

    

    Winsock1.GetData Donn&#233;es, vbString

    txtDateTime = txtDateTime & Trim(Donn&#233;es)

End Sub



je ne sais p+ koi faire aider moi svp

cs_Jack · Answer

Salut
Parce que le PC destination a un parefeu ou qu'il n'accepte pas de connexion en TelNet.
Ne faut-il pas d&#233;marrer qqchose cot&#233; distant ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

abdouinfomiage · Answer

j ai mm esaiy&#233; avc 127.0.0.1 et sa pas mach&#233; et j pas de firewall

cs_Jack · Answer

Pendant que j'y pense : le port TelNet, ce n'est pas 13, mais 23 !

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Connexion refusée

3 réponses

Discussions similaires