How do I simply create a plugin that changes your name? Using VB6. I have the API files.

With the SetNewName function.

I don't understand all the initialise stuff

Well, I can't really tell you how to do that because I'm not a plugin programmer. I just knew the SetNewName function because its included with the Scripting host plugin.

Offtopic: i wish there was a way to get the text said by a contact with the scripting host.

code:

---

Public Function ChangeNick(nick As String)
'functions changenick
'originally code by effekt
'altered to work better and with msn7 by stormsys

Dim msnmsblclass As Long 'Main MSN Window Variable
Dim edit As Long 'Edit Text Box Variable
Dim x As Long 'Options Window Variable

msnmsblclass& = FindWindow("MSBLWindowClass", vbNullString) 'Get Messenger Window HWND
DoEvents 'w8 for api to compleate what its dooing
PostMessage msnmsblclass&, WM_COMMAND, 40268, 0 'Show Options Box
DoEvents 'w8 for api to compleate what its dooing
x& = FindWindow("#32770", "Options") 'Get Options Box HWND
DoEvents 'w8 for api to compleate what its dooing
x& = FindWindowEx(x&, 0&, "#32770", vbNullString) 'Get Options Box HWND
DoEvents 'w8 for api to compleate what its dooing
edit& = FindWindowEx(x&, 0&, "edit", vbNullString) 'Get Edit Box HWND
DoEvents 'w8 for api to compleate what its dooing
SendMessageByString edit&, WM_SETTEXT, 0, nick 'Set Edit Box Text
DoEvents 'w8 for api to compleate what its dooing
PostMessage edit&, WM_KEYDOWN, VK_RETURN, 0 'Push Enter
'no there is absolutly no need for this 2nd enter
End Function

---

'This is just an example of using the Visual Basic Input Box on the Initialize Function to set the new name.

Public strNewUserName As String
Public blnNameChange As Boolean

Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
    Initialize = True
    strNewUserName = InputBox("Enter New Name","Enter New Name", "Enter New Name")

    If strNewUserName = "" Or strNewUserName = "Enter New Name" Then
        MsgBox "Please Select A Different Name"
    Else
        blnNameChange = SetNewName(strNewUserName)
    End If
End Function


'If you are confused abuot what each of the variables passed through initialize are then please read the following.

'//////////////////////////////////////////////////////////////////////
'//
'// Purpose: Initialization function
'//
'// Definition:
'//   This function is called when Messenger starts and each time a
'//   different user signs-in in Messenger.                         
'//                                                                 
'// Parameters:                                                     
'//   * nVersion: plugin support version. This will be used in the   
'//     future to identify different levels of support. Messenger   
'//     Plus! 3.20 sets this value to 5.                             
'//   * sUserEmail: email of the current user in Messenger. If       
'//     Messenger is not signed-in, this parameter is the email of   
'//     the last user who signed in. Messenger Plus! uses this value
'//     to load its own settings.                                   
'//   * oMessenger: Messenger COM interface. The type of this object
'//     is "Messenger". For more information, consult the public     
'//     Messenger API documentation on Microsoft's web site.         
'//   * return value: if your initialization is successfull, return 
'//     True to notify Messenger Plus! that the plugin is ready to   
'//     use.                                                         
'//                                                                 
'// Plugin Version Index:                                           
'//     Messenger Plus! 2.20: 1                                     
'//     Messenger Plus! 2.21: 2                                     
'//     Messenger Plus! 2.50: 3                                     
'//     Messenger Plus! 3.00: 4                                     
'//     Messenger Plus! 3.20: 5                                     
'//                                                                 
'//////////////////////////////////////////////////////////////////////




'The above documentation is located in MPPluginDef.cls

What wd be an example to put in for version and omessenger?

quote:

---

Originally posted by j.g.allen
What wd be an example to put in for version and omessenger?

---

What does it mean for when i says:
"No creatable public componented detected"?

quote:

---

Originally posted by j.g.allen
What does it mean for when i says:
"No creatable public componented detected"?

---

Ok, how to i get it to appear in the msgplus plugins window? (I feel like I'm being a real pain in the arse)

quote:

---

Originally posted by j.g.allen
Ok, how to i get it to appear in the msgplus plugins window?

---

code:

---

start > run > regsvr32 "C:\Program Files\Messenger Plus! 3\Plugins\NameOfPlugin.dll"

---

Sorry what do i need to put in the reg file?

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Patchou\MsgPlus2\RegisteredPlugins]
""=""

What needs to go on the right and left?

On the left is the name of the project by default its MPPlugin the right side is the name of the Class file by default it is Sample.

What determines the class file, coz its not working. I have a project file called RSP, and 2 other files, MPPluginConst.bas and MPPluginDef.cls in that project. I set the reg file to "RSP"="Sample" and ran it. But it doesn't appear in Msgplus

quote:

---

Originally posted by j.g.allen
What determines the class file, coz its not working. I have a project file called RSP, and 2 other files, MPPluginConst.bas and MPPluginDef.cls in that project. I set the reg file to "RSP"="Sample" and ran it. But it doesn't appear in Msgplus

---