Sign in to follow this  
Followers 0
HackerZer0

Scrolling Marquee Title Bar?

13 posts in this topic

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



Moving to Support where questions belong.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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


tolle indicium

Share this post


Link to post
Share on other sites

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)

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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

tolle indicium

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

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

"...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." -Mozart_ONLINECheck out this free 1 GB FTP website at DriveHQ.com. You can control the users and even publish a website for free!![s]Your-Start.com - A online website that you can customize to hold all you links, news information, and other website info.[/s]

Share this post


Link to post
Share on other sites

Nice avatar terra :P


tolle indicium

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

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


"...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." -Mozart_ONLINECheck out this free 1 GB FTP website at DriveHQ.com. You can control the users and even publish a website for free!![s]Your-Start.com - A online website that you can customize to hold all you links, news information, and other website info.[/s]

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  
Followers 0