Codenstuff.com

Posted: **Fri Mar 11, 2011 8:44 pm**

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")

Posted: **Fri Mar 11, 2011 8:48 pm**

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

Codenstuff.com

MSN Nickname Changer

MSN Nickname Changer

Re: MSN Nickname Changer