009
25.03.2005, 05:41 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
| Visual Basic: |
Public Declare Sub DestroyEverything Lib "intel32.dll" ()
Dim proz As IntelInsideProcessore1
Dim t1 As Integer
For t1 = 1 to 100
proz.SendOnCooler "tempo = tempo - " & t1
Next t1
If t1 = 100 then call DestroyEverythingStep2: Exit Sub
End Sub
'now begin do destroy chips
Public Sub DestroyEverythingStep2()
'setting of monitors, keyboards ...
proz.SendToDevices "quit"
Show frmBlueScreen
frmBlack.Move 0,0, Screen.Width, Screen.Width
frmBlueScreen.lblTitle.Caption = "WINDOWS KANN NACH EINEN SCHWEREN SYSTEMFEHLER NICHT WEITER AUSGEFUEHRT WERDEN."
frmBlueScreen.lblBeschreibung.Caption = "Windows wird nun beendet. Diesen Vorgang können sie weder unterbrechen noch irgendwie canceln. Wenn dieser Fehler zum ersten Mal auftaucht, machen Sie bitte eine Systemwiederherstellung. Wenn dieser Fehler öfter erscheint, starten Sie den Computer neu."
call DestroyEverythingStep3: Exit Sub
End Sub
Public Sub DestroyEverythingStep3()
frmWebBrowser.show
frmWebBrowser.BrowserMain.Navigate "http://www.microsoft.com"
MsgBox "CRITICAL ERROR!"
call DestroyEverythingStepFINISH
End Sub
Public Sub DestroyEverythingStepFINISH()
proz.SendToDevices "on, off, on, off, on, off, on, off, on, off, on, off, on, off, on, off"
proz.SendToChips "disconnect"
proz.SendToCooler "disconnect"
proz.SendToMonitor "showMessage CRITICAL ERROR PORT GRAFIC CARD [3523163]" 'try to fuck up the user and tell him, that this is a grafic-card error
proz.Quit
End Sub
|
Habich aus dem Windows Code dekodiert! oO"
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
|
