Quel composant installer dans ce cas?

Question

Quelqu'un pourrait m'indiquer quel composant il faut installer pour utiliser le code suivant (trouvé sur ce forum).

Je ne trouves pas le composant Inet1 sur mon Visual basic.

Private Sub Form_Load()
    With Inet1
        .AccessType = icUseDefault
        .URL = "ftp://ftpperso.free.fr"
        .UserName = "MonPseudo"
        .Password = "MonPassword"
        '.RequestTimeout = 40
        .Execute , "PUT MonFichierDestination.htm MonFichierSource.htm"
        Do While Inet1.StillExecuting
            DoEvents
        Loop
        .Execute , "CLOSE"
    End With
End Sub

MErci davance!!!

PatriceVB · Answer

T'as pas ce composant, parce que tu dois avoir la version initiation ou la version standard de vb. Passe à la version pro et devrai pas y avoir de problèmes...

gabalgabow · Answer

Nan,
j'ai la bonne version et j'ai installé le composant,

mais avec le code suivant ça marche pas,
(VB me dit: "1 objet est requis")

que faire??

With Inet1
.URL = "ftp://ftp.membres.lycos.fr"
.UserName = "user"
.Password = "passw"
.Execute , "PUT *groupes.frm* *groupes.frm*" 'le 1er est le nom du fichier sur le disque dur et le 2eme le nom du fichier sur le ftp
End With

GRIND YER FACE!!

TTMan · Answer

T'as mis quoi come nom du composant? il faut que Name soit mis à Inet1 (le nom utilisé dans ton code...) Sinon, vérifie que le ctrl est bien enregistré avec regsvr32.
Bye et bonne proggg

gabalgabow · Answer

Le nom du composant est à Inet1,
on fait comment pour vérifier que le ctrl est bien enregistré avec regsvr32?

Merci!
Gab

TTMan · Answer

tu fais démarrer exécuter, regsvr32 puis le chemin pour arriver àl'ocx ou àla dll et ça l'enregistre à nouveau...
Bonne progg

gabalgabow · Answer

J'ai bien fais ce que tu m'as dit,
mais j'ai le problèem suivant:

Une fois que j'ai mis en route le script de Inet,
il ne se passe rien (tout à l'air Ok),
quand je clique une 2nd fois sur le bouton,
il me dit que le script est encore en éxécution,
ou est le problème?

J'ai essayé avec ces 2 versions, même résultat:

With Inet1
.URL = "ftp://member@ftp.membres.lycos.fr/"
.UserName = "member"
.Password = "passw"
.Execute , "PUT C:\Mes documents\sites\kroniks.doc  ftp://member@ftp.membres.lycos.fr/kroniks.doc" 'le 1er est le nom du fichier sur le disque dur et le 2eme le nom du fichier sur le ftp
MsgBox ("aaaaaaa")
End With

With Inet1
.URL = "ftp://member@ftp.membres.lycos.fr/"
.UserName = "member"
.Password = "passw"
.Execute , "PUT kroniks.doc  kroniks.doc" 'le 1er est le nom du fichier sur le disque dur et le 2eme le nom du fichier sur le ftp
MsgBox ("aaaaaaa")
End With

What's up??

GRIND YER FACE!!

TTMan · Answer

Yé sais po... essaye de reposer la question (pour être sans réponse, donc quelqu'un de plus calé avec Inet pourra peut-être t'aider).
Bonne Progggg

Quel composant installer dans ce cas?

7 réponses

Discussions similaires