WDForge.org - Forums

Re: SVP A l'aide!! : Client Telnet sous Windev??

Sujet: Re: SVP A l'aide!! : Client Telnet sous Windev??
par nabmed sur 12/10/2006 12:24:46

Salut;

Merci Imame pour ta réponse;

J'ai modifié le code pour apporter les modifications que tu disait mais je reçoi la réponse seulement dans la premièrte ligne socketLit, et je reçoi les caractères suivant "ÿý%ÿûÿûÿý'ÿýÿý", aussi si possible de me donner un exemple de code pour lire la réponse du serveur telnet.

Voilà mon dernier code (donnees est une zone de saisie multilignes) :

---------------------------------------
Multitask()
IF NOT SocketExist("telnet1") THEN

IF NOT SocketConnect("telnet1",23,"127.0.0.1") THEN
Error(ErrorInfo())
RETURN
END

SocketChangeModeTransmission("telnet1",SocketSansMarqueurFin)
donnees= donnees+ RC+ SocketLit("telnet1",False)
SocketWrite("telnet1","uid"+ Caract(10) )
donnees= donnees+ RC+ SocketLit("telnet1",False)
SocketWrite("telnet1","pwd"+ Caract(10))
donnees= donnees+ RC+ SocketLit("telnet1",False)
SocketWrite("telnet1","d:"+ Caract(10))
donnees= donnees+ RC+ SocketLit("telnet1",False)
SocketWrite("telnet1","cd\"+ Caract(10))
donnees= donnees+ RC+ SocketLit("telnet1",False)
SocketWrite("telnet1","dir *.* >> dir06.txt"+ Caract(10))
donnees= donnees+ RC+ SocketLit("telnet1",False)
SocketClose("telnet1")
ELSE
Info("existe")
END
---------------------------------------
Merci.