FTP EXPLORER

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