Sign in to follow this  
Followers 0
flip209

Can you say My head hurts

17 posts in this topic

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

Share this post


Link to post
Share on other sites



Wow, thats pretty cool, thanks! :D

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

There is probably a better way to use the colors, like a array, and a for/next loop. :D I will try to find a way!

Share this post


Link to post
Share on other sites

#5 ·  Posted (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 by Swift

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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

Edited by Darth

Share this post


Link to post
Share on other sites

#9 ·  Posted (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 by AdmiralAlkex

Share this post


Link to post
Share on other sites

Whatever, I thought I was doing good. :D

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

Made it even briefer :D

#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 by smashly

Share this post


Link to post
Share on other sites

Made it even briefer :D

#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.

Share this post


Link to post
Share on other sites

#13 ·  Posted (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 by theguy0000

The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

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


" 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

Share this post


Link to post
Share on other sites

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

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