Sub about
 msgbox "Créé par Armand SZYPURA de Skeatwin",64,"A propos..."
 msgbox "Créé pour la Pharmacie Delepoulle.",64,"A propos..."
 msgbox "Tirer du Site 'Tabac Stop'"
 end Sub
sub quitter
quit=msgbox("Voulez-vous vraiment quitter?",32+vbyesno,"Quitter?")
 if quit=vbyes then
 WScript.quit
 else
 end if
end Sub
T=0
Msgbox "            TEST DE FRAGERSTRÖM"&vbcr&"évaluation de la dépendance au tabac",,"La Pharmacie Delepoulle présente:"
rep=Msgbox ("Voulez-vous passer le test de Fagerström?",vbquestion+vbyesno,"Êtes-vous dépendant du tabac?")
 If rep=vbno then
 WScript.quit
 Else
End If
Do
nom=inputbox("Entrez votre nom:","test de Fagerström 1.0")
 If nom="" then
 Msgbox "Vous avez tout de même un nom? non?",16,"Pas de nom?"
 Elseif nom="armand" or nom="Armand" then
 msgbox "L'auteur de ce programme vous salut car vous vous apellez comme lui!",64,"Armand SZYPURA"
 exit do
 else
 exit do
End if
Loop
Msgbox "Bienvenue "&nom&" dans ce test de dépendance du tabac, 8 questions vous seront posées.",64,"test de Fagerström 1.0"
Msgbox nom&", pour les questions à proposition entrez la lettre de la reponse. ou, quand celà et possible tapez [quitter] pour quitter, ou cliquez sur annuler.",,"test de Fagerström 1.0"
Msgbox "Avertisement:"&vbcr&"______________"&vbcr&vbcr&"Pendant le test, il se peut que celui-disparaisse de l'écran; il suffit alors de recliquer sur l'icone du test dans la barre des tâches.",48,"Avertisement" 
 Do
q1=inputbox("Combien de cigarettes fumez vous par jour?"&vbcr&vbcr&vbcr&"a)plus de 25"&vbcr&"b)entre 16 et 25"&vbcr&"c)moin de 16","test de Fagerström 1.0 Question 1")
 If q1="a" then
 T1=T+2
 exit do
 Elseif q1="b" then
 T1=T+1
 exit do
 Elseif q1="c" then
 T1=T2
 exit do
 elseif q1="quitter" or q1=vbcancel then
 quitter
 elseif q1="a propos" or q1="à propos..." or q1="a propos..." then
 about
 else
 msgbox"Vous n'avez pas entré la lettre corespondante à votre réponse.",48,"Pas de réponse"
 end if
 Loop
             Do
q2=inputbox("Quel est le taux de nicotine de vos cigarettes (en mg)?"&vbcr&vbcr&vbcr&"a)plus de 1,5"&vbcr&"b)entre 0,8 et 1,5"&vbcr&"c) moin de 0,8","test de Fagerström 1.0 Question 2")
 If q2="a" then
 T2=T1+2
 exit do
 Elseif q2="b" then
 T2=T1+1
 exit do
 elseif q2="c" then
 T2=T1
 exit do
 Else if q2="quitter" or q2=vbCancel then
 quitter
 elseif q2="a propos" or q2="à propos..." or q2="a propos..." then
 about
 else
 msgbox"Vous n'avez pas entré la lettre corespondante à votre réponse.",48,"Pas de réponse"
 end if
 end if
            Loop
    Do
q3=inputbox("Inhalez vous la fumée?"&vbcr&vbcr&vbcr&"a)Toujours"&vbcr&"b)Parfois"&vbcr&"c)Jamais","test de Fagerström 1.0 Question 3")
 If q3="a" then
 T3=T2+2
 exit do
 Elseif q3="b" then
 T3=T2+1
 exit do
 elseif q3="c" then
 T3=T2
 exit do
 Else if q3="quitter" or q3=vbCancel then
 quitter
 elseif q3="a propos" or q3="à propos..." or q3="a propos..." then
 about
 else
 msgbox"Vous n'avez pas entré la lettre corespondante à votre réponse.",48,"Pas de réponse"
 end if
 end if
   Loop
    Do
q4=inputbox("Quand fumez le plus?"&vbcr&vbcr&vbcr&"a)Le matin"&vbcr&"b)L'après midi"&vbcr&"c)Le soir"&vbcr&"d)Egalement","test de Fagerström 1.0 Question 4")
 If q4="a" then
 T4=T3+1
 exit do
 Elseif q4="b" then
 T4=T3
 exit do
 elseif q4="c" then
 T4=T3
 exit do
 elseif q4="d" then
 T4=T3
 exit do
 Else if q4="quitter" or q4=vbCancel then
 quitter
 elseif q4="a propos" or q4="à propos..." or q4="a propos..." then
 about
 else
 msgbox"Vous n'avez pas entré la lettre corespondante à votre réponse.",48,"Pas de réponse"
 end if
 end if
    Loop
     Do
q5=inputbox("A quel moment aprés le réveil fumez vous votre première cigarette?"&vbcr&vbcr&vbcr&"a)<30min"&vbcr&"b)>30min","test de Fagerström 1.0 Question 5")
 If q5="a" then
 T5=T4+1
 exit do
 Elseif q5="b" then
 T5=T4
 exit do
 Else if q5="quitter" or q5=vbCancel then
 quitter
 elseif q5="a propos" or q5="à propos..." or q5="a propos..." then
 about
 else
 msgbox"Vous n'avez pas entré la lettre corespondante à votre réponse.",48,"Pas de réponse"
 end if
 end if
     Loop
      Do
q6=inputbox("Quelle cigarette vous paraît-elle la plus indispensable?"&vbcr&vbcr&vbcr&"a)La première"&vbcr&"b)Une autre","test de Fagerström 1.0 Question 6")
 If q6="a" then
 T6=T5+1
 exit do
 Elseif q6="b" then
 T6=T5
 exit do
 Else if q6="quitter" or q6=vbCancel then
 quitter
 elseif q6="a propos" or q6="à propos..." or q6="a propos..." then
 about
 else
 msgbox"Vous n'avez pas entré la lettre corespondante à votre réponse.",48,"Pas de réponse"
 end if
 end if
      Loop
       Do
q7=msgbox("Trouvez-vous difficile de ne pas fumer dans les endroits interdits?",32+vbyesnocancel,"test de Fagerström 1.0 Question 7")
 If q7=vbyes then
 T7=T6+1
 exit do
 elseif q7=vbcancel then
 quitter
 else
 T7=T6
 exit do
 end if
       Loop
        Do
q8=msgbox("Fumez-vous même si une maladie vous oblige à rester au lit?",32+vbyesnocancel,"test de Fagerström 1.0 Question 8")
 If q8=vbyes then
 T8=T7+1
 exit do
 elseif q8=vbcancel then
 quitter
 else
 T8=T7
 exit do
 end if
        Loop
msgbox "C'est la fin du test, déstresser "&nom&" et voyons les résultats",64,"test fini"
msgbox t8
If T8<=2 then
msgbox nom&", vous n'avez pas de dépendance au tabac.",64,"Aucun"
elseif T8<=4 then
msgbox nom&", vous avez peu de dépendance au tabac.",64,"Peu"
elseif T8<=6 then
msgbox nom&", vous avez une légère dépendance au tabac.",64,"Dépendance"
elseif T8<=8 then
msgbox nom&", vous avez une forte dépendance au tabac.",48,"Forte dépendance"
else
msgbox nom&", vous avez une très forte dépendance au tabac.",16,"Trés forte dépendance"
end if
msgbox "Créer par Skeatwin",64,"test de Fagerström 1.0"