Screensaver With Text

[Mosquitos]

I have see the starfield screensaver but how do you do this with text please?

A black background with the red letters " i love autoit" and the text is moving on your screen

[nfwu]

#include <GUIConstants.au3>
$gSpeed   = (50)
$gFieldColor = (0)
$gRandColor  = (1)
$gFontSize   = (25)
Func SaverWindow($nWidth, $nHeight, $nLeft, $nTop, $hParent = 0)
    MouseMove($nWidth + 1, $nHeight + 1, 0)
    $mPos = MouseGetPos() 
    $hGUI = GUICreate("", $nWidth, $nHeight, $nLeft, $nTop, $WS_POPUPWINDOW, $WS_EX_TOPMOST, $hParent)
    GUISetBkColor($gFieldColor)
    Local $labelx = Random(0, $nWidth), $labely = Random(0, $nHeight)
    Local $label = GUICtrlCreateLabel ( "AutoIt is simple, subtle, elegant.", $labelx, $labely, 1000, 300)
    GUICtrlSetColor ( $label, 0xFFFFFF)
    GUICtrlSetFont ($label, $gFontSize )

    GUISetState()
    
    While 1
        $msg = GuiGetMsg()
        $mcPos = MouseGetPos()
        If $mPos[0] <> $mcPos[0] or $mPos[1] <> $mcPos[1] or $msg = $GUI_EVENT_CLOSE Then
            GUIDelete($hGUI)
            Return
        EndIf
        $labelx = $labelx + 5
        If $labelx > $nWidth Then
            $labelx = 0
            $labely = Random(0, $nHeight)
        EndIf
        GUICtrlSetPos ( $label, $labelx, $labely )
        Sleep(50 - $gSpeed)
    WEnd
EndFunc
SaverWindow(@DesktopWidth, @DesktopHeight, 0, 0)

EDIT (05:25 PM): Tested code, corrected errors, posted new code.

EDIT (05:47 PM): Spelling error: subtile -> subtle

#)

Edited April 12, 2006 by nfwu

[Infinitex0]

D@/\/\N, way to go all out

[Mosquitos]

#include <GUIConstants.au3>
$gSpeed   = (50)
$gFieldColor = (0)
$gRandColor  = (1)
$gFontSize   = (25)
Func SaverWindow($nWidth, $nHeight, $nLeft, $nTop, $hParent = 0)
    MouseMove($nWidth + 1, $nHeight + 1, 0)
    $mPos = MouseGetPos() 
    $hGUI = GUICreate("", $nWidth, $nHeight, $nLeft, $nTop, $WS_POPUPWINDOW, $WS_EX_TOPMOST, $hParent)
    GUISetBkColor($gFieldColor)
    Local $labelx = Random(0, $nWidth), $labely = Random(0, $nHeight)
    Local $label = GUICtrlCreateLabel ( "AutoIt is simple, subtle, elegant.", $labelx, $labely, 1000, 300)
    GUICtrlSetColor ( $label, 0xFFFFFF)
    GUICtrlSetFont ($label, $gFontSize )

    GUISetState()
    
    While 1
        $msg = GuiGetMsg()
        $mcPos = MouseGetPos()
        If $mPos[0] <> $mcPos[0] or $mPos[1] <> $mcPos[1] or $msg = $GUI_EVENT_CLOSE Then
            GUIDelete($hGUI)
            Return
        EndIf
        $labelx = $labelx + 5
        If $labelx > $nWidth Then
            $labelx = 0
            $labely = Random(0, $nHeight)
        EndIf
        GUICtrlSetPos ( $label, $labelx, $labely )
        Sleep(50 - $gSpeed)
    WEnd
EndFunc
SaverWindow(@DesktopWidth, @DesktopHeight, 0, 0)

EDIT (05:25 PM): Tested code, corrected errors, posted new code.

EDIT (05:47 PM): Spelling error: subtile -> subtle

#)

Thanks

And is it possible that the text turning around or moving diagonal over the screen?

[BigDod]

Thanks

And is it possible that the text turning around or moving diagonal over the screen?

Why not just use the 3D Text that comes with Windows.

[nfwu]

Thanks

And is it possible that the text turning around or moving diagonal over the screen?

That sounds like what my AutoIt3D was planned to be capable of... problem is that I haven't completed it.

(It's been on hold for 3 months?)

@BigDod: Good Alternative!

#)

[Mosquitos]

Why not just use the 3D Text that comes with Windows.

Yes thats true but i wanna use that script anytime i go away from my computer...

[greenmachine]

Yes thats true but i wanna use that script anytime i go away from my computer...

Set the screensaver wait time to 1 minute? Or 2, or 3....

[Onoitsu2]

$labelx = $labelx + 5
        If $labelx > $nWidth Then
            $labelx = 0                <=== This Line
            $labely = Random(0, $nHeight)

Changed to -500 and instead of starting at the far left of the screen it scrolled onto the screen, this value only worked for the message "AutoIt is simple, subtle, elegant." for any other you would have to do some width calculation based on the length of the text and then multiply that by the pixel width of the font chosen, or something like that ... LOL

Just saw this post and I like what this script does

Laterzzz,

Onoitsu2