Jump to content

Flashy Colorful Color Test!


Swift
 Share

Recommended Posts

Have you ever seen some programs where when you want to install them...they check your video?

and you press 'check' and then it makes swirls and colors and stuff like that?...i want a GUI with 1 button that says: test you click it....and it does all that....i like seeing the colors and stuff...so can anyone make me one? i found a example with JustinReno's All-In-One program...i love it...

its attached below its under: Misc.. Color Test.

All_In_One_Source.au3

Link to comment
Share on other sites

No One Knows How To Make These?

Search for screen savers by lokster, he makes some good effects. He's got more than one thread for screen savers I think.

You can also do a lot with GUICtrlSetGraphic.

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.
Link to comment
Share on other sites

so can anyone make me one?

That's not the purpose of the forums. We can help you out if you run into problems but don't expect people to write the code for you. As I pointed out to you yesterday, RTFM.

Try to make it work by looking at examples already posted and THEN if you have problems, post what you've tried and someone will probably try to help you.

George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Link to comment
Share on other sites

... I don't understand what you want.

JustinReno already made one for you.

See the source that you attached:

Func _Flicker()
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 1000 to 1 Step -1
        If $BkColor = 0xFF0000 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x0000FF
        ElseIf $BkColor = 0x0000FF Then 
            $BkColor = 0xFF0000 
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
EndFunc
Link to comment
Share on other sites

For me its not :)...i get no help again :P so vague (Vahgah) idk if thats how u spell it..but...yea...for and next are just words to make it...basically

ShellExecute(jakjshf)

Next

1531

For

1522

:blink:

EDIT: and i looked for For and Next in the helpfile...didnt help me with what im tring to do :wub: i feel like im being ignored :P >.<

Edited by Swift
Link to comment
Share on other sites

i tried to make this...but didnt exactly work as planned...now a red flash appears :)

#include <GuiConstants.au3>
#Include <Misc.au3>
GUICreate(" Push", 100, 50, -1, -1, $GUI_SS_DEFAULT_GUI , BitOr($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$Button = GUICtrlCreateButton("Push", 2, 2, 98, 48)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button
    _Flicker()
EndSwitch
WEnd

Func _Flicker()
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 1000 to 1 Step -1
        If $BkColor = 0xFF0000 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x0000FF
        ElseIf $BkColor = 0x0000FF Then 
            $BkColor = 0xFF0000 
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 1000 to 1 Step -1
        If $BkColor = 0xFF0000 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x0000FF
        ElseIf $BkColor = 0x0000FF Then 
            $BkColor = 0xFF0000 
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 5 to 1 Step -1
        If $BkColor = 0xFF00F0 Then 
            $BkColor = 0x42F32A
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x0F00FF Then 
            $BkColor = 0x42932A
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0xAA0000)
        GUISetBkColor(0x777C8A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)

EndFunc

Whats wrong? why doesnt it make black circles?

Link to comment
Share on other sites

But, because you did try, here is the example I made:

Have fun:

#Include <Misc.au3>

HotKeySet("{ESC}", "_MyExit")
HotKeySet("y", "_Key")
HotKeySet("n", "_Key")

Global $Colors[9] = ["0x000000", "0xFFFFFF", "0x800000", "0xFF6103", "0xB8860B", "0x385E0F", "0x3299CC", "0xCC00FF", "0xFF1CAE"], $Label

$CheckGUI = GUICreate("Video Card", 100, 26, -1, -1, -1, 0x00000080 + 0x00000100)
$CheckButton = GUICtrlCreateButton("Check Video Card", 0, 0, 99, 25, 0)
GUISetState(@SW_SHOW)
While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $CheckButton
            _Check(1500)
            ExitLoop
   EndSwitch
WEnd

Func _Check($Sleep)
$GUI =  GUICreate("", @DesktopWidth+100, @DesktopHeight+100, -1, -1, 0x80000000, 0x00000008)
GUISetState(@SW_SHOW, $GUI)
For $i = 1 to $Sleep
    GUISetCursor(16, 1, $GUI)
    GUISetBkColor($Colors[Random(0, 8, 1)], $GUI)
Next
Beep(8000, 100)
Beep(10000, 100)
Beep(12000, 100)
$Label = GUICtrlCreateLabel("Did you see the colored bars?", 65, @DesktopHeight-55, @DesktopWidth, 100)
GUICtrlSetFont($Label, 72)
GUICtrlSetColor($Label, 0xFFFFFF)
While 1
    Sleep(10)
WEnd
EndFunc

Func _Key()
    If @HotKeyPressed = "y" Then
        GUICtrlSetData($Label, GUICtrlRead($Label)&" Y")
        Sleep(1000)
        Exit
    EndIf
    If @HotKeyPressed = "n" Then
        GUICtrlSetData($Label, GUICtrlRead($Label)&" N")
        Sleep(1000)
        Exit
    EndIf
EndFunc

Func _MyExit()
    Exit
EndFunc
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...