BSoD Bildschirmschoner

Den klassischen BlueScreen als Bildschirmschoner

Funcs:
+ keine multiple Ausführung möglich
+ Timer bis Bildschirmschoner erscheint (Einstellbar via Variablen)
+ Computer Sperren(Einstellbar via Variablen)
+ Resourcen sparend(er) als vorherige Version

Bugs:
manche Fenster bleiben trotz Winsetontop() im Vordergrund -.-
autoit.de/wcf/attachment/10613/

1.0.0.1 normale Version
autoit.de/wcf/attachment/10614/

1.0.0.1 FUN Version
autoit.de/wcf/attachment/10615/

1.0.0.0
autoit.de/wcf/attachment/10612/

greetz
sl4y3r/fennek

thx

Wie krieg ich das raus ?!?!!?!! das versaut mir die ganze auflösung !

EDIT:// Täusch ich micht oder hast du jetzt eingestellt, dass er solange der PC an ist, AdlibRegister macht ?!?!?! meine CPU auslastung ist auf 100 %. wie krieg ich den scheiss aus

was?
einfach taskmgr Autoit3.exe oder screensaver.exe beenden...

es sollte eig die Auflösung nach bewegen der Maus wieder zurücksetzten.

EDIT: ja klar muss das Skript im Hintergrund laufen sonst, würde es den BSoD auch nich anzeigen...
Alter kauf dir ne neue Kiste! bei mir brauchts nur 30 % CPU... kann man natürlich mit ProcessReduceMemory und ein paar Sleeps oder so auch verringern

Puh danke. Aber du weißt, dass wenn du die ganze zeit Adlibregister machst dass du den CPU aufn sack gehst der ist dann bei 100%. Die auflösung wird bei mir nicht zurückgesetzt.

ich weis nicht woran es liegt aber wenn ich die au3 , die exe oder direkt den screensaver starte passiert nichts
mfg bulli

Zitat von BurakSZ

Puh danke. Aber du weißt, dass wenn du die ganze zeit Adlibregister machst dass du den CPU aufn sack gehst der ist dann bei 100%. Die auflösung wird bei mir nicht zurückgesetzt.

Ja... hmm.. habs nich so mit CPU
* hab das Skript geupdatet, sollte weniger Resourcen brauchen

@ Auflösungsproblem... ja ne is klar, wenn du das Skript per Taskmgr kickst kanns ja nich mehr die Bildschirmeinstellungen zurücksetzen.
(ExitBlueScr() wird nich ausgeführt)

Func ExitBlueScr()
Dim $GUI
BlockInput(1)
_WinAPI_ShowCursor(True)
_ChangeScreenRes($DesktopWidth, $DesktopHeight, $DesktopDepth, $DesktopRefresh)
GUIDelete($GUI)
BlockInput(0)
If $LockPc = True Then
Run("rundll32.exe user32.dll,LockWorkStation")
EndIf
EndFunc

Also: Einfach die Maus kräftig rütteln und der Bildschirmschoner geht weg

Zitat von Kev

dat ding geht bei mir nit

startet..un geht aus so wie ne gui ohne while schleife xD

jaja, musste in den source gucken.
erst nach 30 sekunden kommt der Bildschirmschoner.
Also: 30 Sekunden lang Finger weg von Maus und Tastatur XD
für Bulli gilt wohl das gleiche...

xD ja passt
geh schnell noch essen, dann mach ich mich an die arbeit

kann man das nicht irgendwie umgehen die auflösung zu ändern? das verschiebt immer meine icons auf dem desktop
und wozu sind die 30 sek wartezeit am anfang wenn das ein bildschirmschoner ist kann man doch die zeit in dem bildschirmschonermenü einstellen

achja und jetz funtzt es war zu ungeduldig
sieht aber echt lustig aus

mfg bulli

So... meine Ideen
für die "Fun Edition"

GUICtrlCreateLabel("Ein Problem muss festgestellt werden, darum wird Windows" & @CRLF & _
"jetzt neu gestartet." & @CRLF & _
@CRLF & _
"Das Problem könnte durch diese Datei verursacht werden: XXL_PORN.SÜS" & @CRLF & _
@CRLF & _
"PAGE_FAULT_IN_NONPAGED_AREA" & @CRLF & _
@CRLF & _
"Wenn Sie das erste Mal diesen Stop-Fehler-Bildschirm sehen," & @CRLF & _
"starten Sie Ihren Computer neu. Wenn Sie Ihn schon öfters gesehen" & @CRLF & _
"haben, machen Sie folgendes:" & @CRLF & _
@CRLF & _
"Schütten Sie Coca Cola in die Lüftung, um den Computer zu beschleunigen" & @CRLF & _
"und den Fehler Bildschirm eventuell zu überspringen." & @CRLF & _
@CRLF & _
"If problems continue, disable or remove any newly installed hardware" & @CRLF & _
"or software. Disable BIOS memory options such as caching or shadowing." & @CRLF & _
@CRLF & _
"Verkaufen Sie Ihren Computer so schnell wie möglich auf eBay um noch" & @CRLF & _
"Geld für diese Schrottkiste zu bekommen." & @CRLF & _
"" & @CRLF & _
@CRLF & _
"Technische Informationen:" & @CRLF & _
@CRLF & _
"*** STOP: 0x00000050 (0xFD3094C2,0x00000001,0xFBFE7617,0x00000000)" & @CRLF & _
@CRLF & _
@CRLF & _
"*** XXL_PORN.SÜS - Address FBFE7617 base at FBFE5000, DateStamp 3d6dd67c", 10, 10, @DesktopWidth - 10, @DesktopHeight - 10)

brauch aber noch irgend einen Text...

so.... funversion is online
viel spaß

funktioniert nicht unter windows 7....!!!

schade, denn das würde ich gern dafür benutzen,....
kriegst du das dafür hin...??:)