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.