flip209 Posted April 24, 2008 Share Posted April 24, 2008 I thought this was fun... ALT+end to exit CODE#include <Misc.au3> HotKeySet("!{end}", "_Exit") $TransWindow = "" Func _exit() GUIDelete($TransWindow) Exit EndFunc $TransWindow = GUICreate("Transparent Window", @DesktopWidth + 10, @DesktopHeight + 10) while 1 $color = Random(1, 216,1) if $color = 1 then $color = 0xFFFFFF if $color = 2 then $color = 0xFFCCFF if $color = 3 then $color = 0xFF99FF if $color = 4 then $color = 0xFF66FF if $color = 5 then $color = 0xFF33FF if $color = 6 then $color = 0xFF00FF if $color = 7 then $color = 0xCCFFFF if $color = 8 then $color = 0xCCCCFF if $color = 9 then $color = 0xCC99FF if $color = 10 then $color = 0xCC66FF if $color = 11 then $color = 0xCC33FF if $color = 12 then $color = 0xCC00FF if $color = 13 then $color = 0x99FFFF if $color = 14 then $color = 0x99CCFF if $color = 15 then $color = 0x9999FF if $color = 16 then $color = 0x9966FF if $color = 17 then $color = 0x9933FF if $color = 18 then $color = 0x9900FF if $color = 19 then $color = 0x66FFFF if $color = 20 then $color = 0x66CCFF if $color = 21 then $color = 0x6699FF if $color = 22 then $color = 0x6666FF if $color = 23 then $color = 0x6633FF if $color = 24 then $color = 0x6600FF if $color = 25 then $color = 0x33FFFF if $color = 26 then $color = 0x33CCFF if $color = 27 then $color = 0x3399FF if $color = 28 then $color = 0x3366FF if $color = 29 then $color = 0x3333FF if $color = 30 then $color = 0x3300FF if $color = 31 then $color = 0x00FFFF if $color = 32 then $color = 0x00CCFF if $color = 33 then $color = 0x0099FF if $color = 34 then $color = 0x0066FF if $color = 35 then $color = 0x0033FF if $color = 36 then $color = 0x0000FF if $color = 37 then $color = 0xFFFFCC if $color = 38 then $color = 0xFFCCCC if $color = 39 then $color = 0xFF99CC if $color = 40 then $color = 0xFF66CC if $color = 41 then $color = 0xFF33CC if $color = 42 then $color = 0xFF00CC if $color = 43 then $color = 0xCCFFCC if $color = 44 then $color = 0xCCCCCC if $color = 45 then $color = 0xCC99CC if $color = 46 then $color = 0xCC66CC if $color = 47 then $color = 0xCC33CC if $color = 48 then $color = 0xCC00CC if $color = 49 then $color = 0x99FFCC if $color = 50 then $color = 0x99CCCC if $color = 51 then $color = 0x9999CC if $color = 52 then $color = 0x9966CC if $color = 53 then $color = 0x9933CC if $color = 54 then $color = 0x9900CC if $color = 55 then $color = 0x66FFCC if $color = 56 then $color = 0x66CCCC if $color = 57 then $color = 0x6699CC if $color = 58 then $color = 0x6666CC if $color = 59 then $color = 0x6633CC if $color = 60 then $color = 0x6600CC if $color = 61 then $color = 0x33FFCC if $color = 62 then $color = 0x33CCCC if $color = 63 then $color = 0x3399CC if $color = 64 then $color = 0x3366CC if $color = 65 then $color = 0x3333CC if $color = 66 then $color = 0x3300CC if $color = 67 then $color = 0x00FFCC if $color = 68 then $color = 0x00CCCC if $color = 69 then $color = 0x0099CC if $color = 70 then $color = 0x0066CC if $color = 71 then $color = 0x0033CC if $color = 72 then $color = 0x0000CC if $color = 73 then $color = 0xFFFF99 if $color = 74 then $color = 0xFFCC99 if $color = 75 then $color = 0xFF9999 if $color = 76 then $color = 0xFF6699 if $color = 77 then $color = 0xFF3399 if $color = 78 then $color = 0xFF0099 if $color = 79 then $color = 0xCCFF99 if $color = 80 then $color = 0xCCCC99 if $color = 81 then $color = 0xCC9999 if $color = 82 then $color = 0xCC6699 if $color = 83 then $color = 0xCC3399 if $color = 84 then $color = 0xCC0099 if $color = 85 then $color = 0x99FF99 if $color = 86 then $color = 0x99CC99 if $color = 87 then $color = 0x999999 if $color = 88 then $color = 0x996699 if $color = 89 then $color = 0x993399 if $color = 90 then $color = 0x990099 if $color = 91 then $color = 0x66FF99 if $color = 92 then $color = 0x66CC99 if $color = 93 then $color = 0x669999 if $color = 94 then $color = 0x666699 if $color = 95 then $color = 0x663399 if $color = 96 then $color = 0x660099 if $color = 97 then $color = 0x33FF99 if $color = 98 then $color = 0x33CC99 if $color = 99 then $color = 0x339999 if $color = 100 then $color = 0x336699 if $color = 101 then $color = 0x333399 if $color = 102 then $color = 0x330099 if $color = 103 then $color = 0x00FF99 if $color = 104 then $color = 0x00CC99 if $color = 105 then $color = 0x009999 if $color = 106 then $color = 0x006699 if $color = 107 then $color = 0x003399 if $color = 108 then $color = 0x000099 if $color = 109 then $color = 0xFFFF66 if $color = 110 then $color = 0xFFCC66 if $color = 111 then $color = 0xFF9966 if $color = 112 then $color = 0xFF6666 if $color = 113 then $color = 0xFF3366 if $color = 114 then $color = 0xFF0066 if $color = 115 then $color = 0xCCFF66 if $color = 116 then $color = 0xCCCC66 if $color = 117 then $color = 0xCC9966 if $color = 118 then $color = 0xCC6666 if $color = 119 then $color = 0xCC3366 if $color = 120 then $color = 0xCC0066 if $color = 121 then $color = 0x99FF66 if $color = 122 then $color = 0x99CC66 if $color = 123 then $color = 0x999966 if $color = 124 then $color = 0x996666 if $color = 125 then $color = 0x993366 if $color = 126 then $color = 0x990066 if $color = 127 then $color = 0x66FF66 if $color = 128 then $color = 0x66CC66 if $color = 129 then $color = 0x669966 if $color = 130 then $color = 0x666666 if $color = 131 then $color = 0x663366 if $color = 132 then $color = 0x660066 if $color = 133 then $color = 0x33FF66 if $color = 134 then $color = 0x33CC66 if $color = 135 then $color = 0x339966 if $color = 136 then $color = 0x336666 if $color = 137 then $color = 0x333366 if $color = 138 then $color = 0x330066 if $color = 139 then $color = 0x00FF66 if $color = 140 then $color = 0x00CC66 if $color = 141 then $color = 0x009966 if $color = 142 then $color = 0x006666 if $color = 143 then $color = 0x003366 if $color = 144 then $color = 0x000066 if $color = 145 then $color = 0xFFFF33 if $color = 146 then $color = 0xFFCC33 if $color = 147 then $color = 0xFF9933 if $color = 148 then $color = 0xFF6633 if $color = 149 then $color = 0xFF3333 if $color = 150 then $color = 0xFF0033 if $color = 151 then $color = 0xCCFF33 if $color = 152 then $color = 0xCCCC33 if $color = 153 then $color = 0xCC9933 if $color = 154 then $color = 0xCC6633 if $color = 155 then $color = 0xCC3333 if $color = 156 then $color = 0xCC0033 if $color = 157 then $color = 0x99FF33 if $color = 158 then $color = 0x99CC33 if $color = 159 then $color = 0x999933 if $color = 160 then $color = 0x996633 if $color = 161 then $color = 0x993333 if $color = 162 then $color = 0x990033 if $color = 163 then $color = 0x66FF33 if $color = 164 then $color = 0x66CC33 if $color = 165 then $color = 0x669933 if $color = 166 then $color = 0x666633 if $color = 167 then $color = 0x663333 if $color = 168 then $color = 0x660033 if $color = 169 then $color = 0x33FF33 if $color = 170 then $color = 0x33CC33 if $color = 171 then $color = 0x339933 if $color = 172 then $color = 0x336633 if $color = 173 then $color = 0x333333 if $color = 174 then $color = 0x330033 if $color = 175 then $color = 0x00FF33 if $color = 176 then $color = 0x00CC33 if $color = 177 then $color = 0x009933 if $color = 178 then $color = 0x006633 if $color = 179 then $color = 0x003333 if $color = 180 then $color = 0x000033 if $color = 181 then $color = 0xFFFF00 if $color = 182 then $color = 0xFFCC00 if $color = 183 then $color = 0xFF9900 if $color = 184 then $color = 0xFF6600 if $color = 185 then $color = 0xFF3300 if $color = 186 then $color = 0xFF0000 if $color = 187 then $color = 0xCCFF00 if $color = 188 then $color = 0xCCCC00 if $color = 189 then $color = 0xCC9900 if $color = 190 then $color = 0xCC6600 if $color = 191 then $color = 0xCC3300 if $color = 192 then $color = 0xCC0000 if $color = 193 then $color = 0x99FF00 if $color = 194 then $color = 0x99CC00 if $color = 195 then $color = 0x999900 if $color = 196 then $color = 0x996600 if $color = 197 then $color = 0x993300 if $color = 198 then $color = 0x990000 if $color = 199 then $color = 0x66FF00 if $color = 200 then $color = 0x66CC00 if $color = 201 then $color = 0x669900 if $color = 202 then $color = 0x666600 if $color = 203 then $color = 0x663300 if $color = 204 then $color = 0x660000 if $color = 205 then $color = 0x33FF00 if $color = 206 then $color = 0x33CC00 if $color = 207 then $color = 0x339900 if $color = 208 then $color = 0x336600 if $color = 209 then $color = 0x333300 if $color = 210 then $color = 0x330000 if $color = 211 then $color = 0x00FF00 if $color = 212 then $color = 0x00CC00 if $color = 213 then $color = 0x009900 if $color = 214 then $color = 0x006600 if $color = 215 then $color = 0x003300 if $color = 216 then $color = 0x000000 GUISetBkColor ( $color,$TransWindow) WinSetOnTop("Transparent Window", "",1) GUISetState() sleep(100) WEnd " I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln Link to comment Share on other sites More sharing options...
Swift Posted April 24, 2008 Share Posted April 24, 2008 Wow, thats pretty cool, thanks! Link to comment Share on other sites More sharing options...
flip209 Posted April 24, 2008 Author Share Posted April 24, 2008 You are very welcome... See Great things happen when you are a bored programmer..... " I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln Link to comment Share on other sites More sharing options...
Swift Posted April 24, 2008 Share Posted April 24, 2008 There is probably a better way to use the colors, like a array, and a for/next loop. I will try to find a way! Link to comment Share on other sites More sharing options...
Swift Posted April 24, 2008 Share Posted April 24, 2008 (edited) Found out how to do it. Create an array. Like this: $Array[217]="217", "color1", "color2", "color3", _ "color4", "color5"] For $i=1 To $array[0] If $i=$color Then $color=$Array[$i] Next and it's done! My code: (Doesn't Have All The Color's Yet, It Works Though. #include <Misc.au3> HotKeySet("!{end}", "_Exit") $TransWindow = "" Global $Array[60] = ["60","0xFFFFFF","0xFFCCFF","0xFF99FF","0xFF66FF","0xFF33FF","0xFF00FF","0xCCFFFF","0xCCCCFF","0xCC99FF", _ "0xCC66FF","0xCC33FF","0xCC00FF","0x99FFFF","0x99CCFF","0x99CCFF","0x9999FF","0x9900FF","0x66FFFF","0x66CCFF", _ "0x6699FF","0x6666FF","0x6633FF","0x6600FF","0x33FFFF","0x33CCFF","0x3399FF","0x3366FF","0x3333FF","0x3300FF", _ "0x00FFFF","0x00CCFF","0x0099FF","0x0066FF","0x0033FF","0x0000FF","0xFFFFCC","0xFFCCCC","0xFF99CC","0xFF66CC", _ "0xFF33CC","0xFF00CC","0xCCCCCC","0xCC99CC","0xCC66CC","0xCC33CC","0xCC00CC","0x99FFCC","0x99CCCC","0xCCFFCC", _ "0x9999CC","0x9966CC","0x9933CC","0x9900CC","0x66FFCC","0x66CCCC","0x6699CC","0x6666CC","0x6633CC","0x6600CC"] Func _exit() GUIDelete($TransWindow) Exit EndFunc $TransWindow = GUICreate("Transparent Window", @DesktopWidth + 10, @DesktopHeight + 10) GUISetState() while 1 $color = Random(1, 216,1) For $i=1 To $Array[0] If $color=$i Then $color=$Array[$i] Next GUISetBkColor ( $color,$TransWindow) WinSetOnTop("Transparent Window", "",1) sleep(100) WEnd Edited April 24, 2008 by Swift Link to comment Share on other sites More sharing options...
JustinReno Posted April 24, 2008 Share Posted April 24, 2008 You finally figured out how to use arrays. Good job. Anyways, it sucks to mistake the hotkeys {END} with {ESC}. I tried to get out, it didn't work. It always stayed on top, I couldn't view task manager either. I had to hard reboot. Link to comment Share on other sites More sharing options...
Swift Posted April 24, 2008 Share Posted April 24, 2008 Lol, Well Yeah, It took me a bit, but I've learned to use a for/next loop with arrays to parse the information! Link to comment Share on other sites More sharing options...
Darth Posted April 24, 2008 Share Posted April 24, 2008 (edited) nice, have rave music on and the lights off when you run this \m/ Edited April 24, 2008 by Darth Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted April 24, 2008 Share Posted April 24, 2008 (edited) Swift, I am sorry to say this but you still hasn't understand arrays. That for-loop was totally unneccesary and also that "60" in the beginning of the array. Try this: #include <Misc.au3> HotKeySet("!{end}", "_Exit") $TransWindow = "" Global $Array[59] = ["0xFFFFFF","0xFFCCFF","0xFF99FF","0xFF66FF","0xFF33FF","0xFF00FF","0xCCFFFF","0xCCCCFF","0xCC99FF", _ "0xCC66FF","0xCC33FF","0xCC00FF","0x99FFFF","0x99CCFF","0x99CCFF","0x9999FF","0x9900FF","0x66FFFF","0x66CCFF", _ "0x6699FF","0x6666FF","0x6633FF","0x6600FF","0x33FFFF","0x33CCFF","0x3399FF","0x3366FF","0x3333FF","0x3300FF", _ "0x00FFFF","0x00CCFF","0x0099FF","0x0066FF","0x0033FF","0x0000FF","0xFFFFCC","0xFFCCCC","0xFF99CC","0xFF66CC", _ "0xFF33CC","0xFF00CC","0xCCCCCC","0xCC99CC","0xCC66CC","0xCC33CC","0xCC00CC","0x99FFCC","0x99CCCC","0xCCFFCC", _ "0x9999CC","0x9966CC","0x9933CC","0x9900CC","0x66FFCC","0x66CCCC","0x6699CC","0x6666CC","0x6633CC","0x6600CC"] Func _exit() GUIDelete($TransWindow) Exit EndFunc $TransWindow = GUICreate("Transparent Window", @DesktopWidth + 10, @DesktopHeight + 10) GUISetState() while 1 GUISetBkColor ($Array[Random(0, 59,1)],$TransWindow) WinSetOnTop("Transparent Window", "",1) sleep(100) WEnd Edited April 24, 2008 by AdmiralAlkex .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Swift Posted April 24, 2008 Share Posted April 24, 2008 Whatever, I thought I was doing good. Link to comment Share on other sites More sharing options...
smashly Posted April 24, 2008 Share Posted April 24, 2008 (edited) Made it even briefer #include <GuiConstants.au3> #include <Misc.au3> $Gui = GUICreate("", @DesktopWidth , @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST) GUISetState() While (Not _IsPressed("1B")) GUISetBkColor(Random(0x000000, 0xFFFFFF),$Gui) sleep(100) WEnd Exit Esc to exit.. Cheers Edit: Removed the extra exit.. doh Edited April 24, 2008 by smashly Link to comment Share on other sites More sharing options...
JellyFish666 Posted April 24, 2008 Share Posted April 24, 2008 Made it even briefer #include <GuiConstants.au3> #include <Misc.au3> $Gui = GUICreate("", @DesktopWidth , @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST) GUISetState() While (Not _IsPressed("1B")) GUISetBkColor(Random(0x000000, 0xFFFFFF),$Gui) sleep(100) WEnd Exit Exit Esc to exit.. Cheers I thought about doing the same thing but I didn't know it can random the string by numbers and letters at same time. Link to comment Share on other sites More sharing options...
theguy0000 Posted April 24, 2008 Share Posted April 24, 2008 (edited) I thought about doing the same thing but I didn't know it can random the string by numbers and letters at same time.0xFFFFFF is considered a number, not a letter. Actually it's considered hex but it can be treated as a number. edit: MsgBox(0, "", 0xFFFFFF) gives a number. Edited April 24, 2008 by theguy0000 The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN Link to comment Share on other sites More sharing options...
flip209 Posted April 24, 2008 Author Share Posted April 24, 2008 I did not know that either i like that a lot. " I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln Link to comment Share on other sites More sharing options...
flip209 Posted April 24, 2008 Author Share Posted April 24, 2008 Sorry that is funny.... " I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln Link to comment Share on other sites More sharing options...
smashly Posted April 24, 2008 Share Posted April 24, 2008 If you really want a head to hurt then replace the sleep with a random beep #include <GuiConstants.au3> #include <Misc.au3> $Gui = GUICreate("", @DesktopWidth , @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST) GUISetState() While (Not _IsPressed("1B")) GUISetBkColor(Random(0x000000, 0xFFFFFF),$Gui) Beep(Random(0x25, 0x7FFF),100) WEnd Exit Cheers Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted April 24, 2008 Share Posted April 24, 2008 Good job smashly!! .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface 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