fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Screensaver

Uploader:	l3m0n
Datum/Zeit:	13.04.2013 14:37:31

#INCLUDE "windows.bi"



DECLARE SUB ShowScreensaver

DIM AS STRING param



param=MID(COMMAND(1),2,1)

param=LCASE(param)

IF param="" THEN

    END

END IF



SELECT CASE param

    CASE "s", "s"

        ShowScreensaver

        END

    CASE "c"

        MessageBox(0, "Es gibt nichts zu konfigurieren! ;)", "Der Bildschirmschoner", MB_ICONINFORMATION)

    CASE ELSE

        END

END SELECT



SUB ShowScreensaver

    DIM AS INTEGER XPos, YPos, i, j, k

    SCREENINFO i, j, k, , , ,

    SCREENRES i, j, k, , &h01 Or &h04

    SETMOUSE , , 0

    RANDOMIZE TIMER

    DO

        XPos=INT(RND*i-20)+1

        YPos=INT(RND*j)+1

        CLS

        DRAW STRING (XPos,YPos), TIME

        SLEEP 1000

    LOOP UNTIL LEN(INKEY)

END SUB

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.