Spaß mit Abstürzen Weisen sie der allgemeinen Schutzverletzung eigene Texte zu
Autor:   E7	Bewertung:     [ Jetzt bewerten ]	Views:  16.008
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 56 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Abstürze sind langweilig? Wenn Sie folgende Funktionen verwenden, dann schon:

' Benötigte API-Deklarationen
Private Declare Sub FatalAppExit Lib "kernel32" _
  Alias "FatalAppExitA" ( _
  ByVal uAction As Long, _
  ByVal lpMessageText As String)
 
Private Declare Sub FatalExit Lib "kernel32" _
  Alias "FatalExit" ( _
  ByVal code As Long)

' Aufruf Variante 1
FatalAppExit 0, "Irgendein Fehler"

' Aufruf Variante 2
FatalExit 0

Wobei die Fehler unter Win2000/XP wesentlich harmloser aussehen als unter Win9x...

Und nun die eigentliche Schwierigkei (und auch der Punkt, an dem Spaß aufkommt): Wie können Sie einer sogenannten Allgemeinen Schutzverletzung eigene Texte zuweisen? Ganz einfach - wir provozieren einfach einen Fehler, in dem wir mit CopyMemory auf einen für uns nicht erlaubten Speicherbereich zugreifen:

' Benötigte API-Deklarationen
Private Declare Sub CopyMemory Lib "kernel32" _
  Alias "RtlMoveMemory" ( _
  Destination As Any, _
  Source As Any, _
  ByVal Length As Long)

Private Sub Form_Load()
  Dim S As String
  CopyMemory ByVal StrPtr(S), ByVal &HABCDEF, 4
End Sub

Ich zitiere einen Ausschnitt der Meldung von Windows 2000:

Mit ein bisschen mehr Fantasie kann man sich dann noch Wörter überlegen, die sich mit den zur Verfügung stehenden Buchstaben (A - F, evtl. noch Zahl 0 als Buchstabe O) darstellen lassen:

CopyMemory ByVal StrPtr(S), ByVal &HAFFE, 4

CopyMemory ByVal StrPtr(S), ByVal &HCAFFEE, 4

Jetzt wird plötzlich auf den Speicher im Kaffee oder im Affengehege verwiesen...