Shoutbox

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

---