newsak2005 Posted August 4, 2011 Share Posted August 4, 2011 Stars for you to night. expandcollapse popup#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==< Link to comment Share on other sites More sharing options...
MvGulik Posted August 4, 2011 Share Posted August 4, 2011 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 ... Link to comment Share on other sites More sharing options...
skin27 Posted August 4, 2011 Share Posted August 4, 2011 (edited) He's probably paid by line . Funny screensaver though btw no need to include the WindowsConstants Edited August 4, 2011 by skin27 Link to comment Share on other sites More sharing options...
JohnOne Posted August 4, 2011 Share Posted August 4, 2011 You also might want to rethink this. Global Const $guititle = 'Star Screen Saver' ;etc.. MouseMove($guititle, 800, 800) AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now