newsak2005 1 Report post 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==< Share this post Link to post Share on other sites
MvGulik 86 Report post 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 ... Share this post Link to post Share on other sites
skin27 1 Report post 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 Share this post Link to post Share on other sites
JohnOne 1,586 Report post 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. Share this post Link to post Share on other sites
