Visual Basic - guiños msn

Hola mi consulta es la siguiente, alguien tendra el codigo que me permite instalar GUIÑOS desde visual basic, espero que me puedan contestar, ya que he consultado en la mayoria de los foros y nadie a contestado!!!!!!

GRACIAS

Yo eh visto esa respuesta pero en Ingles en el foro http://forum.mess.be

No recuerdo como se dice "guiños" en ingles

Pero si es simple, to do lo q tienes q hacer es agregar una referencia a "Messenger content Installer 1.0 type library" y poner lo siguiente
Private Sub Instalar_Click()
..
..
Dim mci As MessengerContentInstaller
Set mci = New MessengerContentInstaller
mci.InstallContent "http://elsitiowel/tuguiño.MCO" 'o .CAB
..
..
End Sub
si lo deseas instalar localmente puedes hacerlo de dos formas
la primera, si tienes un servidor web personal (IIS, PWS,Apache...)

Dim mci As MessengerContentInstaller
Set mci = New MessengerContentInstaller
mci.InstallContent "http://localhost/misguinos/miguiño.MCO"

y la otra algo mas complicada via socket
====================================================
NOTA el codigo es solo un esboso de como se debe de hacer, lo saque de un ejemplo y si lo encuentro te paso la pagina.
====================================================
el winsock lo programas como cualquier otro,pero debe de tener el siguiente codigo en el evento "DataArrival" ahi es donde enviamos el guiño.

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Header As String
Dim FileData As String

'Cargas el guinño "File" es la ruta al guiño (c:\miguiño)
Open File For Binary Access Read As #1
FileData = Space$(LOF(1))
Get #1, , FileData
Close #1

'Creas un encabezado
Header = "HTTP/1.0 200 OK" & vbNewLine & "Server: Winks & Moods Adder" & vbNewLine
Header = Header & "Accept-Ranges: bytes" & vbNewLine
Header = Header & "Content-Length: " & FileLen(File) & vbNewLine
Header = Header & "Connection: close" & vbNewLine & vbNewLine

'Combinas el encabezado y el guiño
FileData = Header & FileData

'envias el guiño
WS.SendData FileData
End Sub

Private Sub Instalar_Click()
Dim mci As MessengerContentInstaller
WS.Bind 1001, "127.0.0.1"
WS.Listen
Set mci = New MessengerContentInstaller
mci.InstallContent "http://127.0.0.1:1001/this.mco"

End Sub

hombre

hol esto es para todos mi amix

para colocar saludus al mns de misguiños

Muy buena guia, pero como lo haria con el Visual Basic 2005? Alguien Sabe?

misguiños