Jump to content

Run this if you want to see something weird


buzz44
 Share

Recommended Posts

how cool is this

#include <GUIConstants.au3>

GUICreate("crazy")

GuiSetState()

While 1
   $msg = GUIGetMsg()
   If $msg = $GUI_EVENT_CLOSE Then ExitLoop
   GUISetBkColor (0xFFFFFF)
   GUISetBkColor (0x000000)
Wend

nothing highly advanced lol, just changing the Background colour, u can get all types of wierd lines by removing the $msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop and by adding sleep functions and changin the colour to,

edit:

#include <GUIConstants.au3>

GUICreate("crazy")

GuiSetState(@SW_MAXIMIZE)

While 1
   $msg = GUIGetMsg()
   If $msg = $GUI_EVENT_CLOSE Then ExitLoop
   GUISetBkColor (0xFF0000)
   GUISetBkColor (0xFF0000)
   GUISetBkColor (0x00FF00)
   GUISetBkColor (0x00FF00)
   GUISetBkColor (0x0000FF)
   GUISetBkColor (0x0000FF)
   GUISetBkColor (0xFFFF00)
   GUISetBkColor (0xFFFF00)
   GUISetBkColor (0xFF00FF)
   GUISetBkColor (0xFF00FF)
   GUISetBkColor (0xFF8000)
   GUISetBkColor (0xFF8000)
   GUISetBkColor (0xFFFFFF)
   GUISetBkColor (0x000000)
Wend

its a rainbow lol, a dizzy rainbow

edit2:

#include <GUIConstants.au3>

GUICreate("crazy", -1,-1,-1,-1,BitOR($WS_BORDER,$WS_POPUP),BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))

GuiSetState(@SW_MAXIMIZE)

Opt("GUICloseOnESC",1)

WinSetTrans ("crazy", "", 80)

While 1
   $msg = GUIGetMsg()
   If $msg = $GUI_EVENT_CLOSE Then ExitLoop
   GUISetBkColor (0xFF0000)
   GUISetBkColor (0xFF0000)
   GUISetBkColor (0x00FF00)
   GUISetBkColor (0x00FF00)
   GUISetBkColor (0x0000FF)
   GUISetBkColor (0x0000FF)
   GUISetBkColor (0xFFFF00)
   GUISetBkColor (0xFFFF00)
   GUISetBkColor (0xFF00FF)
   GUISetBkColor (0xFF00FF)
   GUISetBkColor (0xFF8000)
   GUISetBkColor (0xFF8000)
   GUISetBkColor (0xFFFFFF)
   GUISetBkColor (0x000000)
Wend

press ESC to exit, you can make someone think there monitor is broken lol

Edited by burrup

qq

Link to comment
Share on other sites

the last one is cool, and the 2nd one makes my mouse go real slow

[font="Times"] If anyone remembers me, I am back. Maybe to stay, maybe not.----------------------------------------------------------------------------------------------------------[/font][font="Times"]Things I am proud of: Pong! in AutoIt | SearchbarMy website: F.R.I.E.S.A little website that is trying to get started: http://thepiratelounge.net/ (not mine)[/font][font="Times"] ----------------------------------------------------------------------------------------------------------[/font][font="Arial"]The newbies need to stop stealing avatars!!! It is confusing!![/font]

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...