El tipico estado del msn que te aparece como con la musica!!

Bueno esto sirve mas para acer publicidad !!

Empesemos

Tutorial:

Creamos un modulo nuevo en el cliente y ponemos:
' DESACTIVAR EL MENSAJE
' Call SetMusicInfo("", "", "", "Music", , False)

' CARGAR UN NUEVO MENSAJE
' Call SetMusicInfo("", "", "MENSAJE", "Music", , "{1}{0}")
' Call SetMusicInfo("", "", "MENSAJE", "Games", , "{1}{0}")
' Call SetMusicInfo("", "", "MENSAJE", "Office", , "{1}{0}")

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As Long
End Type

Public Const WM_COPYDATA = &H4A



Public Sub SetMusicInfo(ByRef r_sArtist As String, ByRef r_sAlbum As String, ByRef r_sTitle As String, Optional ByRef r_sWMContentID As String = vbNullString, Optional ByRef r_sFormat As String = "{0} - {1}", Optional ByRef r_bShow As Boolean = True)

Dim udtData As COPYDATASTRUCT
Dim sBuffer As String
Dim hMSGRUI As Long

'Total length can Not be longer Then 256 characters!
'Any longer will simply be ignored by Messenger.
sBuffer = "\0Music\0" & Abs(r_bShow) & "\0" & r_sFormat & "\0" & r_sArtist & "\0" & r_sTitle & "\0" & r_sAlbum & "\0" & r_sWMContentID & "\0" & vbNullChar

udtData.dwData = &H547
udtData.lpData = StrPtr(sBuffer)
udtData.cbData = LenB(sBuffer)

Do
hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString)

If (hMSGRUI > 0) Then
Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
End If

Loop Until (hMSGRUI = 0)

End Sub



Lo utilizamos, donde queramos con las funciones:


' DESACTIVAR EL MENSAJE
' Call SetMusicInfo("", "", "", "Music", , , False)

' CARGAR UN NUEVO MENSAJE
' Call SetMusicInfo("", "", "MENSAJE", "Music", , "{1}{0}")
' Call SetMusicInfo("", "", "MENSAJE", "Games", , "{1}{0}")
' Call SetMusicInfo("", "", "MENSAJE", "Office", , "{1}{0}")


La cosa seria lo siguiente: Vieron cuando escuchan muscia con el Ares o el Windows Media que en el msn le aparece escrito lo que estan escuchando??

Bueno lo que ace este dat es poner el nombre de tu sv mas el nombre del pj y todo eso!!

Este dat fue uno de los primeros que ice y si me acuerdo bn tube un par de problema y nose si sirve para todo los mod ustedes prueben y despues me dicen !!

Bueno estos fueron unos de mis mejores dat que ice espero que le ayan gustado!! Y si estan jugando a un sv online y bueno pasenmelo xq me estoy re contra aburriendo en mi casa jugando al conter !!
Bye a todos !!!


PD : Voy a crear una pagina y pondre todo lo que se en ella cuando la aga los avisare !!!

En castellano por favor