Jump to content
Sign in to follow this  
ludocus

cool win effect

Recommended Posts

ludocus

I made this simple but cool win effect :)

$newtitle = inputbox('Hello', "please select a new title" )
if @Error then exit

HotKeySet('{ESC}', 'ex')
While 1
sleep (1)
$error = _WinSetTitleScroll($newtitle)
if $error = -1 then exit
WEnd

func ex()
    exit
EndFunc


Func _WinSetTitleScroll($sTitle, $sWindow = '', $sLength=200, $sSpeed=50)
if $sWindow = '' Then
    $window = WinGetTitle("")
Else
    $window = $sWindow
EndIf
if @Error then return -1

$length = StringLen ( $newtitle )+1
$count = 1
if @Error then return -1
Do
$convertedtitle = StringRight ( $sTitle, $count )
if @Error then return -1
WinSetTitle ( '', '', $convertedtitle )
if @Error then return -1
$count = $count + 1
sleep ( $sSpeed )
until $count = $length
$c = 1
While 1
$win = WinGetTitle('')
if @Error then return -1
WinSetTitle ( $win, '', ' '&$win )
if @Error then return -1
sleep ( $sSpeed )
$c = $c + 1
if $c = $sLength then return 1
WEnd
EndFunc
Edited by ludocus

Share this post


Link to post
Share on other sites
Madza91

Nice :D


[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

Share this post


Link to post
Share on other sites
Coolw

That's aswome! :D ... but can you add a stop so that you dont have to exit out of the program to stop it? Maybe a choice to do it to any active window?


My ProgramsMy WIP'sSteam Server Restarter

Share this post


Link to post
Share on other sites
Horrendous

hehe, nice :D

Share this post


Link to post
Share on other sites
SmOke_N

I made this simple but cool win effect :D

$newtitle = inputbox('Hello', "please select a new title" )
$length = StringLen ( $newtitle )+1
sleep ( 100 )
$window = WinGetTitle("")


While 1
$count = 1
Do
$convertedtitle = StringRight ( $newtitle, $count )
WinSetTitle ( '', '', $convertedtitle )
$count = $count + 1
sleep ( 100 )
until $count = $length
space()
WEnd

Func space()
$c = 1
While 1
$win = WinGetTitle('')
WinSetTitle ( $win, '', ' '&$win )
sleep ( 100 )
$c = $c + 1
if $c = 100 then return
WEnd
EndFuncoÝ÷ Ûú®¢×¢,)Ê·ö· zÛbaz'^j춸§f§¥jبw«{l²Þ¶!{
'jëh×6Local $sNewTitle = InputBox("Hello", "Please select a new title.")
If @error = 1 Then Exit

Sleep(500)
Local $hWnd = WinGetHandle(""), $sHold, $aSplit = StringSplit($sNewTitle, ""), $i

While WinExists($hWnd)
    For $i = $aSplit[0] To 1 Step - 1
        Sleep(100)
        $sHold = $aSplit[$i] & $sHold
        WinSetTitle($hWnd, "", $sHold)
    Next
    Sleep(100)
    For $i = 1 To 100
        Sleep(100)
        $sHold = " " & $sHold
        WinSetTitle($hWnd, "", $sHold)
    Next
    $sHold = ""
    WinSetTitle($hWnd, "", "")
WEndoÝ÷ ØGb´w«zƧ¢Ø^­ªi®«­¢+Ù1½°ÀÌØíÍ9ÝQ¥Ñ±ô%¹ÁÕÑ   ½à ÅÕ½Ðí!±±¼ÅÕ½Ðì°ÅÕ½ÐíA±ÍͱйÜѥѱ¸ÅÕ½Ðì¤)%ÉɽÈôÄQ¡¸á¥Ð()M±À ÔÀÀ¤)1½°ÀÌØí¡]¹ô]¥¹Ñ!¹± ÅÕ½ÐìÅÕ½Ð줰ÀÌØí¹]¥Ñ ôÄÀÀ°ÀÌØí¤°ÀÌØíÍ!½±()1½°ÀÌØí]A½Ìô]¥¹ÑA½Ì ÀÌØí¡]¹¤°ÀÌØí¹1¸ôMÑÉ¥¹1¸ ÀÌØíÍ9ÝQ¥Ñ±¤)%%ÍÉÉä ÀÌØí]A½Ì¤Q¡¸ÀÌØí¹]¥Ñ ô  ÀÌØí]A½ÍlÉt´ÀÌØí]A½ÍlÁt¤´ÀÌØí¹1¸¤´ÌÀ)½ÈÀÌØí¤ôÄQ¼ÀÌØí¹]¥Ñ ($ÀÌØíÍ9ÝQ¥Ñ±ôÅÕ½ÐìÅÕ½ÐìµÀìÀÌØíÍ9ÝQ¥Ñ±)9áÐ()1½°ÀÌØíMÁ±¥ÐôMÑÉ¥¹MÁ±¥Ð ÀÌØíÍ9ÝQ¥Ñ±°ÅÕ½ÐìÅÕ½Ð줰ÀÌØí¤(í
½Õ±Ý½É¬Ñ¡]¥¹ÑA½Ì¹ÍÑÕ½Ù¥¸Ñ¡±½½À½ÈÉÍ¥éÝ¥¹Ì¥å½ÔݹÑ)]¡¥±]¥¹á¥ÍÑÌ ÀÌØí¡]¹¤(%½ÈÀÌØí¤ôÀÌØíMÁ±¥ÑlÁtQ¼ÀÌØí¹1¸MÑÀ´Ä($%M±À ÈÔ¤($$ÀÌØíÍ!½±ôÀÌØíMÁ±¥ÑlÀÌØí¥tµÀìÀÌØíÍ!½±($%]¥¹MÑQ¥Ñ± ÀÌØí¡]¹°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíÍ!½±¤(%9áÐ($ÀÌØíÍ!½±ôÅÕ½ÐìÅÕ½Ðì)]¹
Using different variants (win width, space content etc... )
Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites
Xenobiologist

Hi,

there is a nice texteffect udf from peethebee which can be used for titles also.

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites
GEOSoft

Hi,

there is a nice texteffect udf from peethebee which can be used for titles also.

Mega

I'm not sure that it's still available. peethebee moved all his files to his fileman and I don't think his were put back up after they got wiped.

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!"

Share this post


Link to post
Share on other sites
Xenobiologist

I'm not sure that it's still available. peethebee moved all his files to his fileman and I don't think his were put back up after they got wiped.

Hi,

you are right, but have a look here : LINK texteffect UDF

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites
crashdemons

I made this simple but cool win effect :D

Here's another cool one

- Title / Control marquee's (moving left by default)

Note: $m can be set higher than one to take larger steps, or set to a negative value to move right instead.

Edit: _CircValue was wrong - fixed.

Edit: _CircValue was updated - AGAIN!

$gui=GUICreate("My Cool Scrolling Title ",300,20)
$lab=GUICtrlCreateLabel("My Cool Scrolling Label ",0,0,300,20)
GUISetState()
While 1
    _WinTitle_CircShift($gui,-1)
    _ControlText_CircShift($gui,$lab)
    Sleep(300)
WEnd



;functions
Func _WinTitle_CircShift($hwnd,$m=1)
    WinSetTitle($hwnd,'',_CircShift(WinGetTitle($hwnd), $m))
EndFunc
Func _ControlText_CircShift($parent,$hwnd,$m=1)
    ControlSetText($parent,'',$hwnd,_CircShift(ControlGetText($parent,"",$hwnd), $m))
EndFunc
Func _CircShift($string, $movement)
    ;moves a substring from the left of the string to the right of the string
    ;movement = how long a substring to move from left of string to the right of string
    $len=StringLen($string)
    $movement=_CircValue($movement,1,$len)
    Return StringMid($string,$movement+1)&StringMid($string,1,$movement)
EndFunc   ;==>_CircShift
Func _CircValue($i,$n,$x)
    If $i>=$n And $i<=$x Then Return $i
    Select
        Case $i>$x
            $dx=$i-$x
            $o=_CircValue($n+$dx-1,$n,$x)
            Return $o
        Case $i<$n
            $dn=$n-$i
            $o=_CircValue($x-$dn,$n,$x)
            Return $o
    EndSelect
    Return $i
EndFunc
Edited by crashdemons

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
ludocus

Thnx everybody..

Share this post


Link to post
Share on other sites
KeCe

lol pretty cool.. but now i cant stop it dude


If you fool around with a thing for very long you will screw it up

Share this post


Link to post
Share on other sites
flip209

This is pretty cool


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites
flip209

HotKeySet("{ESC}", "_Exit")

win_title("New Window")
Func _exit()
    Exit
EndFunc   ;==>_exit

Func win_title($Newtitle)
    $winsize = WinGetPos("")
    $winmin = StringLen($Newtitle) * 2
    While 1
        For $i = 0 To 100
            WinSetTitle("", "", $Newtitle)
            $Newtitle = " " & $Newtitle
            Sleep(100)
        Next
        
        For $i = 0 To  100
            WinSetTitle("", "", $Newtitle)
            $Newtitle = StringTrimLeft($Newtitle, 1)
            Sleep(200)
        Next
    WEnd
EndFunc   ;==>win_title

Goes back and forth

Edited by flip209

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites
crashdemons

The following function writes characters of a window title to the title one-by-one.

if the $direction parameter is NOT 1, it will erase the characters one-by-one

Func _WinTitle_WriteChars($HWnd, $direction=1, $change_delay=100)
    Local $t, $tn, $l, $i
    $t=WinGetTitle($HWnd)
    $l=StringLen($t)
    For $i=1 To $l
        If $direction=1 Then
            $tn=StringMid($t,1,$i)
        Else
            $tn=StringMid($t,1,$l-$i)
        EndIf
        WinSetTitle($HWnd,'',$tn)
        Sleep($change_delay)
    Next
    WinSetTitle($HWnd,'',$t)
EndFunc

Notes: you can do a cool write-unwrite loop with the following

While 1
    _WinTitle_WriteChars($HWnd, 1)
    _WinTitle_WriteChars($HWnd,-1)
WEnd

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
ludocus

hey, Thats pretty neat, Cool :)

Share this post


Link to post
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
Sign in to follow this  

×