panorama12
Messages postés39Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention21 juin 2006
-
29 mars 2006 à 15:03
OneHacker
Messages postés1447Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention23 septembre 2007
-
29 mars 2006 à 20:56
bonjour.
j'utilise vb pour me connecter à un automate en ftp et je ne comprends pas pourquoi les commandes que j'nvoie ne sont pas reconnues.IL y a juste "pwd" qui est reconnue.
Voila mon code.Par exemple ici j'envoie la commande "lcd" mais la réponse est "command not understood".Si quelqu'un peut m'aider... parce que je suiq vraiment bloqué et je ne peux plus avancer dans mon projet.Merci d'avance
Option Explicit
Dim strdata As String
Private Sub Connexion_Click()
If Winsock1.State <> sckConnected Then
Winsock1.RemoteHost = "129.1.121.66"
Winsock1.RemotePort = 21
Winsock1.Connect
Else
MsgBox "Vous êtes déjà connecté"
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strdata, vbString
If strdata Like "*localhost*" Then
Winsock1.SendData "USER " & "cabradio" & vbCrLf
ElseIf strdata Like "*Password*" Then
Winsock1.SendData "PASS " & "cab1148" & vbCrLf
ElseIf strdata Like "*logged*" Then
Winsock1.SendData "dir"
'Winsock1.SendData "lcd" & vbCrLf
Else
Text2.Text = strdata
End If
End Sub