Ftp explorer

Télécharger le projet
Commenter

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 !
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_hackoo)