Draygoes Posted December 17, 2008 Share Posted December 17, 2008 Wow! Impressive! Spoiler "If a vegetarian eats vegetables,What the heck does a humanitarian eat?" "I hear voices in my head, but I ignore them and continue on killing." "You have forced me to raise the indifference warning to beige, it's a beige alert people. As with all beige alerts please prepare to think about the possibility of caring." An optimist says that giving someone power DOESN'T immediately turn them into a sadist. A pessimist says that giving someone power doesn't IMMEDIATELY turn them into a sadist. Link to comment Share on other sites More sharing options...
BinaryBrother Posted March 19, 2009 Share Posted March 19, 2009 (edited) I was working on something like this... But it was going to use JScript to make a MsgPlus plugin that read the status to a file, AutoIt would contenually write the active Window to a file... But now... While (1) ChangeMSNMessage (0, True, WinGetTitle("[ACTIVE]") Sleep (1000) WEnd This is pretty sweet, good work... edit: oops... Just realized I bumped a 3 month old topic... Hope I don't get yelled at... Edited March 19, 2009 by BinaryBrother SIGNATURE_0X800007D NOT FOUND Link to comment Share on other sites More sharing options...
Dhilip89 Posted March 20, 2009 Share Posted March 20, 2009 Very nice work on the script! I've found that the script doesn't work well with wide characters, so this is a fix from me: Just change: DllStructSetData ($pMem, 1, Asc (StringMid ($szMessage, $i, 1)), $i) To: DllStructSetData ($pMem, 1, AscW (StringMid ($szMessage, $i, 1)), $i) ;; Create a unicode string;; $iSize = StringLen ($szMessage) + 1 $pMem = DllStructCreate ("ushort[" & $iSize & "]") For $i = 0 To $iSize DllStructSetData ($pMem, 1, AscW (StringMid ($szMessage, $i, 1)), $i) Next DllStructSetData ($pMem, 1, 0, $iSize) [u]My Projects[/u]:General:WinShell (Version 1.6)YouTube Video Downloader Core (Version 2.0)Periodic Table Of Chemical Elements (Version 1.0)Web-Based:Directory Listing Script Written In AutoIt3 (Version 1.9 RC1)UDFs:UnicodeURL UDFHTML Entity UDF[u]My Website:[/u]http://dhilip89.hopto.org/[u]Closed Sources:[/u]YouTube Video Downloader (Version 1.3)[quote]If 1 + 1 = 10, then 1 + 1 ≠ 2[/quote] Link to comment Share on other sites More sharing options...
Janez Posted August 4, 2010 Share Posted August 4, 2010 How to read other language? Etc. Thai, Russian ///// Dim $list = StringSplit( String( FileRead( "MSN_quotes.txt" ) ), @LF, 1 ) While (1) ChangeMSNMessage (0, True, ChrW ( $list[ Random(1, $List[0], 1) ] ) ) Sleep (3000) WEnd /// Thanks. 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