ludocus Posted April 9, 2008 Share Posted April 9, 2008 (edited) I made this simple but cool win effect expandcollapse popup$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 May 17, 2008 by ludocus Link to comment Share on other sites More sharing options...
Madza91 Posted April 9, 2008 Share Posted April 9, 2008 Nice [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) :) Link to comment Share on other sites More sharing options...
Coolw Posted April 9, 2008 Share Posted April 9, 2008 That's aswome! ... 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 Link to comment Share on other sites More sharing options...
Horrendous Posted April 10, 2008 Share Posted April 10, 2008 hehe, nice Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted April 10, 2008 Moderators Share Posted April 10, 2008 (edited) I made this simple but cool win effect expandcollapse popup$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 April 10, 2008 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. Link to comment Share on other sites More sharing options...
Xenobiologist Posted April 10, 2008 Share Posted April 10, 2008 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 Link to comment Share on other sites More sharing options...
GEOSoft Posted April 10, 2008 Share Posted April 10, 2008 Hi,there is a nice texteffect udf from peethebee which can be used for titles also.MegaI'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!" Link to comment Share on other sites More sharing options...
Xenobiologist Posted April 10, 2008 Share Posted April 10, 2008 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 UDFMega 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 Link to comment Share on other sites More sharing options...
crashdemons Posted April 10, 2008 Share Posted April 10, 2008 (edited) I made this simple but cool win effect 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! expandcollapse popup$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 May 18, 2008 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.) Link to comment Share on other sites More sharing options...
ludocus Posted April 10, 2008 Author Share Posted April 10, 2008 Thnx everybody.. Link to comment Share on other sites More sharing options...
KeCe Posted April 30, 2008 Share Posted April 30, 2008 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 Link to comment Share on other sites More sharing options...
flip209 Posted April 30, 2008 Share Posted April 30, 2008 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 Link to comment Share on other sites More sharing options...
flip209 Posted May 1, 2008 Share Posted May 1, 2008 (edited) 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 May 1, 2008 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 Link to comment Share on other sites More sharing options...
crashdemons Posted May 18, 2008 Share Posted May 18, 2008 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.) Link to comment Share on other sites More sharing options...
ludocus Posted May 18, 2008 Author Share Posted May 18, 2008 hey, Thats pretty neat, Cool 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