Jump to content
Sign in to follow this  
HackerZer0

Scrolling Marquee Title Bar?

Recommended Posts

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

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

Share this post


Link to post
Share on other sites

Implement it yourself. Sorry, lazy today :P

#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 by JoshDB

Ha, I haven't been on these forums since... 2006, almost. Behold, my legacy signature:My AutoIt idol is Valuater. You know you love him, too.My Stuff: D&D AGoT Tools Suite

Share this post


Link to post
Share on other sites

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

:P

Share this post


Link to post
Share on other sites

Now im confused...

CODE

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 by backstabbed

Share this post


Link to post
Share on other sites

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 by terrabyte

Spoiler

 

"...Yes, I am a criminal. My crime is that of curiosity. My crime is that of judging people by what they say and think, not what they look like.My crime is that of outsmarting you, something that you will never forgive me for." --The Mentor

"Mess with the best, die like the rest!!" -Hackers

"This above all to thine own self be true." -William Shakespeare

"Corruption is only as corrupted as the individual makes it out to be." -i386

 

style7,AutoIt.png

 

 

Share this post


Link to post
Share on other sites

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 by Volly

Share this post


Link to post
Share on other sites

#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


AutoIt Scripts:NetPrinter - Network Printer UtilityRobocopyGUI - GUI interface for M$ robocopy command line

Share this post


Link to post
Share on other sites

Nice avatar terra :P

Thanks...back at ya backstabbed


Spoiler

 

"...Yes, I am a criminal. My crime is that of curiosity. My crime is that of judging people by what they say and think, not what they look like.My crime is that of outsmarting you, something that you will never forgive me for." --The Mentor

"Mess with the best, die like the rest!!" -Hackers

"This above all to thine own self be true." -William Shakespeare

"Corruption is only as corrupted as the individual makes it out to be." -i386

 

style7,AutoIt.png

 

 

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  

×
×
  • Create New...