Bonjours,

Il y a quelque temp je me suis amuser à créer ce formulaire en vbs après l'avoir fait en batch ainsi quand php, mais le probleme qui se pause c'est que je n'ai pas d'idée pour l'améliorer,si il y a quelqu'un que sa interesse et qui aurrait une idée d'amélioration pour se script sa serrait sympa de m'en faire une suggestion d'amélioration, pour ceux qui veulent je post mon code.

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
 
Nom=inputbox("Entrer votre nom","formulaire de CASTOU60")
prenom=inputbox("Entrer votre prenom","formulaire de CASTOU60")
Age=inputbox("Entrer votre age","formulaire de CASTOU60")
Dim Fictxt,castou
Const Forreading = 1, Forwriting = 2, Forappending = 8
Set ObjFichier=createobject("scripting.filesystemobject")
Set Fictxt= ObjFichier.OpenTextFile("castou.txt", Forwriting, True)
Fictxt.writeline "" &nom
Fictxt.Writeline "" &prenom
Fictxt.Writeline "" &age
Fictxt.Writeline "©CASTOU60"
'msgbox "Votre nom est:" &nom
'msgbox "Votre prénom est:" &prenom
'msgbox "Votre age est de:"&age
'**********************
class info
Dim nom,prenom,age
End class
'**********************
set formulaire=new info
formulaire.nom=nom
formulaire.prenom=prenom
formulaire.age=age
wscript.echo "formulaire = "& formulaire.nom&"," &formulaire.prenom&"," &formulaire.age&"","créer par ©CASTOU60"
Wscript.Echo "vos informations ont bien été enregistrer"
wscript.quit 0
 'Créer par ©Castou60