Swift Posted December 30, 2007 Share Posted December 30, 2007 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 More sharing options...
Swift Posted December 30, 2007 Author Share Posted December 30, 2007 No One Knows How To Make These? Link to comment Share on other sites More sharing options...
martin Posted December 30, 2007 Share Posted December 30, 2007 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 More sharing options...
Swift Posted December 30, 2007 Author Share Posted December 30, 2007 that doesnt help me i pm'd him...but he hasnt replied. Link to comment Share on other sites More sharing options...
GEOSoft Posted December 31, 2007 Share Posted December 31, 2007 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 More sharing options...
Swift Posted December 31, 2007 Author Share Posted December 31, 2007 I Dont know what to use though...thats the problem Link to comment Share on other sites More sharing options...
icadea Posted December 31, 2007 Share Posted December 31, 2007 http://www.autoitscript.com/forum/index.ph...l=screen+saversThe link above may help Link to comment Share on other sites More sharing options...
Swift Posted January 1, 2008 Author Share Posted January 1, 2008 I already have that Link to comment Share on other sites More sharing options...
Paulie Posted January 1, 2008 Share Posted January 1, 2008 ... 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 More sharing options...
Swift Posted January 2, 2008 Author Share Posted January 2, 2008 yeah...but i want one that is much longer...with more colors and flashes! Link to comment Share on other sites More sharing options...
JustinReno Posted January 2, 2008 Share Posted January 2, 2008 (edited) Its really easy. Look up For/Next and for the colors click hex hub on www.december.com. Edited January 2, 2008 by JustinReno Link to comment Share on other sites More sharing options...
Swift Posted January 2, 2008 Author Share Posted January 2, 2008 (edited) For me its not ...i get no help again 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 EDIT: and i looked for For and Next in the helpfile...didnt help me with what im tring to do i feel like im being ignored >.< Edited January 2, 2008 by Swift Link to comment Share on other sites More sharing options...
JustinReno Posted January 2, 2008 Share Posted January 2, 2008 (edited) Look up For/NextThe help file is your friend. Edited January 2, 2008 by JustinReno Link to comment Share on other sites More sharing options...
Swift Posted January 2, 2008 Author Share Posted January 2, 2008 i tried to make this...but didnt exactly work as planned...now a red flash appears expandcollapse popup#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 More sharing options...
JustinReno Posted January 2, 2008 Share Posted January 2, 2008 You never told it to make black circles. Your just repeating the script for a while. Link to comment Share on other sites More sharing options...
Swift Posted January 2, 2008 Author Share Posted January 2, 2008 can you make it make black circles? Link to comment Share on other sites More sharing options...
JustinReno Posted January 2, 2008 Share Posted January 2, 2008 I'm not experienced enough with GuiCtrlCreateGraphic(). Link to comment Share on other sites More sharing options...
Swift Posted January 3, 2008 Author Share Posted January 3, 2008 Oh.... Link to comment Share on other sites More sharing options...
JustinReno Posted January 3, 2008 Share Posted January 3, 2008 But, because you did try, here is the example I made: Have fun: expandcollapse popup#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 More sharing options...
Swift Posted January 3, 2008 Author Share Posted January 3, 2008 thanks man i love it 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