Messenger Mesenger 6.0

[neosp]

Hola Amigo Les Escribo Para Decirlos Que Ya Cree Un Nuevo Cliente Para Msn... Les Dejo Al Final Del Mensaje El Link Diganme Sus Opiniones y Sus Dudas... Para Que Funcione Totalmente El Programa Tienen Que Tener La Ventana Del Msn Maximisada..-.
Okaz Los Dejo Disfruten El Programa Y no Se Les Olvide Responder...

esta es la direccion :

http://usuarios.lycos.es/klanmdi/proyectos/NSPv1.2.zip

por lo visto la direccion tienen que copiarlas y entrar directo desde el esplorador ... ya que foros del web no deja descargar archivos

y escribanme que tal les parece

[auron2003]

^^ haber si lo haces Open Source.
Aun no lo vi, a que te refieres con lo de la pantalla maximizada?
Si puedes dame algun tuto de los winsocks (o lo que utilizes para el programa)

Saludos.

[neosp]

el tutorial de uso es muy facil primero leete el txt que esta junto al zip tendras que introducir los dos tipos de fonts en la carpeta de fuentes.... bueno ya luego de aver hecho eso es muy facil

solo habre el archivo y pon la ventana del msn en un lado de programa luego le das en cualquier opcion y el funcionara pefectamente... creo que eso es todo por los momentos cualquier otra duda avisa ...

[auron2003]

Me referia al algun tutorial que uses para conectarte a la red msn, o envias todo al msn messenger y luego el lo envia?

Saludos.

[neosp]

no no te preocupes men tu solo tendras que poner la ventana del msn en un lado de el programa y el funciona bien no es nesesario nada es muy facil de usar....

pero de todas forman dentro del zip hay un archivo que se llama leeme urgente ese te servira de ayuda...

creeme no es nesesario saber mucho para usarlo solo tener la ventana principal abierta y el funciona a la perfeccion

[auron2003]

creo que no me entendiste.
Me refiero en el codigo fuente, no a como funciona el programa.
que tipo de conexiones usas en el codigo fuente.

Saludos.

[neosp]

A OK... NO SOLO TIENES QUE AGREGAR ALGUNAS REFERENCIAS Y EL REALIZA LA CONECCION CON EL MSN 6.0... Y ES NESESARIO TAMBIEN CREAR ALGUNOS MODULOS

[ManOPlas]

Nose crear modulos, me dicen como ? :)
Saludos

[ManOPlas]

disculpen, yase como crear un modulo, ahora me faltaria saber para que sirve...y neosp si podes pasar algun codigo de tu programita o explicar mas detalladamente :)

[auron2003]

Hazlo open source :D

[affv]

open source !!! Seria genial!!

[neosp]

Pues Entonces Sera Para La Cuarta Version La 1.3 ya casi la saco... ya la estoy probando luego la subo al web del mdi... entonces por lo visto tendre que ponerle open source a la vercion 1.4... Y no pasen desprevenido FTN (Free Tones Of The Celular N-sp) ya esta la version en la pagina del team descarguenla....

http://usuarios.lycos.es/klanmdi/

[ManOPlas]

eh? me respondieron con lo de open source , pero que tiene que ver con lo que yo pregunte ??

[neosp]

pana es que fue que no entendi bien el mensaje si mandas otro y te explicas bien te contestare ....

[ManOPlas]

ok, disculpame.....me gustaria saber como es que hiciste el programa para msn, si podes pasar alguna indicacion te agradeceria
saludos

[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

[ManOPlas]

Buenisimo :D gracias...ese es TODO el codigo del programa ? o solo del modulo ?

[ManOPlas]

No dije nada antes :D gracias por la ayuda,
saludos.

[neosp]

El Codigo Que Les Di Solo Es Del Modulo El Resto Solo Tienen que colocar en los botones lo siguiente :

Private Sub Command1()

'aqui se colocara la accion que va a hacer el boton por ejemplo:
enviarmensaje
end sub

eso es todo... es muy facil

[neosp]

Hola Friends.. les escribo solo para decirles que ya termine el clean temp folder... es muy facil de usar... mañana ya aparece en la web... estoy creando un anti-troyanos pero tengo peos con eso si alguien me puede ayudar por favor agreguenme a su lista de contactos o mandemen un mensaje... por este foro...
mi correo es el siguientes:

[email protected]

y la pagina del team es esta.. por si acaso

http://usuarios.lycos.es/klanmdi/

bueno los dejo y me despido cuidence...

[ManOPlas]

se puede postear publicidad en un foro de programacion ? :S
admins..

[yayita1502]

Disculpen pero para que sirve este programa?

[neosp]

Pues este programa es una utilidad para el msn...
tiene varias opciones... que te ayudaran... en muchas cosas...
__________________________________________________ _

es muy facil de usar...
disfrutendlo

[carlostapi]

como que cosas??