12 lines
No EOL
347 B
Text
Executable file
12 lines
No EOL
347 B
Text
Executable file
result = MsgBox ("Vous êtes naif quand même...", vbInformation + vbYesNo ,"Naif.exe viens d'être retrouvé !")
|
|
|
|
Select Case result
|
|
Case vbYes
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "exploreryesyes.vbs"
|
|
|
|
Case vbNo
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "exploreryesno.vbs"
|
|
|
|
End Select |