14 lines
No EOL
464 B
Text
Executable file
14 lines
No EOL
464 B
Text
Executable file
result = MsgBox ("explorer.exe ne s'est pas fermé correctement, voulez vous revenir à la dernière session ?", vbCritical + vbYesNo ,"L'Explorateur Windows ne s'est pas fermer correctement :(")
|
|
|
|
Select Case result
|
|
Case vbYes
|
|
WScript.Sleep 1000
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "exploreryes.vbs"
|
|
|
|
Case vbNo
|
|
WScript.Sleep 1000
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "explorerno.vbs"
|
|
|
|
End Select |