MSN Personal Song Message

[Draygoes]

Wow! Impressive!

[BinaryBrother]

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

[Dhilip89]

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)

[Janez]

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.