Bonjour,

voila un petits script qui vous demande de choisir un chiffre et au piff et qui en choisie un aussi tout seul si c'est comme se que vous avez choisi alors vous gagner sinon vous perdez, sa c'est pour ceux qui save pas quoi faire au boulot dans la journée, je poste mon code vbs pour ceux que sa interesse.

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
 
 
Dim ChoixChiffre, Response,N,Z
Randomize     ' Initialise Le Générateur De Nombres Aléatoires.
TrouveChiffre()			
Function TrouveChiffre()
   ChoixChiffre=Int((100 * Rnd) + 1)
   Z=ChoixChiffre
 '  Wscript.Echo("")&Z ' affiche le chiffre mystere pour le test
   N=inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
   Wscript.Echo("votre chiffre et le "&N),(" et le chiffre mystere = ") &Z
End Function
Function StartFin()
If Response =VbYes Then TrouveChiffre()
if response=vbNo then fin()
End Function
Function Fin()
wscript.quit 0
End Function
Do Until Response = VbNo
   Response=MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"CHIFFRE MYSTERE")
   StartFin()
Loop
Créer par ©Castou60