Messenger Mesenger 6.0

[neosp]

a ok... pues men es muy facil casi todo funciona es gracias a un modulo que hay que crear en el programa... y luego se van agregando las occiones... para que funcione este programa en la nueva version del msn no hay que colocar referencias... ya que si se colocan habran problemas con el envio de mensajes hacia el msn...

en el modulo lo que hay que colocar es lo siguiente:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public 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
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
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Declare Function SendMessage2 Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Const WM_SETTEXT = &HC
Public Const WM_COMMAND = &H111
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const VK_PAUSE = &H13
Public Const VK_SPACE = &H20
Public Function MSN_FindMSN()
Dim bah As Long
bah = FindWindow("MSNMSBLClass", vbNullString)
MSN_FindMSN = bah
End Function
Sub StatNodisponible()
PostMessage MSN_FindMSN, WM_COMMAND, 40168, 0
End Sub
Sub Statvuelvo()
PostMessage MSN_FindMSN, WM_COMMAND, 40169, 0
End Sub
Sub Ausente()
PostMessage MSN_FindMSN, WM_COMMAND, 40170, 0
End Sub
Sub statSaliacomer()
PostMessage MSN_FindMSN, WM_COMMAND, 40172, 0
End Sub
Sub statAltelefono()
PostMessage MSN_FindMSN, WM_COMMAND, 40171, 0
End Sub
Sub statenlinea()
PostMessage MSN_FindMSN, WM_COMMAND, 40166, 0
End Sub
Sub statsinconeccion()
PostMessage MSN_FindMSN, WM_COMMAND, 40167, 0
End Sub


Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

Sub MSN_StatBomb()
PostMessage MSN_FindMSN, WM_COMMAND, 40168, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40169, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40170, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40171, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40172, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40166, 0
End Sub

Sub MSN_OnlineFlood()
PostMessage MSN_FindMSN, WM_COMMAND, 40167, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40166, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40167, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40166, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40167, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40166, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40167, 0
Pause 0.1
PostMessage MSN_FindMSN, WM_COMMAND, 40166, 0
Pause 0.1
End Sub

Sub kalando2()
Options = PostMessage(MSN_FindMSN, WM_COMMAND, 40268, 0&)
End Sub

Public Property Let cambiarnick(ByVal Nick As String)
Dim X&, Button&, Edit As Long
X = FindWindow("#32770", vbNullString)
X = FindWindowEx(X, 0, "#32770", vbNullString)
Edit = FindWindowEx(X, 0, "edit", vbNullString)
Call SendMessageByString(Edit, WM_SETTEXT, 0, Nick)
X = FindWindow("#32770", vbNullString)
Button = FindWindowEx(X, 0, "button", vbNullString)
Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0)
Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0)
End Property

Sub cerrarsesion()
PostMessage MSN_FindMSN, WM_COMMAND, 40210, 0
End Sub

Sub leercorreo()
PostMessage MSN_FindMSN, WM_COMMAND, 40198, 0
End Sub

Sub msnchat()
PostMessage MSN_FindMSN, WM_COMMAND, 40233, 0
End Sub

Sub misarchivos()
PostMessage MSN_FindMSN, WM_COMMAND, 40229, 0
End Sub

Sub creargrupo()
PostMessage MSN_FindMSN, WM_COMMAND, 40271, 0
End Sub

Sub agregarcontacto()
PostMessage MSN_FindMSN, WM_COMMAND, 40282, 0
End Sub

Sub buscarcontacto()
PostMessage MSN_FindMSN, WM_COMMAND, 40301, 0
End Sub

Sub libreta()
PostMessage MSN_FindMSN, WM_COMMAND, 40256, 0
End Sub

Sub guardarlista()
PostMessage MSN_FindMSN, WM_COMMAND, 40287, 0
End Sub

Sub estadonet()
PostMessage MSN_FindMSN, WM_COMMAND, 40158, 0
End Sub

Sub iniciarvideo()
PostMessage MSN_FindMSN, WM_COMMAND, 40274, 0
End Sub

Sub enviarcorreo()
PostMessage MSN_FindMSN, WM_COMMAND, 40205, 0
End Sub

Sub misiconos()
PostMessage MSN_FindMSN, WM_COMMAND, 40257, 0
End Sub

Sub opciones()
PostMessage MSN_FindMSN, WM_COMMAND, 40268, 0
End Sub


Sub enviararchivo()
PostMessage MSN_FindMSN, WM_COMMAND, 40039, 0
End Sub


pues el resto solo tendran que colocar esto:

por ejemplo para un botton saldria asi:

command1....
opciones
end sub