FTP

Question

Bonjour


Excusez moi de vous d&#233;ranger mais j'ai un petit pb et je sais que vous etes bien fort sur ce sujet.


Voici mon pb je voudrais tout simplement me connecter &#224; un serveur ftp et lui envoyer certains fichier .


Moi je fais ca et ca marche pas , en fait il arrive pas &#224; reprendre le focus de la fenetre dos et ecrire dedans:


'Fonction priv&#233; qui fonctionne uniquement sur cette feuille


Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400


'    Fonction public qui &#233;x&#233;cute Job JobToDo


Public Sub ShellWait(ByVal JobToDo As String)
Dim hProcess As Long, retval As Long
    
  hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, vbMinimizedNoFocus))
  Do
    GetExitCodeProcess hProcess, retval
    DoEvents
    Sleep 100
    
  Loop While retval = STILL_ACTIVE
    
End Sub


Private Sub Form_Load()


lib77 = FreeFile
  Open App.Path & "\install.ini" For Input As #lib77
  Do While Not EOF(lib77)
    Line Input #lib77, ligne$
    tt = Split(ligne$, "=")
    Select Case LCase(tt(0))
    Case "boite_ftp"
      Boite_ftp = tt(1)
    Case "identifiant_pci"
      Identifiant_pci = tt(1)
    Case "identifiant_tnt"
      Identifiant_tnt = tt(1)
    Case "adresse_ip"
      Adresse_ip = tt(1)
    Case "mdp_pci"
      Mdp_pci = tt(1)
    Case "mdp_tnt"
      Mdp_tnt = tt(1)
    End Select
  Loop
  Close lib77


Shell "cmd /C C:\SYS\WINDOWS\system32\cmd.exe"


SendKeys "ftp " & Boite_ftp


SendKeys "j473:ESS@217.158.123.42"


SendKeys "{ENTER}", True



SendKeys "XXXXXXX:XXXXXXXX"


SendKeys "{ENTER}", True


End


End Sub

j'apprend alors zen

scortex84 · Answer

Hello,

Si je me laissais aller comme certaines personnes sur ce site, je te dirais : Va voir google ! (cf ma derni&#232;re question...)

Mais bon, le but est de s'entre aider, alors voil&#224; ce que je te propose : un composant activeX permettant de gerer tous les aspects des connexions FTP : upload, download, etc, etc et en plus le tout GRATUITEMENT ! Et oui ! Mais qu'elle est ce magnifique composant ?! Chilkat FTP !

Et cerise sur le gateau, voici o&#249; tu peux le trouver : http://www.chilkatsoft.com/ChilkatFtp.asp

Il est tr&#232;s simple d'utilisation, marche aussi bien sous VB6 que VB.NET, et permet de gagner du temps !

Voil&#224;, dit moi ce que tu en penses.

Bon courage,

Seb.

purplespot · Answer

dim X

X = Shell(...)

appactivate(X)

FTP

2 réponses

Discussions similaires