practica hxc7

[kAskaMOtz]

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.

[Shell Root]

mmm no tengo el VB así que lo haré de memoria.

Código (vb) [Seleccionar] Expandir

  Dim Ti As Integer '# Declaración de la variable contadora.
 
  Public Sub PoC() '# PoC
     Ti = Ti + 1 '# Contador + 1
     Label1.Caption = Ti '# Visualización del contador
     If Ti = 10 Then '# Verifica cantidad de contador
        Open "C:\prueba.txt" For Output As #1 '# Abre el archivo 'prueba.txt'
           Print #1, "hackxcrack" '# escribe en el 'hackxcrack'
        Close #1 '# Cierra el archivo 'prueba.txt'
     End If
  End Sub

  Private Sub Form_Load()
     Ti = 0 '# Seteo de variable
     Timer1.Interval = 1000 '# Seteo de intervalo en el Timer
  End Sub

  Private Sub Timer1_Timer()
     Call PoC() '# Invoca PoC
  End Sub

[kAskaMOtz]

entonces tengo algun fallo?
Porque a mi no me funciona
Gracias

[TGa.]

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 (vb) [Seleccionar] Expandir

Open "prueba.txt" for Output As #1

podes poner

Código (vb) [Seleccionar] Expandir

Open "C:\prueba.txt" for Output As #1

y el archivo se creara en C:

[kAskaMOtz]

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.

[kAskaMOtz]

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

[LeandroA]

Esa porqueria ponen en una revista?? te recomiendo que compres un buen libro de programación, o te vajes algun tutorial de internet.

Saludos.