cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 2 nov. 2005 à 23:55
Salut
Tu pars du principe qu'il suffit de se connecter à un PC pour qu'il te renvoie l'heure ?
Il doit manquer qqchose.
Le port 13, c'est le TelNet : Il faut que tu envoies une demande de lecture afin qu'il te répondre, genre Winsock1.SendData "Qu'est heure est-il, siou plé", ou plus sérieusement Winsock1.SendData "date"
Vois la liste des commandes sur ce site (clique ici)
Après ta connexion, il faut attendre que le serveur ait accepté la connexion :
Do While Winsock1.State = sckConnecting
DoEvents
Loop
If Winsock1.State = sckConnected Then
Winsock1.SendData "date"
Else
MsgBox "Connexion refusée"
End If
Pour faire les choses bien, dans ton Quit, il faudrait fermer la connexion, c'est plus propre : Winsock1.Close
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
abdouinfomiage
Messages postés80Date d'inscriptionmardi 26 juillet 2005StatutMembreDernière intervention 3 février 2008 3 nov. 2005 à 15:10
merci bcp de votre aide concernant winsock
mais le nouveau pb c ke mon winsock n' arrive pas a ce connécter
winsock.State=6 il entre ds la boucle que vous m' avez ds
Do While Winsock1.State = sckConnecting
DoEvents
Loop
If Winsock1.State = sckConnected Then
Winsock1.SendData "date"
Else
MsgBox "Connexion refusée"
End If
et il ne sort pas . je ne sais p+ koi faire aider moi svp et merci