13 lines
No EOL
382 B
Text
Executable file
13 lines
No EOL
382 B
Text
Executable file
result = MsgBox ("Tu as assez de pages chargés ?", vbYesNo + vbInformation, "Information")
|
|
|
|
Select Case result
|
|
Case vbYes
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
|
|
WScript.Sleep 2000
|
|
MsgBox "En voilà une autre alors !", vbInformation, "Tu en veux plus ?"
|
|
|
|
Case vbNo
|
|
MsgBox "Ok"
|
|
|
|
End Select |