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.
SocketConnect("test",23,"192.168.1.166")
SocketChangeModeTransmission("test",SocketSansMarqueurFin)
SocketWrite("test","uid"+caract(10))
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4629&post_id=19230