HackerZer0 Posted December 22, 2006 Posted December 22, 2006 i was thinking of a simple feature or UDF if someone can make it...that will crerate this effect... expandcollapse popupRun("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??? Earn money on CASHCRATE by sitting around doing nothing..
Thatsgreat2345 Posted December 22, 2006 Posted December 22, 2006 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 Posted December 22, 2006 Posted December 22, 2006 (edited) 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 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
Glyph Posted December 22, 2006 Posted December 22, 2006 expandcollapse popupAdlibHandlerSearchx() 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 tolle indicium
Thatsgreat2345 Posted December 22, 2006 Posted December 22, 2006 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 Posted December 22, 2006 Posted December 22, 2006 (edited) Now im confused... CODE expandcollapse popupAdlibEnable("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 tolle indicium
Thatsgreat2345 Posted December 22, 2006 Posted December 22, 2006 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 Posted December 23, 2006 Posted December 23, 2006 (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 December 23, 2006 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
Bert Posted December 23, 2006 Posted December 23, 2006 (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=258678I 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 The Vollatran project My blog: http://www.vollysinterestingshit.com/
Danny35d Posted December 23, 2006 Posted December 23, 2006 #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
i386 Posted December 23, 2006 Posted December 23, 2006 Nice avatar terra 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
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