Programación General > Visual Basic 6.0 e inferiores

 Cerrar Sesión Del Msn

<< < (2/2)

© Jonathan ©:
Hola, yo no lo he bajado y tampoco puedo descargarlo, se ve que lo han eliminado del servidor, pero creo puedes encontrar lo que buscas en las librerias de microsoft. Mira el siguiente link y me informas si te sirve:

http://msdn.microsoft.com/library/default....lient_entry.asp

Ahi hay un buscador y muchas librerias para los programas de microsoft, no se si sera de utilidad. Saludos  :hola:

DaVId925:
hola, yo estube leyendo un poquito sobre eso,si usas windows 98 funcionan las apis que describen alli,pero si usas windows xp  no :blink: , 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  :P

Navegación

[0] Índice de Mensajes

[*] Página Anterior