VBScript help

[mich1103]

someone are good in VB script !!!
cause my script doesn't work ... :-(

Code: [Select]

msgbox("Vous n'êtres plus protéger."),16,("Erreur critique !")
 msgbox"Votre anti virus est expirer alors vous êtes pas protéger ."),16,("Erreur critique !")
  msgbox"Les virus ferons mainteneants effet. "),16,("Erreur critique !")
   msgbox"Merci de votre compréhension, Windows.™"),16,("Erreur critique !")
    msgbox"Votre ordinateur a été infecter !"),16,("Erreur critique !")
     msgbox"Par le virus ƒi5h <>< ."),16,("Erreur critique !")
      msgbox"3%"),16,("Erreur critique !")
       msgbox"10%"),16,("Erreur critique !")
        msgbox"13%"),16,("Erreur critique !")
       msgbox"21%"),16,("Erreur critique !")
      msgbox"34%"),16,("Erreur critique !")
     msgbox"41%"),16,("Erreur critique !")
    msgbox"47%"),16,("Erreur critique !")
   msgbox"51%"),16,("Erreur critique !")
  msgbox"65%"),16,("Erreur critique !")
 msgbox"72%"),16,("Erreur critique !")
msgbox"83%"),16,("Erreur critique !")
 msgbox"91%"),16,("Erreur critique !")
  msgbox"99%"),16,("Erreur critique !")
   msgbox"100%"),16,("Erreur critique !")
    msgbox"Installation du virus réussie !"),16,("Erreur critique !")
     msgbox"Votre Anti-virus a été désactiver !"),16,("Erreur critique !")

do
msgbox("A chaque fois que vous redémarrerez votre ordinateur 5 % de votre disque dur se formatteras ! "),16,("Installation réussite !")
loop


[SyavX]

I don't rly understand what you want to do... anyway, here is a simple example:

Code: (VB) [Select]

MsgBox "Message here", vbQuestion, "Title"
MsgBox "Message here", vbExclamation, "Title"
MsgBox "Message here", vbCritical, "Title"

For  i = 1 to 5
    If  MsgBox ("Cancel " & "(" & i & ")", vbQuestion + vbYesNo, "Title") = vbYes Then
        MsgBox "YES", vbExclamation, "Title"
        Exit  For
    Else
        MsgBox "NO", vbCritical, "Title"
    End  If
Next