Ftp explorer

Soyez le premier à donner votre avis sur cette source.

Vue 4 525 fois - Téléchargée 486 fois

Description

Vous êtes sur un autre ordinateur que vous, soit chez des amis ou dans un cybercafé ?
Vous voulez ajouter, modifier, supprimer des fichiers ou des dossiers sur votre serveur FTP ?
Pas de chance, vous n'avez pas de programmes sous la main comme des clients FTP (FileZilla, CuteFTP, FlashFXP. Etc...) pour accéder à votre serveur FTP Personnel !
Pas de problème => FTP Explorer est la solution pour transformer votre navigateur web ou bien votre windows explorer en client FTP !

Source / Exemple :


Titre = "FTP EXPLORER © Hackoo © 2012"
    Set objIE = CreateObject( "InternetExplorer.Application" )
    objIE.Navigate "about:blank"
    objIE.Document.Title = Titre
    objIE.ToolBar        = False
    objIE.Resizable      = False
    objIE.StatusBar      = False
    objIE.Width          = 320
    objIE.Height         = 380
    With objIE.Document.ParentWindow.Screen
        objIE.Left = (.AvailWidth  - objIE.Width ) \ 2
        objIE.Top  = (.Availheight - objIE.Height) \ 2
    End With
    Do While objIE.Busy
        WScript.Sleep 200
    Loop
    objIE.Document.Body.InnerHTML = "<div align=""center"">"_
    &"<p><h3 style='color:Red'>Nom Utilisateur "_
    & "<br><input type=""text"" style='color:Blue' size=""20"" "_
    & "id=""Login"" value=""USER LOGIN""></h3></p>"_
    & "</p><p><h3 style='color:Red'>Mot de passe<br><input type=""password"" "_
    &"style='color:Blue' value=""password"" size=""20"" "_
    & "id=""Password""></h3></p><p><input type=" _
    & """hidden"" id=""OK"" name=""OK"" value=""0"">" _
    & "<h3 style='color:Red'>Serveur FTP " _
    & "<br><input type=""text"" style='color:Blue' size=""20"" " _
    & "id=""FTPSERVER"" value=""ftp.membres.lycos.fr""></h3>"_
    & "<br><h3 style='color:Red'>Dossier Distant "_
	& "<br><input type=""text"" style='color:Blue' size=""20"" " _
	& "id=""DossierDistant"" value=""/""></h3></p>"_
    & "<input type=""submit"" value="" EXPLORER FTP "" " _
    & "onclick=""VBScript:OK.Value=1""></p></div>"
    objIE.Document.Body.Style.overflow = "auto"
    objIE.Document.body.style.backgroundcolor="lightGreen"
    objIE.Visible = True
    objIE.Document.All.Password.Focus
    On Error Resume Next
    Do While objIE.Document.All.OK.Value = 0
        WScript.Sleep 200
        If Err Then    
            IELogin = Array( "", "" )
            objIE.Quit
            Set objIE = Nothing
            wscript.quit
        End if
    Loop
    On Error Goto 0
    Set ws = CreateObject("wscript.Shell")
    Login = objIE.Document.All.Login.Value
    Login = Replace(Login,"@","+")'Si le nom d'utilisateur contient le symbole @ 
    'et que le navigateur Web ou bien l'explorateur Windows n'aime pas cela, on le substitue par le symbole +
    Password = objIE.Document.All.Password.Value
    FTPSERVER = objIE.Document.All.FTPSERVER.Value
    DossierDistant = objIE.Document.All.DossierDistant.Value
    URL = "ftp://"&Login&":"&Password&"@"&FTPSERVER&"/"&DossierDistant
    Connect2FTP = ws.run("Explorer "& URL ,1,False)
    objIE.Quit
    ws.Popup "Connexion à "&qq(FTPSERVER)&" est en cours......",3,_
    "Connexion à "&qq(FTPSERVER)&"est en cours......",64
    Set objIE = Nothing
    Set ws = Nothing
    Call Nettoyage()
    
Sub Fermer(Process)
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Taskkill /F /IM "&Process&""
Execution = Ws.Run(Command,0,True)
End Sub

Sub Ouvrir(Process)
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Start "&Process&""
Execution = Ws.Run(Command,0,True)
End Sub

Function qq(strIn) 
    qq = Chr(34) & strIn & Chr(34)
End Function

Sub Nettoyage()
Dim Command(12)
Set ws = CreateObject("wscript.Shell")
'**********************************Commandes pour Windows XP et IE7***********************************************
Command(0) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 255"'Supprimer l'historique
Command(1) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 32"'Supprimer les Passwords enregistrés
Command(2) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 1"
Command(3) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 8"'Supprimer Les Fichiers temporaires
Command(4) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 16" 'Supprimer Les données dans les Formulaires
Command(5) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 2"'Supprimer Les Cookies
Command(6) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 4351"'Supprimer Les fichiers stocké par les ADD-ONS
'*****************************************************************************************************************
'**********************************Commandes pour Windows Vista et Seven et IE8***********************************
Command(7) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 449"'Supprimer l'historique
Command(8) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 288"'Supprimer les Passwords enregistrés
Command(9) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 2304"'Supprimer InPrivateData
Command(10) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 264"'Supprimer Les Fichiers temporaires
Command(11) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 272" 'Supprimer Les données dans les Formulaires
Command(12) = "rundll32.exe %Windir%\system32\inetcpl.cpl,ClearMyTracksByProcess 258"'Supprimer Les Cookies
'*****************************************************************************************************************
For Each strCommand In Command
          If Len(strCommand) > 0 Then
          Execution = ws.Run(strCommand,0,True)
          End If
Next
Fermer("IExplore.exe")
'Ouvrir("IExplore.exe")
Set ws = Nothing
End sub

Conclusion :


Testé sous Windows XP SP2
Vos Commentaires et vos Remarques et surtout vos Notes sont les Bienvenues ! :)
J'attends vos tests sous VISTA et SEVEN
Merci !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Supprimer l'historique et les mots de passe enregistrés devrait suffire, non ?
Messages postés
92
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013

@ghuysmans99
Je vous remercie pour votre remarque constructif.
Effectivement mon script est basé sur cette syntaxe : ftp://user:password@site.com or si vous tapez comme ceci dans la barre d'adresse le mot passe est vu par tout le monde en clair, ainsi que le navigateur ou bien l'explorateur windows les stockent et les sauvegardent automatiquement pour en servir dans l’auto-complétion, donc c'est pour ça j'ai fait ce script pour cacher les URL(s) et les mots passe tapés et n'oubliez surtout pas si vous êtes dans un lieu publique (cybercafé ou autre...) qu'il y a un risque énorme pour découvrir ces derniers, juste vous tapez dans la barre d'adresse par exemple le mot "ftp" et hop l’auto-complétion débute et vous pouvez voyer tout en clair.
Alors j'ai pensé d'ajouter une fonction qui s’appelle Nettoyage() pour effacer l'historique,les cookies,les fichiers temporaires (internet temporary files), les URL(s) et les mots de passe tapés dans la barre d'adresses et stockés par le navigateur et l'explorateur de windows.
J’espère maintenant que le script devient plus utile ! :)
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Mouais, pas très utile à partir du moment où tu peux taper directement
dans la barre d'adresse de IE ftp://user:password@site.com ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.