Discussion :

[Waduke]

Bonjour à tous !
J'ai quelques petites question bien précise à vous demandez, j'ai fai quelques recherches mais rien trouver malheureusement..
Concernant l'upload ftp, j'utilisais inet mais je dois faire une nouvelle appli qui doit lire un fichier txt puis le modifier (donc download et upload) se trouvant sur un SFTP, ssl port 22 donc..

La question principale est : Comment faire ?
Est ce réalisable via le composant Inet ? Quelqun aurait-il un exemple à me proposer ?

Merci de votre attention et bonnes fêtes à tous

Wad

[Waduke]

Je crois avoir trouvé une bonne piste
http://www.example-code.com/vb/sftp.asp
Mais est ce que c'est bien pour la version VB6 ? Je n'aurai pas de composant ou dll à inclure avec ça ?

[OhMonBato]

Il est indiqué au dessus de chaque extrait de code qu'il faut télécharger un composant et en allant voir un peu sur le site, tu vois que ce composant est payant.

Peut être que ceci répond mieux à ton besoin ?
http://www.codeguru.com/forum/showthread.php?t=398366

[Waduke]

Ah ok..
Merci à toi OhMonBato , sinon concernant ton lien, il indique une méthode pour le FTP, la méthode INET (celle que j'utilise) pas pour le sftp, il ne répond pas vraiment à la question du mec.

Bon ben si je reste coincé je pense que je vais payer ce composant, pas trop de choix..

[DarkVader]

As-tu essayé en utilisant les Api FTP de wininet ?
En passant le port 22 à InternetConnect cela devrait le faire.
Pour un exemple en FTP voir AllApi.

[Waduke]

As-tu essayé en utilisant les Api FTP de wininet ?
En passant le port 22 à InternetConnect cela devrait le faire.
Pour un exemple en FTP voir AllApi.

J'ai essayé INET avec le remoteport = 22 mais ca ne fonctionne pas, je recois comme message d'erreur : "Protocol not supported for this method. Run-time error 35752"
Le problème c'est le protocol en fait..
Je suis en AccessType = icDirect et Protocol = icFTP, concernant les protocols je n'ai que ces choix ci avec inet :
- icUnknown
- icDefault
- icFTP
- icGopher
- icHTTP
- icHTTPS

Sinon voici mon code d'essai avec INET :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Open "CharacterAccountLog.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, TextLine
    If TextLine <> (txt_idlog + ";" + txt_idpass) Then
    'Debug.Print TextLine
 
        Else
        With Inet1
        .RemotePort = 22
        .AccessType = icDirect
        .Protocol = icFTP
        .url = "sftp://user:password@adressesftp"
        .RequestTimeout = 40
 
        .Execute , "PUT " & "C:\chemin\CharacterAccountLog.txt" & " /chemin/CharacterAccount/logs.txt"
        While .StillExecuting
        DoEvents
        Wend
        'Debug.Print Inet1
        .Execute , "CLOSE"
        MsgBox "Inscription réussie"
        End With
 
        indice = True
        MsgBox "Lancement du jeu"
        'RetVal = Shell("Updater.exe", 1)
        Identification.Visible = False
        ObliviOnline.Visible = True
 
    End If
Loop
Close #1

EDIT : J'ai essayé en virant juste le "sftp://" sur la propriété .url du INET, et là, je recois bien ma msg box inscription réussie, lancement de jeu, aucun message d'erreur, mais lorsque je me connecte sur le sftp, mon fichier txt n'est pas là ..

Sinon OhMonBato,

Il est indiqué au dessus de chaque extrait de code qu'il faut télécharger un composant et en allant voir un peu sur le site, tu vois que ce composant est payant.

C'est bien ca si j'ai compri ? http://www.chilkatsoft.com/buySsh.asp
Et lequel exactement pour l'utilisation de la method read et write ?
A quoi sert le setup de l'activeX en libre dl alors ? Si je choisis de l'acheter, ce serait cool si tu pouvais m'aiguiller pour l'installer et m'en servir dans mon code, jamais fais ce genre de truc sous VB, je te filerai le composant si tu veux.
Sinon le gros avantage de ce composant, ca semble être qu'il évite de devoir download et upload le fichier localement dans ton code pour le lire et le modifier à l'inverse de INET.

Encore merci pour vos réponses