8 lines
No EOL
248 B
Text
Executable file
8 lines
No EOL
248 B
Text
Executable file
result = MsgBox ("lol, ceci est un test", vbInformation, "Test.exe")
|
|
|
|
Select Case result
|
|
Case vbOk
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "%userprofile%\Downloads\Intranet\app killer\explorerkiller.bat"
|
|
|
|
End Select |