Inet pas net ^^

Messages postés
19
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
10 juin 2005
-
Messages postés
19
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
10 juin 2005
-
Bon alors je pense avoir bien compris mais ça ne marche pas !

la stausbar de ma dialog stagne sur "reçoit avec succès une réponse en provenance de l'ordinateur hôte." et mon fichier n'est jamais transmit !

mon code :
Private Sub OKButton_Click()

On Error GoTo ErrorHandler

 With Inet1
   .URL = "www.monsite.com"
   .UserName = "moi"
   .RemotePort = "siteWeb"
   .Password = "pipo"
   
   If FTPremorDir.Text <> "" Then
      .Execute , "CD " & FTPremorDir.Text
      While Inet1.StillExecuting
          DoEvents
      Wend
   End If
   
   .Execute , "PUT " & Pathtofile & Filename & " " & Filename

 End With
 
MousePointer = ccDefault

Exit Sub

ErrorHandler:

    MousePointer = ccDefault
    MsgBox Err.Description
    
End Sub

Private Sub Inet1_StateChanged(ByVal state As Integer)

Select Case state
Case 1
    etat.SimpleText = "Recherche l'adresse IP de l'ordinateur hôte."
Case 2
    etat.SimpleText = "L'adresse IP de l'ordinateur hôte spécifié."
Case 3
    etat.SimpleText = "En cours de connexion avec l'ordinateur hôte."
Case 4
    etat.SimpleText = "La connexion avec l'ordinateur hôte est réussie."
Case 5
    etat.SimpleText = "Envoie une demande à l'ordinateur hôte."
Case 6
    etat.SimpleText = "La demande a été envoyé  avec succès."
Case 7
    etat.SimpleText = "Reçoit une réponse en provenance de l'ordinateur hôte."
Case 8
    etat.SimpleText = "reçoit avec succès une réponse en provenance de l'ordinateur hôte."
Case 9
    etat.SimpleText = "En cours de déconnexion avec l'ordinateur hôte."
Case 10
    etat.SimpleText = "La déconnexion avec l'ordinateur hôte est réussie."
Case 11
    etat.SimpleText = "Une erreur s'est produite lors de la communication avec l'ordinateur hôte."
Case 12
    etat.SimpleText = "L'exécution de la demande est terminée et toutes les données ont été reçues."
End Select

If state = 11 Then
    MsgBox "Une erreur s'est produite lors de la communication avec l'ordinateur hôte."
End If

End Sub

1 réponse

Messages postés
19
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
10 juin 2005

allez quoi keski va pas ?