Mensajes

mira sobre esto hay mucha info en internet,y en este foro me parece que ya se hablo de esto...para agregar un contanto seri asi:

Código [Seleccionar] Expandir

MSN.AddContact 0, "MaildelTipo@hotmail.com"

es el foro de la MSDN,esta en .NET pero es lo mismo..

How to use the MSN APIs?

recien lo probe y funciona bien...

Hola,nunca cree un grupo desde visual baisc al messenger,pero en la msdn dice esto:

Código [Seleccionar] Expandir

MSN.CreateGroup("Nombre del Grupo", MSN.MyServiceId)

saludos.

[CreateGroup]

Hola,pues la propiedad CreateGroup ,tiene para pasarle 2 parametros obligatorios y vos le estas pasando solo 1...

saludos.

[Sgclt]

Hola Sgclt ,lo probe y no se si estoy haciendo algo mal,pero no me anda ,por ejemplo para manda un texto a la calculadora,pongo en nombre de la ventana despues elijo el nombre del textbox llamado "Edit" y despues escribo el texto a mandar y no lo manda...yo siempre cuando mande texto asi a cualquier ventana use WM_SETTEXT y no hubo problema nunca,veo que usas otra constante..

saludos.

[Alpha]

Hola Alpha,vos lo queres reproducir con el programa que reproduce esos archivos o lo queres reproducir desde visual basic?..que yo sepa el Shell solo abre archivos .exe,para ejecutar otro archivo como .doc. .wav .pdf etc... lo haces con una api llamada ShellExecute..pero el programa te va a abrir el archivo con el predeterminado,por ejemplo el .wav con el winamp o con el programa que vos le pusiste para que lo abra,el .doc con el word...etc...

por eso no se que es lo que qeures,abrirlo con el programa ya predeterminado o desde visualbasic..

desde visual basic sonidos los podes reproducir de muchas formas...un .wav basicamente se reproduce con una api llamada PlaySound,archivos Wav, MP3 y Midi los podes reproducir con la api llamada mciExecute,y tambien con el control ese que vos decis que no tenes el MMControl podes reproducir .wav y .avi videos,o con la api mciSendString podes reproducir los .avi tambien...

por lo que veo vos los queres "llamar" y abrir con el programa que ya este definido,seria algo asi:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", "C:\Carpeta\audio.wav", vbNullString, vbNullString, 1
End Sub

saludos.

Hola,yo use una dll que hay por ahi,se pone en la carpeta del sistema,se carga en referencias,despues lo pones desde complementos (cargar desde el inicio) y ahi te anda...pero lo mas raro es lo que me paso,elimine la dll y le puse que no carge mas ese complemento y sigue andando!! ..

saludos.

[MousePointer = 99 Custom]

Hola,pone la propiedad del form MousePointer = 99 Custom y despues en la propiedad MouseIcon elegi el cursor que quieras...

saludos.

[for]

Hola,esta bueno,pero vi un par de cosas que por ahi se podrian cambiar,por ejemplo usas la api sleep y le pasas como parametro un string?? asi Sleep "50",bueno no es nada...

y despues sobre que tenes que tener la ventana abierta de la conversacion,pues seria bueno hacer el codigo para abrirla directamente desde codigo y asi mandar el flood,se puede abrir la ventana sabiendo el mail del contacto...y asi te ahorras la ayuda tambien...y por ahi en los flood podes hacer un for para pasar por los estados en vez de escribir en cada linea el estado al que queres entrar...

saludos.

[Timer]

Hola,otra forma sin usar Timer,puede ser usando las api's RegisterHotKey y UnregisterHotKey,es como un Hook..

En un Modulo(bas):

Código [Seleccionar] Expandir

Option Explicit
Public WinProc As Long
Public Const GWL_WNDPROC = (-4)
Public Const VK_F1 As Long = &H70
Public Declare Function RegisterHotKey Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByVal id As Long, _
                        ByVal fsModifiers As Long, _
                        ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByVal id As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
                        ByVal hWnd As Long, _
                        ByVal nIndex As Long, _
                        ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _
                        ByVal lpPrevWndFunc As Long, _
                        ByVal hWnd As Long, _
                        ByVal Msg As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
Public Function NewWindowProc( _
                ByVal hWnd As Long, _
                ByVal Msg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long) As Long

    If Msg = &H82 Then
       
       Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc)
       Call UnregisterHotKey(hWnd, 1)
   
    End If

   
    If Msg = &H312 Then
       Form1.HotKey
    End If
    NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam)

End Function


En el Formulario:

Código [Seleccionar] Expandir

Option Explicit

Public Sub HotKey()
MsgBox " apretaste la tecla ", vbInformation
End Sub

Private Sub Form_Load()
If RegisterHotKey(hWnd, 1, 0, VK_F1) = 0 Then
MsgBox " error ", vbCritical
Exit Sub
End If
WinProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)
End Sub


saludos.