ludocus Posted May 14, 2008 Share Posted May 14, 2008 look at this: #include <GUIConstants.au3> Opt('TrayMenuMode', 1 ) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Set Trans", 171, 55, 193, 125, $WS_EX_TOOLWINDOW) $Slider1 = GUICtrlCreateSlider(0, 0, 171, 29) GUICtrlSetBkColor(-1, '00xFFFFF' ) GUICtrlSetLimit ( -1, 254, 1 ) GUICtrlSetData ( -1, 254 ) $m = TrayCreateMenu ('Exit') $m1 = TrayCreateMenu('Click to exit', $m) $m2 = TrayCreateMenu ('Stop', $m1) $m3 = TrayCreateMenu('Close', $m2) $m4 = TrayCreateMenu ('Click to close', $m3) $m5 = TrayCreateMenu('Kill me', $m4) $m6 = TrayCreateMenu ('Close me', $m5) $m7 = TrayCreateMenu('Exit me', $m6) $exit = TrayCreateItem('Exit', $m7 ) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 WinSetTrans($Form1, '', GUICtrlRead($Slider1) ) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch $tMsg = TrayGetMsg() Switch $tMsg case $exit Exit EndSwitch WEnd Link to comment Share on other sites More sharing options...
d4rk Posted May 14, 2008 Share Posted May 14, 2008 yes, it's funny but why don't give a clue to user when the window is totally invisible ? [quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys Link to comment Share on other sites More sharing options...
Xand3r Posted May 14, 2008 Share Posted May 14, 2008 here is a little modified version : $cnt=29 $S_array=StringSplit("Exit,Click to exit,Stop,Close,Click to close,Kill me,Close me,Exit me,Exit,I dare ya to click,You don't have the guts to click!",",") #include <GUIConstants.au3> Opt('TrayMenuMode', 1 ) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Set Trans", 171, 55, 193, 125, $WS_EX_TOOLWINDOW) $Slider1 = GUICtrlCreateSlider(0, 0, 171, 29) GUICtrlSetBkColor(-1, '00xFFFFF' ) Dim $cntrl[$cnt+1] GUICtrlSetLimit ( -1, 254, 1 ) GUICtrlSetData ( -1, 254 ) $m = TrayCreateMenu ('Exit') $cntrl[1]=$m For $i=1 To $cnt $cntrl[$i]=TrayCreateMenu($S_array[Random(1,$S_array[0],1)],$i-1) Next $exit=TrayCreateItem("Finnaly!",$cntrl[$cnt]) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 WinSetTrans($Form1, '', GUICtrlRead($Slider1) ) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch $tMsg = TrayGetMsg() Switch $tMsg case $exit Exit EndSwitch WEnd but why don't give a clue to user when the window is totally invisible ?well... why would he do that? if he wanted to close the app just click on the window on the start bar and press esc.. Only two things are infinite, the universe and human stupidity, and i'm not sure about the former -Alber EinsteinPractice makes perfect! but nobody's perfect so why practice at all?http://forum.ambrozie.ro Link to comment Share on other sites More sharing options...
i542 Posted May 14, 2008 Share Posted May 14, 2008 Not sure I see the point of this example? I can do signature me. Link to comment Share on other sites More sharing options...
Xand3r Posted May 14, 2008 Share Posted May 14, 2008 lol ) it's supposed to be funny... Only two things are infinite, the universe and human stupidity, and i'm not sure about the former -Alber EinsteinPractice makes perfect! but nobody's perfect so why practice at all?http://forum.ambrozie.ro Link to comment Share on other sites More sharing options...
Developers Jos Posted May 14, 2008 Developers Share Posted May 14, 2008 lol )it's supposed to be funny... Supposed ... yea, Funny... nah SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
monoceres Posted May 14, 2008 Share Posted May 14, 2008 (edited) Edit: Nevermind, didn't see TheMadmans post... Edited May 14, 2008 by monoceres Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
d2addict4 Posted May 14, 2008 Share Posted May 14, 2008 (edited) yeah, wasn't very funny... Edited May 14, 2008 by d2addict4 Simple AutoIt Point Of Sale Link to comment Share on other sites More sharing options...
i542 Posted May 15, 2008 Share Posted May 15, 2008 (edited) yeah, wasn't very funny...My 2 pennys: BlockInput(1) SplashTextOn("dis be funny script", "omg wtf lolz") Sleep(1000) BlockInput(0) In near future, funny script will be this: MsgBox(0,"","Tee-Hee") OMG, where is this world going... Edited May 15, 2008 by i542 I can do signature me. Link to comment Share on other sites More sharing options...
crashdemons Posted May 15, 2008 Share Posted May 15, 2008 About as funny as...For $i=99 To 1 step -1 MsgBox(0,'',$i&" bottles of beer on the wall, "&$i&" bottles of beer."&@CRLF&"Take one down, pass it around and you've got - ")Next My Projects - WindowDarken (Darken except the active window) Yahsmosis Chat Client (Discontinued) StarShooter Game (Red alert! All hands to battlestations!) YMSG Protocol Support (Discontinued) Circular Keyboard and OSK example. (aka Iris KB) Target Screensaver Drive Toolbar Thingy Rollup Pro (Minimize-to-Titlebar & More!) 2D Launcher physics example Ascii Screenshot AutoIt3 Quine Example ("Is a Quine" is a Quine.) USB Lock (Another system keydrive - with a toast.) Link to comment Share on other sites More sharing options...
i542 Posted May 15, 2008 Share Posted May 15, 2008 (edited) About as funny as...Well that at least made me laugh...for a secondhttp://99-bottles-of-beer.net/language-autoit-657.html Edited May 15, 2008 by i542 I can do signature me. Link to comment Share on other sites More sharing options...
Developers Jos Posted May 15, 2008 Developers Share Posted May 15, 2008 *click* SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts