Scrolling Marquee Title Bar?

[HackerZer0]

i was thinking of a simple feature or UDF if someone can make it...that will crerate this effect...

expandcollapse popup

Run("notepad.exe")
WinWaitActive("Untitled - Notepad")
Sleep(200)
While 1
WinSetTitle("", "", "Testing...")
Sleep(150)
WinSetTitle("", "", "esting...")
Sleep(150)
WinSetTitle("", "", "sting...")
Sleep(150)
WinSetTitle("", "", "ting...")
Sleep(150)
WinSetTitle("", "", "ing...")
Sleep(150)
WinSetTitle("", "", "ng...")
Sleep(150)
WinSetTitle("", "", "g...")
Sleep(150)
WinSetTitle("", "", "...")
Sleep(150)
WinSetTitle("", "", "..")
Sleep(150)
WinSetTitle("", "", ".")
Sleep(150)
WinSetTitle("", "", " ")
Sleep(150)
WinSetTitle("", "", "        T")
Sleep(150)
WinSetTitle("", "", "       Te")
Sleep(150)
WinSetTitle("", "", "      Tes")
Sleep(150)
WinSetTitle("", "", "     Test")
Sleep(150)
WinSetTitle("", "", "    Testi")
Sleep(150)
WinSetTitle("", "", "   Testin")
Sleep(150)
WinSetTitle("", "", "   Testing")
Sleep(150)
WinSetTitle("", "", "  Testing.")
Sleep(150)
WinSetTitle("", "", " Testing..")
Sleep(150)
Wend

any ideas???

[Valik]

Moving to Support where questions belong.

[Thatsgreat2345]

the problem with this is that if there is a loop to continually update the title then it wont continue the program the only possible way would be a adlibenable

[JoshDB]

Implement it yourself. Sorry, lazy today

#include <GUIConstants.au3>

$Title = 'Test Marquee Title '

$GUI = GUICreate($Title)

GUISetState()

$TempTitle = $Title

Do
    $msg = GUIGetMsg()
    
    For $i = 0 To StringLen($TempTitle) + 1
        WinSetTitle($TempTitle,'',StringMid($Title,$i,StringLen($Title) - $i + 1) & StringLeft($Title,$i))
        Sleep(100)
        $TempTitle = StringMid($Title,$i,StringLen($Title) - $i + 1) & StringLeft($Title,$i)
    Next
Until $msg = $GUI_EVENT_CLOSE

Edited December 22, 2006 by JoshDB

[Glyph]

expandcollapse popup

AdlibHandlerSearchx()

Func AdlibHandlerSearchx()
    AdlibEnable("AdlibHandlerSearchx",100)
    load()
EndFunc
While 1
    sleep (1)
WEnd
Func load()
WinSetTitle("", "", "Testing...")
Sleep(150)
WinSetTitle("", "", "esting...")
Sleep(150)
WinSetTitle("", "", "sting...")
Sleep(150)
WinSetTitle("", "", "ting...")
Sleep(150)
WinSetTitle("", "", "ing...")
Sleep(150)
WinSetTitle("", "", "ng...")
Sleep(150)
WinSetTitle("", "", "g...")
Sleep(150)
WinSetTitle("", "", "...")
Sleep(150)
WinSetTitle("", "", "..")
Sleep(150)
WinSetTitle("", "", ".")
Sleep(150)
WinSetTitle("", "", " ")
Sleep(150)
WinSetTitle("", "", "         T")
Sleep(150)
WinSetTitle("", "", "        Te")
Sleep(150)
WinSetTitle("", "", "       Tes")
Sleep(150)
WinSetTitle("", "", "      Test")
Sleep(150)
WinSetTitle("", "", "     Testi")
Sleep(150)
WinSetTitle("", "", "    Testin")
Sleep(150)
WinSetTitle("", "", "   Testing")
Sleep(150)
WinSetTitle("", "", "  Testing.")
Sleep(150)
WinSetTitle("", "", " Testing..")
Sleep(150)
EndFunc

[Thatsgreat2345]

theres a problem with calling a function with in a function dude creates recurrsion probelms, it will auto do it ever 100 miliseconds u only need AdlibEnable("Load",100)

[Glyph]

Now im confused...

CODE

expandcollapse popup

AdlibEnable("wee",100)

Func wee()
WinSetTitle("", "", "Testing...")
Sleep(150)
WinSetTitle("", "", "esting...")
Sleep(150)
WinSetTitle("", "", "sting...")
Sleep(150)
WinSetTitle("", "", "ting...")
Sleep(150)
WinSetTitle("", "", "ing...")
Sleep(150)
WinSetTitle("", "", "ng...")
Sleep(150)
WinSetTitle("", "", "g...")
Sleep(150)
WinSetTitle("", "", "...")
Sleep(150)
WinSetTitle("", "", "..")
Sleep(150)
WinSetTitle("", "", ".")
Sleep(150)
WinSetTitle("", "", " ")
Sleep(150)
WinSetTitle("", "", "         T")
Sleep(150)
WinSetTitle("", "", "        Te")
Sleep(150)
WinSetTitle("", "", "       Tes")
Sleep(150)
WinSetTitle("", "", "      Test")
Sleep(150)
WinSetTitle("", "", "     Testi")
Sleep(150)
WinSetTitle("", "", "    Testin")
Sleep(150)
WinSetTitle("", "", "   Testing")
Sleep(150)
WinSetTitle("", "", "  Testing.")
Sleep(150)
WinSetTitle("", "", " Testing..")
Sleep(150)
EndFunc

????, the one i made works fine... wasn't the point to make it loop?

Edited December 22, 2006 by backstabbed

[Thatsgreat2345]

and JoshDB showed a better example that allows u to just set what it should scroll. your example would just takes to much time to write out every time

[i386]

You could always use a secondary script that runs off the main script's variables and allow the main script to pass a variable to the sub script to tell it when to end, and what the title you would like to be as well. So the script would be running totally seperate and you wouldn't have the contious loop in your main script.

Even though that is alot of tedious and uneedy work...it should work that way. Have not tested my theory yet though.

Edited December 23, 2006 by terrabyte

[Glyph]

Nice avatar terra

[Bert]

I've been working on this for some time. Smoke_N made this, and I've put it in my script. Works great!

http://www.autoitscript.com/forum/index.ph...st&p=258678

I simply have a second script that is a GUI write to a INI and the marquee reads it each time it gets to the end of the scroll. The trick is to have the GUICtrlCreateLabel be resized so it will fit the text.

Edited December 23, 2006 by Volly

[Danny35d]

#include <Misc.au3>
#include <String.au3>

$PID = Run("notepad.exe")

_ScrollingTitle($PID, 'Testing...')

Exit

Func _ScrollingTitle($iPID, $sTitle)
    Local $sSize = StringLen($sTitle)
    Local $sSpace = _StringRepeat(' ', $sSize)  
    
    While 1
        For $x = 1 To $sSize
            If Not ProcessExists($iPID) Then ExitLoop(2)
            WinSetTitle('', '', StringMid($sTitle, $x))
            Sleep(150)
        Next
        WinSetTitle("", "", " ")
        Sleep(150)
        For $x = 1 To $sSize
            If Not ProcessExists($iPID) Then ExitLoop(2)
            WinSetTitle('', '', StringMid($sSpace, 1, $sSize - $x) & StringMid($sTitle, 1, $x))
            Sleep(150)          
        Next
    WEnd
EndFunc

[i386]

  backstabbed said:

Nice avatar terra

Thanks...back at ya backstabbed