Sign in to follow this  
Followers 0
newsak2005

Star Screen Saver

4 posts in this topic

Stars for you to night.

#NoTrayIcon
#cs========Discription====
CreateDate:4/8/2011
Name:Star Screen Saver
Design by:sak2005
#ce=======================
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Date.au3>
Opt("MustDeclareVars", 1)
StarSCR()
Func StarSCR()
    Global Const $guititle = 'Star Screen Saver'
    Global $a=-20,$b=-20,$c=-20,$d=-20,$e=-20,$f=-20,$i=-20,$j=-20,$k=-20
    Global $l=-20,$m=-20,$n=-20,$o=-20,$p=-20,$q=-20,$r=-20,$t=-20,$u=-20
    MouseMove($guititle, 800, 800)
    GUICreate($guititle, @DesktopWidth, @DesktopHeight, -1, -1)
    GUISetBkColor(0x000000)
    GUICtrlCreateLabel("*", 100, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 150, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 200, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 250, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 300, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 350, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 400, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 450, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 500, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 550, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 600, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 650, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 700, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 750, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 800, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 850, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel("*", 900, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("*", 950, -20, 15, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateLabel(_Now(), 850, 730, 150, 15, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 11, 600, 0, "Tahoma")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUISetState()
    Do
        If WinActive($guititle)Then
            ControlMove($guititle, "", "Static1", Random(0, 950), $a)
            $a += Random(0, 1000)
            Sleep(Random(0, 100))
        If $a > 750 Then $a = -20
        EndIf
        If $a > Random(0, 1000)Then
            ControlMove($guititle, "", "Static2", Random(0, 950), $b)
            $b += Random(0, 1000)
            Sleep(Random(0, 100))
            If $b > 750 Then $b = -20
        EndIf
        If $b > Random(0, 1000)Then
            ControlMove($guititle, "", "Static3", Random(0, 950), $c)
            $c += Random(0, 1000)
            Sleep(Random(0, 100))
            If $c > 750 Then $c = -20
        EndIf
        If $c > Random(0, 1000)Then
            ControlMove($guititle, "", "Static4", Random(0, 950), $d)
            $d += Random(0, 1000)
            Sleep(Random(0, 100))
            If $d > 750 Then $d = -20
        EndIf
        If $d > Random(0, 1000)Then
            ControlMove($guititle, "", "Static5", Random(0, 950), $e)
            $e += Random(0, 1000)
            Sleep(Random(0, 100))
            If $e > 750 Then $e = -20
        EndIf
        If $e > Random(0, 1000)Then
            ControlMove($guititle, "", "Static6", Random(0, 950), $f)
            $f += Random(0, 1000)
            Sleep(Random(0, 100))
            If $f > 750 Then $f = -20
        EndIf
        If $f > Random(0, 1000)Then
            ControlMove($guititle, "", "Static7", Random(0, 950), $i)
            $i += Random(0, 1000)
            Sleep(Random(0, 100))
            If $i > 750 Then $i = -20
        EndIf
        If $i > Random(0, 1000)Then
            ControlMove($guititle, "", "Static8", Random(0, 950), $j)
            $j += Random(0, 1000)
            Sleep(Random(0, 100))
            If $j > 750 Then $j = -20
        EndIf
        If $j > Random(0, 1000)Then
            ControlMove($guititle, "", "Static9", Random(0, 950), $k)
            $k += Random(0, 1000)
            Sleep(Random(0, 100))
            If $k > 750 Then $k = -20
        EndIf
        If $k > Random(0, 1000)Then
            ControlMove($guititle, "", "Static10", Random(0, 950), $l)
            $l += Random(0, 1000)
            Sleep(Random(0, 100))
            If $l > 750 Then $l = -20
        EndIf
        If $l > Random(0, 1000)Then
            ControlMove($guititle, "", "Static11", Random(0, 950), $m)
            $m += Random(0, 1000)
            Sleep(Random(0, 100))
            If $m > 750 Then $m = -20
        EndIf
        If $m > Random(0, 1000)Then
            ControlMove($guititle, "", "Static12", Random(0, 950), $n)
            $n += Random(0, 1000)
            Sleep(Random(0, 100))
            If $n > 750 Then $n = -20
        EndIf
        If $n > Random(0, 1000)Then
            ControlMove($guititle, "", "Static13", Random(0, 950), $o)
            $o += Random(0, 1000)
            Sleep(Random(0, 100))
            If $o > 750 Then $o = -20
        EndIf
        If $o > Random(0, 1000)Then
            ControlMove($guititle, "", "Static14", Random(750, 950), $p)
            $p += Random(0, 1000)
            Sleep(Random(0, 100))
            If $p > 750 Then $p = -20
        EndIf
        If $p > Random(0, 1000)Then
            ControlMove($guititle, "", "Static15", Random(0, 950), $q)
            $q += Random(0, 1000)
            Sleep(Random(0, 100))
            If $q > 750 Then $q = -20
        EndIf
        If $q > Random(0, 1000)Then
            ControlMove($guititle, "", "Static16", Random(0, 950), $r)
            $r += Random(0, 1000)
            Sleep(Random(0, 100))
            If $r > 750 Then $r = -20
        EndIf
        If $r > Random(0, 1000)Then
            ControlMove($guititle, "", "Static17", Random(0, 950), $t)
            $t += Random(0, 1000)
            Sleep(Random(0, 100))
            If $t > 750 Then $t = -20
        EndIf
        If $t > Random(0, 1000)Then
            ControlMove($guititle, "", "Static18", Random(0, 950), $u)
            $u += Random(0, 1000)
            Sleep(Random(0, 100))
            If $u > 750 Then $u = -20
        EndIf
        ControlSetText($guititle, "", "Static19", _Now())
    Until GUIGetMsg() = $GUI_EVENT_MOUSEMOVE
EndFunc ;<=end star screen saver==<

Share this post


Link to post
Share on other sites



:mellow:

A programmers rule for u, to study tonight. 'Use loops to process similar/same code parts' :)


"Straight_and_Crooked_Thinking" : A "classic guide to ferreting out untruths, half-truths, and other distortions of facts in political and social discussions."
"The Secrets of Quantum Physics" : New and excellent 2 part documentary on Quantum Physics by Jim Al-Khalili. (Dec 2014)

"Believing what you know ain't so" ...

Knock Knock ...
 

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

He's probably paid by line :mellow: . Funny screensaver though

btw no need to include the WindowsConstants

Edited by skin27

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0