UNE ALTERNATIVE FTP SANS API ET SANS OCX
sibi12
Messages postés
337
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
15 avril 2006
-
15 févr. 2004 à 12:47
sibi12 Messages postés 337 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 15 avril 2006 - 27 mai 2006 à 20:42
sibi12 Messages postés 337 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 15 avril 2006 - 27 mai 2006 à 20:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/20445-une-alternative-ftp-sans-api-et-sans-ocx
https://codes-sources.commentcamarche.net/source/20445-une-alternative-ftp-sans-api-et-sans-ocx
27 mai 2006 à 20:42
(moi étant sous Linux depuis je ne saurais plus...)
27 mai 2006 à 19:35
Canal = FreeFile(1)
'ouverture du fichier en écriture s'il n'existe pas il est créé
Open App.Path & "\ScriptFtp.scr" For Output As #Canal
Print #canal2, ScriptFTP
'fermeture du fichier
Close canal2
Vraiment, c'est étrange pcq normalement il essayerait d'ouvrir le fichier #0. Quelqu'un a une idée?
20 juil. 2005 à 08:51
20 juil. 2005 à 08:38
19 juil. 2005 à 19:15
19 juil. 2005 à 16:44
ftp>connect blablaftp
open blablaftp 8021 (le port ke je desire)
220 blablaftp server ... ready
ftp>user moi monpass
331 pwd required
230 login successfull
et les commandes s enchainent sans problemes
alors que lorsque le script est lance par le shell vb ca donne
ftp>connect blaftp
open blaftp 8021
220 blaftp server ... ready
utilisateur(blaftp:(none)ÿ: (cette ligne je ne se pa ce k c et le 'ÿ' me semble louche)
331 pwd required
(la je ne se pas pkoi mais j'ai une ligne vide!)
230 login successfull
ftp> commande non valide
et la aucune commande ne fonctionne. Deja le user /password n'apparait pas est-ce normal?
Je tiens a preciser que ces 2 sorties ont pour source le MEME script alors je ne comprends pas...
19 juil. 2005 à 15:22
9 juin 2005 à 13:58
Open ftpperso.free.fr
User Login pw
Binary
mput C:\tmp\Test.txt
bye
exit
Ya juste un truc qui ne fonctionne pas, c'est le rapport TransFtp.Log, pourtant il fonctionne quand je tape exactement la même commande directement dans une fenêtre DOS. Quelqu'un a une idée ? (de toute façon j'ai le code de retour avec mon ShellWait, pas vraiment besoin du rapport)
2 bugs à signaler : ResultatCommande est un long et nom un byte, et ajouter & vbCrLf après le mot de passe dans la dernière remarque.
23 juin 2004 à 15:29
à la ligne 1 il faut ajouter un espace après l'Open
ScriptFTP = "Open " & NomServeur & vbCrLf
à la ligne 2 il faut ajouter la commande user du ftp
ScriptFTP = ScriptFTP & "User " & NomUtilisateur & " " & MotDePasse
Sous Windows 2000 ou XP il est préférable d'intégrer le chemin de l'application dans le shell :
ResultatCommande = Shell("command.com /c ftp -n -i -s:" & App.Path & "ScriptFtp.scr", vbNormalFocus)
19 avril 2004 à 11:32
Dim monProcessusFTP() As Process
ResultatCommande = Shell(Environ$("comspec") & " /c ftp -s:" & Environ("windir") & "\ScriptFTP.scr , AppWinStyle.Hide)
monProcessusFTP = Process.GetProcessesByName("ftp")
For Each p As Process In monProcessusFTP
p.WaitForExit()
Next
ca fonctionne, c'est simple, discret
je vais tester sous windows 98, mais j'ai meme pas peur...
ciao. @+
19 avril 2004 à 11:30
Dim monProcessusFTP() As Process
ResultatCommande = Shell(Environ$("comspec") & " /c ftp -s:" & Environ("windir") & "\ScriptFTP.scr , AppWinStyle.Hide)
monProcessusFTP = Process.GetProcessesByName("ftp")
For Each p As Process In monProcessusFTP
p.WaitForExit()
Next
ca fonctionne, c'est simple, discret
je vais tester sous windows 98, mais j'ai meme pas peur...
ciao. @+
19 avril 2004 à 10:55
je suis sous winXP avec VB.NET
18 févr. 2004 à 09:13
c pas con du tout le coups de la boucle, je garde ca sous le coude.
merci bien pour l'info...
@ bientot & bon courage !!
18 févr. 2004 à 06:31
Ci-dessous la correction de la procédure.
'Procédure qui permet de lancer une tache et d'attendre que celle-ci
'soit terminée avant que le programme initial reprenne la main
Public Sub ExecCmd(strCmdline As String, Etat As Byte)
Const PROCESS_ACTIF = &H103&
Const PROCESS_QUERY_INFORMATION = &H400
Dim lngREt As Long
Dim processID As Long
Dim ProcessHandle As Long
Dim lExitCode As Long
'
On Error GoTo Err_ExecCmd
'exécute le process (programme que l'on veut lancer)
processID = Shell(strCmdline, Etat)
'processId est l'identifiant du process que l'on vient d'exécuter
ProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION, True, processID)
Do
' Retourne le status du processus en cours
'(si lExitCode =&h103 le process est actif)
GetExitCodeProcess ProcessHandle, lExitCode
' Les 2 lignes suivantes sont utile pour éviter de faire
' boucler le système en continu avec GetExitCodeProcess
DoEvents
'Temps de latence en millisecondes
Sleep 500
'on boucle temps que Getexitcode nous renvoi le process comme actif
Loop While lExitCode = PROCESS_ACTIF
CloseHandle (ProcessHandle)
Exit_ExecCmd:
Exit Sub
Err_ExecCmd:
MsgBox "ExecCmd" & " Erreur N°" & Err.Number & " => " & Err.Description
Resume Exit_ExecCmd
End Sub
18 févr. 2004 à 06:21
'A mettre dans un Module :
'Déclarations des fonctions API Shell and Wait Permet d'exécuter une ligne de commande
'et d 'attendre la fermeture de l'application avant de poursuivre.
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'Api de temporisation, met le système en sommeil(presque) pour un temps défini en millisecondes.
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'
'Procédure qui permet de lancer une tache et d'attendre que celle-ci
'soit terminée avant que le programme initial reprenne la main
Public Sub ExecCmd(strCmdline As String, Etat As Byte)
Const PROCESS_ACTIF = &H103&
Const PROCESS_QUERY_INFORMATION = &H400
Dim lngREt As Long
Dim processID As Long
Dim ProcessHandle As Long
Dim lExitCode As Long
'
On Error GoTo Err_ExecCmd
Screen.MousePointer = vbHourglass
'exécute le process (programme que l'on veut lancer)
processID = Shell(strCmdline, Etat)
'processId est l'identifiant du process que l'on vient d'exécuter
ProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION, True, processID)
Occupe = True
Do
' Retourne le status du processus en cours
'(si lExitCode =&h103 le process est actif)
GetExitCodeProcess ProcessHandle, lExitCode
' Les 2 lignes suivantes sont utile pour éviter de faire
' boucler le système en continu avec GetExitCodeProcess
DoEvents
'Temps de latence en millisecondes
Sleep 500
'on boucle temps que Getexitcode nous renvoi le process comme actif
Loop While lExitCode = PROCESS_ACTIF
CloseHandle (ProcessHandle)
Form1.MousePointer = vbDefault
Occupe = False
If Etat > 0 Then MsgBox "Transferts Terminés.."
Exit_ExecCmd:
Exit Sub
Err_ExecCmd:
'MsgBox "ExecCmd" & " Erreur N°" & Err.Number & " => " & Err.Description
Resume Exit_ExecCmd
End Sub
'Dans une Procédure on exécute la ligne de commande (identique à la Cmd Shell)
'Dans ce cas c'est pour exécuter un script Ftp
Call ExecCmd("command.com /c ftp -n -i -s:" & "Import_Fichiers.spt", 1)
'Mais pour un programme c'est identique
Call ExecCmd("c:\MonRepertoire\UnProgramme.exe",1)
16 févr. 2004 à 23:32
j'avais utiliser une methode a peu près identique, je lancais une commande ftp avec un script grace a la classe process. je redirigais la sortie standard du process pour pouvoir analyser les résultats...
jusque la pas de problème, en mode débuggage ca passait nikel, par contre quand je lancais l'exe compilé (hors visual studio), le transfert ce faisait correctement mais mon exe n'attendais plus que la commande soit finit. je ne pouvais donc plus savoir si tout c'était bien déroulé.
a tu essayer en mode compiler ??
@++ Xax
ps : si oui et si ca passe mille merci
16 févr. 2004 à 15:39
désolé de pas avoir vérifier avant de dire n'importe quoi...
15 févr. 2004 à 19:09
Merci pour ton commentaire constructif et pertinent..
15 févr. 2004 à 12:47
juste qque petite suggestion suggestion :
- sous NT/XP command.com n'existe plus mais c'est cmd.exe donc le programme peut renvopyer une erreur.
- Au lieu d'executer 2 fois la même commande, redirige la premiere dans un fichier et puis utilise la commande type qui te permet d'affciher ce fichier
Voilà je te met quand même un petit 9 pour les commentaires et tout et tout
@+