[R] FTP en boucle...

[Sydneysyd]

Bonjour à tous,

Un petit souci sur un script, j'ai une GUI avec un bouton FTP. En cliquant dessus, il demande le nom d'utilisateur et le mot de passe, puis ouvre le ftp en tant que dossier. Le problème est que la demande d'accès tourne en boucle et je ne comprends pas pourquoi...

Voici le code

Code : Tout sélectionner

Case $FTP


$Username= InputBox("Nom d'utilisateur", "Entrez ici votre nom d'utilisateur FTP", "", "")
 If $Username = "" Then  $Username = "anonymous"

$Password = InputBox("Password", "Entrez ici votre mot de passe FTP", "", "*")
 If $Password = "" Then  $Password = "anonymous"

$FTP = ("ftp02.jvs.fr")

$Port = ("21")

Run('explorer.exe ftp://' & $Username & ':' & $Password & '@' & $FTP & ':' & $Port)

 

De plus, j'aimerais savoir comment être sûr que c'est un dossier FTP qui s'ouvre et pas Internet Explorer par exemple.

Merci d'avance pour votre aide

[Ks10]

Bonjour,

Vérifie absolument que tu a les bons identifiants.
Ensuite j'ai vu que en dirait tu accède au ftp via l'explorer, pourquoi ne pas tester avec les commandes dédié au FTP pour faire tes travaux ?

[Sydneysyd]

J'ai les bon identifiants, vu que le dossier s'ouvre, mais ca le fait en boucle.

Je veux absolument ouvrir un dossier FTP, car ainsi je peux faire la copie à la volée des dossiers voulues par un glisser déposer.

Comme les dossiers changent de noms souvent, cela m'évite de changer le code à chaque fois. Voilà pourquoi je ne prend pas les commandes dédiés FTP.

[jguinch]

Si tu lances explorer.exe, ça doit ouvrir le dossier dans l'explorer, pas avec IE (du moins pour moi ça marche sur mon poste).

Pour le mot de passe en boucle, est-ce que par hasard tu as un @ dans ton mot de passe ?

[Sydneysyd]

Salut Jguinch,

Pour le fait que je veuille que cela ouvre l'explorer, c'est que parfois j'ai eu en le faisant en direct, Internet explorer qui s'ouvrait et pas un dossier.

Pour le mot de passe, il y a un $ et un *, tu penses que ca peut venir de là ?

[jguinch]

Le fait qu'il y ait des caractères spéciaux peut effectivement perturber.
Il faudrait essayer d'encoder le nom d'utilisateur et le mot de passe : http://en.wikipedia.org/wiki/Percent-escape
Regarde ce post, il est pas mal.

[Sydneysyd]

ok, merci

Je tiens au courant

[Sydneysyd]

Je viens de lire, mais je n'arrive pas à voir comment le rendre fonctionnel sur le lien qu'il m'a été donné.

J'ai mis le code du forum sur un fichier AutoIT que j'ai mis dans l'include

Mais après, comment je fais ?

Désolé de poser une question aussi simple, mais je ne vois pas comment encoder ensuite ma variable $password...

[jguinch]

Essai ça :

► Afficher le texte

Code : Tout sélectionner

$user = "MyUsername"
$password = "P@$$w0rd*"
$site = "ftp.website.com"

$url = "ftp://" & _URIEncode($user) & ":" & _URIEncode($password) & "@" & $site
; sans encodage, on aurait [b]ftp://MyUsername:P@$$w0rd*@ftp.website.com[/b]
Run("explorer.exe " & $url)

Func _URIEncode($sData)
    ; Prog@ndy
    Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
    Local $nChar
    $sData=""
    For $i = 1 To $aData[0]
        ; ConsoleWrite($aData[$i] & @CRLF)
        $nChar = Asc($aData[$i])
        Switch $nChar
            Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
                $sData &= $aData[$i]
            Case 32
                $sData &= "+"
            Case Else
                $sData &= "%" & Hex($nChar,2)
        EndSwitch
    Next
    Return $sData
EndFunc
 

[Sydneysyd]

Génial !

Merci beaucoup

Une petite question : Tu l'as fait exprès de rajouter le petit bout de code à la fin pour que ca plante ? lol

[jguinch]

Arf... le copié-collé..
C'est corrigé