bonsoir,
je réitère ma demande a savoir si quelqu'un pourrai m'aider à corriger mon code.
à savoir que je n'es pas réussis a gérer les bouton annuler des "inputbox", j'ai pas réussis à créer ma boucle donc mon code se vois copier en double (je pense que vous le comprendrez en le lisant) et également j'ai pas réussis à trouver l'astuce pour gérer d'afficher "msgbox" uniquement à la fin de la commande dos ftp donc beaucoup de "wscript.sleep" bref vous verrez par vous-même. et d'ailleurs si vous avez une solution pour que je puisse inclure ce code dans mon code vb ou le coderr autrement qu'en vbe car même moi étant une pipe j'ai réussis a trouver le code pour le décrypter donc ...
Merci d'avance de l'aide et du temps apporter à ma demande

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
'26/02/2011 apli pour telecharger fichier mp3 sur server ftp
'
'déclaration msgbox aide
set aide = CreateObject("Scripting.FileSystemObject")
aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
'instruction pour si bouton non est clicker
If aide = vbNo then
'déclaration pour creation fichier.txt et run
Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject")
'création d'un nouveau fichier choixdl.txt, inscription des commandes ...
Set fich = fs.OpenTextFile("C:\ftp\script\choixdl.txt", 2, true)
'lancement inputbox avec declaration REP & chx
rep=inputbox("Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !","emplacement du fichier à télécharger ?","cela doit commencer par une LETTRE et finir par un /")
chx=inputbox("Merci de coller ici UNIQUEMENT le titre à télécharger","nom fichier à télécharger","générallement se termine par .mp3")
'ecriture dans fichier choixdl
fich.writeLine "adresseftp"
fich.writeLine "id"
fich.writeLine "mdp"
fich.writeLine "lcd C:\ftp\Telechargements"
fich.writeLine "cd """& rep & ""
fich.writeLine "get """& chx & ""
fich.writeLine "quit"
fich.close
wscript.sleep 200
'création d'un nouveau fichier ftp.bat
Set batch = fs.OpenTextFile("C:\ftp\script\ftp.bat", 2, true)
wscript.sleep 500
'ecriture dans fichier ftp.bat
batch.writeLine "ftp -s:c:\ftp\script\choixdl.txt " 
batch.close
wscript.sleep 5000
'lancer le fichier batch
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\script\ftp.bat",0,false
'ouverture dossier telechargements
msgbox("INFO les fichiers à caractères spéciaux sont téléchargeables UNIQUEMENT par filezilla.                                                                                                                                   Merci de faire OK pour afficher le dossier contenant vos téléchargements")
wscript.sleep 8000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\telechargements"
wscript.sleep 8000
'suppression des fichiers créer ainsi que des déclarations
fs.deletefile "c:\ftp\script\choixdl.txt"
fs.deletefile "c:\ftp\script\ftp.bat"
set fich=nothing
set batch=nothing
set sh=nothing
set fs=nothing
'fin instruction si boutton non est clicker
'
'si reponse oui est clicker	
elseIf aide = vbYes then
'ouverture image d'illustration
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\image\capture.jpg"
wscript.sleep 700
wscript.sleep 1000
'**************************************************************************************************
'déclaration pour creation fichier.txt et run
Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject")
'création d'un nouveau fichier choixdl.txt, inscription des commandes ...
Set fich = fs.OpenTextFile("C:\ftp\script\choixdl.txt", 2, true)
'lancement inputbox
rep=inputbox("Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !","emplacement du fichier à télécharger ?","cela doit commencer par une LETTRE et finir par un /")
chx=inputbox("Merci de coller ici UNIQUEMENT le titre à télécharger","nom fichier à télécharger","générallement se termine par .mp3")
'ecriture dans fichier choixdl
fich.writeLine "adresseftp"
fich.writeLine "id"
fich.writeLine "mdp"
fich.writeLine "lcd C:\ftp\Telechargements"
fich.writeLine "cd """& rep & ""
fich.writeLine "get """& chx & ""
fich.writeLine "quit"
fich.close
wscript.sleep 200
'création d'un nouveau fichier ftp.bat
Set batch = fs.OpenTextFile("C:\ftp\script\ftp.bat", 2, true)
wscript.sleep 500
'ecriture dans fichier ftp.bat
batch.writeLine "ftp -s:c:\ftp\script\choixdl.txt " 
batch.close
wscript.sleep 5000
'lancer le fichier batch
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\script\ftp.bat",0,false
'ouverture dossier telechargements
msgbox("INFO les fichiers à caractères spéciaux sont téléchargeables UNIQUEMENT par filezilla.                                                                                                                                   Merci de faire OK pour afficher le dossier contenant vos téléchargements")
wscript.sleep 8000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\telechargements"
wscript.sleep 8000
'suppression des fichiers créer ainsi que des déclarations
fs.deletefile ("c:\ftp\script\choixdl.txt")
fs.deletefile ("c:\ftp\script\ftp.bat")
set fich=nothing
set batch=nothing
set sh=nothing
set fs=nothing
'**********************************************************************************************
'
'fin de la condition	
End If
'signature
msgbox"Creation Z!T¤ùN£_@nT!C!P-W!n-32