Breadcrumbs

[MrAlicard]

First Go to Project -> Add Reference -> Click COM -> Click Messenger API Type Libary -> OK

Include:

• 1 TextBox
  1 Button

Code: Select all

Dim mess As New MessengerAPI.Messenger

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Opens up options for messenger
           mess.OptionsPages(0, MessengerAPI.MOPTIONPAGE.MOPT_GENERAL_PAGE)
'send new nickname
            SendKeys.Send(Textbox1.Text)
'double enter (clicks "ok") to make sure the frame closes
            SendKeys.Send("{enter}")
            SendKeys.Send("{enter}")
'messagebox to verify the nickname has been changed
            MsgBox("Nickname changed into " + Textbox1.Text, MsgBoxStyle.Information, "Nickname Changed")

[MrAksel]

Everyone need to declare the variable mess as 'IMessengerWindow', i think its that