Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CAR3S? en 9 Octubre 2011, 19:00 pm



Título: [FTP] inet
Publicado por: CAR3S? en 9 Octubre 2011, 19:00 pm
Bueno, sus bolas deben estas asi de mi

http://hiapr.org/yabbfiles/Attachments/huevon.jpg

estuve toda la mañana bajando ejemplos de ftp en vb, me duele la cabeza  :xD


Alguien me dice como configurar esto? (Nose si usar http:// o ftp:// , no entiendo mucho de esto)

Informacion :
Pagina - www.sapopepe.99k.org
Usuario - sapopepe_99k
Password - ******* :xD

Código
  1. Private Sub Form_Load()
  2.    With Inet1
  3.        .URL = "http://www.sapopepe.99k.org"
  4.        .Protocol = icFTP
  5.        .UserName = "sapopepe_99k"
  6.        .Password = "******"
  7.        .RemoteHost = "http://www.sapopepe.99k.org"
  8.        .RemotePort = 21
  9.        .Execute "http://www.sapopepe.99k.org", "/nukje/a.zip", "GET", "C:\recibido.zip"
  10.    End With
  11. End Sub


Título: Re: [FTP] inet
Publicado por: x64core en 9 Octubre 2011, 19:40 pm

http://foro.elhacker.net/programacion_visual_basic/subirbajar_archivos_adesde_ftp_en_vb-t302197.0.html
http://foro.elhacker.net/programacion_vb/como_puedo_descargar_un_archivo_de_internet_con_visual_basic_6-t71774.0.html


Extraido de RVB
Código
  1.    'Propiedades para el control inet ( AccessType y URL )  
  2.    With Inet1  
  3.        .AccessType = icUseDefault  
  4.        'Indicamos el url del archivo  
  5.        .URL = ....
  6.        'Indicamos que vamos a descargar o recuperar un archivo desde una url  
  7.        .Execute , "GET"  
  8.    End With  
  9. End Sub  
example:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/zip/41-escribir-array-de-bytes.zip


Título: Re: [FTP] inet
Publicado por: CAR3S? en 9 Octubre 2011, 20:10 pm
ese era mi usuario antes de que insulte a un mod que me molestaba ;-)

Código
  1.  
  2.  With Inet1
  3. .URL = "ftp://PAGINA.Com"
  4. .UserName = "USUARIO"
  5. .Password = "PASSWORD"
  6. .Execute , "GET ARCHIVOREMOTO ARCHIVOLOCAL"
  7. .Execute , "CLOSE" ' Cierra la conexión.
  8. End With
  9.  
  10.  

funciona perfectooooo, ;)