Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[VBS] FTP Explorer
Auteur Message
Répondre en citant
Message [VBS] FTP Explorer 

Besoin de transférer des fichiers sur votre site web mais pas de client FTP sous la main...qu'à cela ne tienne le navigateur web fera très bien l'affaire.
Testé sous Windows XP SP2.


J'attends vos tests sur Vista et Seven

Code:
[lang=vb]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         = 300
    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></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="lightblue"
    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
    Password = objIE.Document.All.Password.Value
    FTPSERVER = objIE.Document.All.FTPSERVER.Value
    'Fermer("Explorer.exe")
    'Ouvrir("Explorer.exe")
    URL = "ftp://"&Login&":"&Password&"@"&FTPSERVER&""
   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

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




Dernière édition par Hackoo le Mar 14 Aoû 2012 - 18:16; édité 1 fois

______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Mise à jour du FTP Explorer 
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 !



Code:
[lang=vb]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
    'Fermer("Explorer.exe")
    'Ouvrir("Explorer.exe")
    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

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





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [VBS] FTP Explorer 
Salut.

Il fonctionne chez moi sous Windows 7. Par contre il y a une barre de défilement horizontale et verticale, tu pourrais baisser un peu la taille pour que ça ne se voie pas.




______________________________________________________
Répondre en citant
Message [VBS] FTP Explorer 
sablier94 a écrit:
Salut.
Il fonctionne chez moi sous Windows 7. Par contre il y a une barre de défilement horizontale et verticale, tu pourrais baisser un peu la taille pour que ça ne se voie pas.

Bon c'est bien donc pour windows 7 ça marche bien !
pour le test !
pour supprimer la barre de défilement horizontale et verticale modifie ces valeurs dans la ligne 8 et 9:
Code:
objIE.Width = 320
objIE.Height = 380

et dis-moi le résultat ou bien il serait mieux de poster un aperçu en image (capture d'écran)





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [VBS] FTP Explorer 
C'est réglé en passant la hauteur de 380 à 390.




______________________________________________________
Répondre en citant
Message Mise à jour du 13/08/2012 

Bon j'ai ajouté une fonction Nettoyage() pour effacer l'historique,les fichiers temporaires, les cookies et les mots de passe enregistrés par le navigateur web et l'explorateur windows
Code:
[lang=vb]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         = 390
    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





______________________________________________________
Mes Contributions en Téléchargement
Message [VBS] FTP Explorer 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch