Jump to content

Recommended Posts

Posted (edited)

I know this is a tricky way but it works:

$msg = "This is my message!"

For $i = 1 To StringLen($msg)
    Dim $newmsg
    $asc = Asc($msg)
    $newmsg = $newmsg & "{ASC " & $asc &"}"
    $msg = StringTrimLeft($msg, 1)
Next

If WinExists("MSN Messenger") Then
    WinActivate("MSN Messenger")
    Send("{TAB 7}" & "{ENTER}" & $newmsg & "{ENTER}")
EndIf

The reason I didn't use certain Control commands is because MSN Messenger does not give a unique control name to its controls.

Edited by erebus

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
×
×
  • Create New...