Messenger Discovery 3 (http://www.messengerdiscovery.com/) can change your nickname either every time you sign in or every minute to a random nickname from a list in which you make.
code:'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