13 lines
No EOL
396 B
Text
Executable file
13 lines
No EOL
396 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 """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
|
|
WScript.Sleep 2000
|
|
MsgBox "En voilà une autre alors !", vbInformation, "Tu en veux plus ?"
|
|
|
|
Case vbNo
|
|
MsgBox "Ok"
|
|
|
|
End Select |