elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema al enviar archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema al enviar archivo  (Leído 1,255 veces)
Meg


Desconectado Desconectado

Mensajes: 462



Ver Perfil
Problema al enviar archivo
« en: 19 Marzo 2007, 20:36 pm »

hola,estoy utilizando la api del msn para enviar un archivo a un contacto del msn utilizando el objeto sendfile de este modo:
Citar
Messenger.SendFile List1.Text, "C:\archivo.zip"
pero me da este error:

Citar
El objeto no admite esta accion

y no se porque  :huh: :huh: he encontrado ejemplos en google y me salta el mismo error

dejo el codigo entero de todo lo que he echo por si es necesario:
he agregado dos botones y un listbox.y las referencias:
Messenger API type library
Messenger private type library
Código:
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Public MsgrContacts As MessengerAPI.IMessengerContacts
Public MsgrServices As MessengerAPI.IMessengerServices
Public MsgrContact As MessengerAPI.IMessengerContact
Public mWindow As MessengerAPI.IMessengerWindow
Dim WithEvents MSNApi As MessengerAPI.Messenger
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const WM_NCLBUTTONDOWN = &HA1

Private Sub Command1_Click()
On Error Resume Next
On Error Resume Next
contactosenlinea List1, MISTATUS_ONLINE
contactosenlinea List1, MISTATUS_AWAY
contactosenlinea List1, MISTATUS_BUSY
contactosenlinea List1, MISTATUS_BE_RIGHT_BACK
 contactosenlinea List1, MISTATUS_ON_THE_PHONE
If List1.ListCount = 0 Then
List1.AddItem "No hay contactos En Linea"
End If
End Sub

Private Sub Command2_Click()
Messenger.SendFile List1.Text, "C:\botnet.zip"


End Sub

Private Sub Form_Load()
On Error Resume Next
Set Msn = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Set MSNApi = New MessengerAPI.Messenger
End Sub
Private Sub contactosenlinea(brList As ListBox, pStatus As MISTATUS)
Dim Contacto As IMessengerContact

For Each Contacto In MSNApi.MyContacts
If Contacto.Status = pStatus Then
brList.AddItem Contacto.SigninName
End If
Next
End Sub

Aver si alguien sabe como corregir este error y asi puedo enviar archivos al msn
gracias x todo


« Última modificación: 19 Marzo 2007, 20:39 pm por Meg » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SOLUCIONADO] Problema al abrir archivo para enviar « 1 2 3 »
Programación Visual Basic
ŞCØRPIØN-X3 25 11,380 Último mensaje 12 Mayo 2011, 23:34 pm
por ŞCØRPIØN-X3
Enviar a ftp archivo
Scripting
dian1919 4 3,756 Último mensaje 14 Octubre 2022, 21:27 pm
por Danielㅤ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines