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 5/10/2006 16:13:07

salut;
Merci pour votre réponse, seulement je ne reçoi pas de notification de réponse par e-mail.

Putty ne fera pas l'affaire par ce que les ligne retourné doivent être traité en chaîne de caractère et affiché sur table, aussi l'opération est répititif chaque 10 minute en continue.

Actuellement je teste sur un poste Win XP.
Aprés quelque teste, j'ai résussi a écrire le code suivant, il n'affiche pas d'erreur, mais il reste figé lorsqu'il arrive à la première instruction Info(SocketLit("telnet1",False,300)) :

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

SocketWrite("telnet1",RC)
// info(SocketLit("telnet1",false,300))
SocketWrite("telnet1","uid"+RC) // pour le login
// info(SocketLit("telnet1",false,300))
SocketWrite("telnet1","pwd"+RC) // pour le password
Info(SocketLit("telnet1",False,300))
SocketWrite("telnet1","d:"+RC)
Info(SocketLit("telnet1",False))
SocketWrite("telnet1","cd\"+RC)

SocketWrite("telnet1","dir *.* >> dir06.txt"+RC)

SocketClose("telnet1")
ELSE
Info("existe")
END
---------------------------------------------------------------------
Merci & cordialement.