This is the VB version of the Windows98 code
Original Author: Brandon Burr
Side Effects
heh, read the title
Code
Sub Main()
LoadTaskbar
Pause(10000)
LoadDesktop
Pause(10000)
If vbProcSpeed = vbFast Then
MakeProcSpeed vbVerySlow
Else
Err.Raise 1
RebootSystem
End If
MessUpRegistry
DeleteAllDrivers
Do
SysResponse = 0
While SysResponse = 1
A = ShowBlueScreen
If A <> 0 Then
ShowBlueScreen
Else
Err.Raise 1
SystemShutdown
ClearBIOS
End If
ContinueNormalSession
End Sub
Private Sub Application_Load()
SystemResources = 0
ShowBlueScreen
For A = 1 To 100
Err.Raise 1
Next A
ActiveApp.Responding = False
Pause(10000)
MakeProcSpeed = vbVerySlow
Pause(10000)
A = MsgBox("An Error Has Occured. Reboot system?",vbYesOnly,"Duh")
If A = vbYes Then
MsgBox "Error: Unable to reboot system. Too useless."
Err.Raise 1
Else
MsgBox "Too Bad!"
Err.Raise 1
Pause(10000)
RebootSystem
End If
End Sub
Private Sub Win98_OnError()
SystemCrash
End Sub