hola, yo estube leyendo un poquito sobre eso,si usas windows 98 funcionan las apis que describen alli,pero si usas windows xp no
, esa documentacion que esta hay no es muy util por que es para messenger 4.7 no ? y en las versiones del 6 y 5 las apis se manejan diferente.Si usas windows xp entonces no puedes usar las apis que hay dicen por que da error,tienes que usar las apis del win32
en win98 seria
Primero haces referencias alas librerias de messenger.
luego pones un boton cuando le des click debe cerrar la sesion
leugo pones
-------------------------------------------------------------------
Private WithEvents msn As MessengerAPI.Messenger
Private Sub Command1_Click()
msn.Signout
End Sub
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
--------------------------------------------------------
en win xp
pones un boton,cuando le des click debe cerrar la sesion
--------------------------------------------------------
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Const WM_COMMAND = &H111
Dim ventana As Long
Private Sub Command1_Click()
ventana = FindWindow("MSNMSBLClass", vbNullString)
PostMessage ventana, WM_COMMAND, 40210, 0
End Sub
--------------------------------------------
con findwindow encontramos la ventana principal de msn ...la clase es MSNMSBLClass. luego con postwindows mandamos un click, en este caso si cambio el numero " 40210" hara una cosa diferente, invitara un contacto o talvez abra la ventana de cambiar la imagen del display,puedes intentar con los diferentes numeros...
chauu
