Can you say My head hurts

[flip209]

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

[Swift]

Wow, thats pretty cool, thanks!

[flip209]

You are very welcome... See Great things happen when you are a bored programmer.....

[Swift]

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!

[Swift]

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

[JustinReno]

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.

[Swift]

Lol, Well Yeah, It took me a bit, but I've learned to use a for/next loop with arrays to parse the information!

[Darth]

nice, have rave music on and the lights off when you run this \m/

Edited April 24, 2008 by Darth

[AdmiralAlkex]

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

[Swift]

Whatever, I thought I was doing good.

[smashly]

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

[JellyFish666]

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.

[theguy0000]

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

[flip209]

I did not know that either i like that a lot.

[flip209]

Sorry that is funny....

[smashly]

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

[AdmiralAlkex]

Good job smashly!!