XProfan

Deutsch

Lieblings-Windows-Messageboxen

Hiermit hatte mich mein XPchen den halben Vormittag bestraft. :biggrin:

Das interessante war - kein offensichtlich beendbarer Task war in der Nähe. :+D)--
Ebenfalls interessant ist der Titel der MSGBOx Löschen.

Ich hatte keinen Löschauftrag gegeben.

Mein Papierkorb ist abgeschaltet - Sofortlöschen eingeschaltet - aber was machts da nur?

Salve, iF

*coolyeah*

Clipboard01.gif	11 kB

Hochgeladen:	03.12.2004

Ladeanzahl:
		Herunterladen

03.12.2004 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dennis
Schulmeister

Dieser Klassiker kam mir schon bei Windows 95 unter. Allerdings nur selbst programmiert.

Lustig wurde es, wenn man dann noch den Cursor eingefroren hat. Besonders weil es manche wirklich geglaubt haben.

Gruß,
Dennis

cursor.jpg	37 kB

Kurzbeschreibung:	Ein Klassiker neu aufgelegt.

Hochgeladen:	07.12.2004

Ladeanzahl:
		Herunterladen

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

07.12.2004 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

R.Schneider

Die Messagebox finde ich wirklich witzig. Was mich aber wirklich schockiert hat ist der Hintergrund!

Fürchtest Du nicht um Dein Augenlicht.*coolyeah*

Rudger

Perbody is nofect !

07.12.2004 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Hallo,
Da habe ich auch eine Schöne!
Gruß
Jörg

Kopieren.jpg	25 kB

Hochgeladen:	08.12.2004

Ladeanzahl:
		Herunterladen

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.12.2004 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Meine Lieblingsmessagebox:

Folgender Quelltext
Kompilieren Markieren Separieren

Declare Random%,ICON%,Buttons%,ICON$,Buttons$
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
Windowstyle 31+512
WINDOWTITLE "Verrückte Messagebox => Funktioniert nur als EXE compiliert!"
Window 0,0-640,440

While @GETASYNCKEYSTATE(27)=0

    Randomize
    LET ButtonS%=@RND(6)
    LET ICON%=@RND(5)

    IF ICON%=1

        LET ICON%=16
        LET ICON$="Stop"

    elseif ICON%=2

        LET ICON%=32
        LET ICON$="Fragezeichen"

    elseif ICON%=3

        LET ICON%=48
        LET ICON$="Ausrufezeichen"

    elseif ICON%=4

        LET ICON%=64
        LET ICON$="Info"

    elseif ICON%=0

        LET ICON$="Kein Icon"

    endif

    IF Buttons%=0

        LET Buttons$="OK"

    elseif Buttons%=1

        LET Buttons$="OK+Abbrechen"

    elseif Buttons%=2

        LET Buttons$="Abbrechen+Wiederholen+Ignorieren"

    elseif Buttons%=3

        LET Buttons$="Ja+Nein+Abbrechen"

    elseif Buttons%=4

        LET Buttons$="Ja+Nein"

    elseif Buttons%=5

        LET Buttons$="Wiederholen+Abbrechen"

    endif

    PRINT "Icon: ";Icon$,ICON%
    PRINT "BUTTONS: ";BUTTONS$,Buttons%
    PRINT ""
    LET RANDOM%=BUTTONS%+ICON% Das kann die Messagebox nicht wissen, oder??
    @messagebox("Eine Verrückte Messagebox! Das Ding kann Gedankenlesen!","Was ist denn das??","OOPS, was falsch gemacht!",64)

WEND