Sign in to follow this  
Followers 0
ludocus

Lol!

12 posts in this topic

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

Share this post


Link to post
Share on other sites



:) 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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Not sure I see the point of this example? :)


I can do signature me.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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

Edited by monoceres

Broken link? PM me and I'll send you the file!

Share this post


Link to post
Share on other sites

#9 ·  Posted (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 by i542

I can do signature me.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0