Lol!

[ludocus]

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

[d4rk]

yes, it's funny

but why don't give a clue to user when the window is totally invisible ?

[Xand3r]

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

[i542]

Not sure I see the point of this example?

[Xand3r]

lol )

it's supposed to be funny...

[Jos]

lol )

it's supposed to be funny...

Supposed ... yea, Funny... nah

[monoceres]

Edit: Nevermind, didn't see TheMadmans post...

Edited May 14, 2008 by monoceres

[d2addict4]

yeah, wasn't very funny...

Edited May 14, 2008 by d2addict4

[i542]

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

[crashdemons]

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

[i542]

About as funny as...

Well that at least made me laugh...for a second

http://99-bottles-of-beer.net/language-autoit-657.html

Edited May 15, 2008 by i542

[Jos]

*click*