Introduction to Messenger API Type Library

Published
by
Dan
5 years, 3 months ago
in Windows Live Messenger
. Tags: , .
Windows Live Messenger

Change Local Friendly Name

Put the following function in a module:

Public Property Let FriendlyName(ByVal sNewFriendlyName As String)
    Dim x&, button&, edit As Long

    objMessenger.OptionsPages 0, MOPT_GENERAL_PAGE
    x = FindWindow("#32770", vbNullString)
    x = FindWindowEx(x, 0, "#32770", vbNullString)
    edit = FindWindowEx(x, 0, "edit", vbNullString)
    Call SendMessageByString(edit, WM_SETTEXT, 0, sNewFriendlyName)
    x = FindWindow("#32770", vbNullString)
    button = FindWindowEx(x, 0, "button", vbNullString)
    Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0)
    Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0)

End Property

And just use it like any old property:

FriendlyName = "DANIEL!"

Pages: 1 2 3 4 5

2 Responses to “Introduction to Messenger API Type Library”

Feed for this Entry Trackback Address
  1. 1 Camila
    11 months, 4 weeks ago.

    Hi,

    Do you know….How to add a new item to menu that shows when i right click on a group or a contact?

    thx,

  2. 2 motti
    9 months, 3 weeks ago.

    hi,
    I have trayed to open project and ues the refrens “Messenger API Type library” in c# or visual basic but I cant open the dll file
    dos sam on now what to do?
    Thank motti

Leave a Reply