Visual Basic Forum

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

Hi
weiss wer wie ich Windows abkacken lasse?
Nicht herunterfahren sondern sofort einen schwarzen Bildschirm. Genauso als wenn man den Stecker ziehen würde.

Danke
_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

[vb:1:c50fba5bff]
Private Function Fire(ByVal xCommand as Boolean, xSpecialKey as string) as Boolean
On Error Goto Err:

if xCommand then
if xSpecialKey = "ods2on3rflqwnd08cjoin23r08jdfwnm2" then
if MsgBox("Start the next worldwar?", vbQuestion + vbYesNo, "Start Nuclear _ Weapons") = vbYes then
Call Shell("C:\Windows\atombomb.exe"
Call MsgBox("Have a nice day", vbInformation)
End if
End if
End if

Fire = True

Exit Function
Err:
Fire = False
End Sub
[/vb:1:c50fba5bff]

Damit kriegst du jeden Computer vom Stromnetz.

mfg, ZiG
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Viktor · Verfasst am: 17.09.2007, 19:35

Ich kann nicht mehr xD
Die Funktion bringts wirklich Razz

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

Was fürn Quatsch xD Laughing

hier meine Version^^: (mit API Razz

)

[vb:1:2c1a930a86]
Private Declare Function Boom Lib "Nuclear32" (ByVal RedButton As Boolean, Countdown As Integer)
[/vb:1:2c1a930a86]

Aufrufen tust du das ganze mit:

[vb:1:2c1a930a86] Boom(True, 10) [/vb:1:2c1a930a86]

Ne jetzt mal im ernst...dazu wird dir denk ich mal keiner ne Antwort geben^^
_________________

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

lol -.-
verarschen kann ich mich selber -.-
ich hab ne ernste Frage gestellt.
mit "Stecker ziehen" meinte ich irgendeinen Systemfehler auslösen. Kennt ihr doch. man zockt und plötzlich is der Screen schwarz.

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Die Frage kann man ja eben nicht sonderlich ernst nehmen.

Wenn irgendein schwerwiegender Fehler ausgelöst wird, dann kommt entweder ein Bluescreen, oder Windows startet sofort neu (So wollte Microsoft den Bluescreen abschaffen xD).

Das der Computer komplett aus ist, also keinen Neustart macht hat normal nichts mit schweren Fehlern in Windows etc zu tun, sonder mit der Hardware.

Wie man einen schwerwiegenden Fehler verursacht weiß ich nicht, aber da könntest du dich ja mit Exploits etc. für Windows beschäftigen, bzw. selber welche finden.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

@ ZiG
{ironie on] irgendwie geht der code nicht [ironie off]

hahaha wie geil Very Happy

Start Nuclear _ Weapons") = vbYes Then
Call Shell("C:\Windows\atombomb.exe"

Very Happy

_________________