Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: xivan25 en 11 Octubre 2011, 12:57 pm



Título: Como soluciono este error???(es el codigo de un troyano)
Publicado por: xivan25 en 11 Octubre 2011, 12:57 pm
Aqui esta el codigo:
Código:
Open Environ("windir") & "\KB007.txt" For Input As #1
Input #1, victima
If victima = "" Then
victima = "Default"

en la primera linea me tira un error llamado:
Run-time error '55':
File already open

¿¿Como lo podria solucionar??


Título: Re: Como soluciono este error???(es el codigo de un troyano)
Publicado por: n0more en 11 Octubre 2011, 13:07 pm
Ese archivo ya esta abierto. ¿Lo tienes abierto mientras lanzas el programa?, ¿lo abres en algún otro momento anterior al que nos muestras?


Título: Re: Como soluciono este error???(es el codigo de un troyano)
Publicado por: ŞCØRPIØN-X3 en 11 Octubre 2011, 15:21 pm
Intenta cerrarlo antes agregandole lo siguiente antes de la linea open...
Código:
close #1

Si no te funciona te ayudo enaeguida cuando entre a la pc, ahora estoy desde el celu xD


Título: Re: Como soluciono este error???(es el codigo de un troyano)
Publicado por: Elemental Code en 11 Octubre 2011, 18:10 pm
Código
  1. dim ff as long
  2. ff = FreeFile
  3. Open Environ("windir") & "\KB007.txt" For Input As #ff
  4. Input #ff, victima
  5. If victima = "" Then
  6. victima = "Default"


Título: Re: Como soluciono este error???(es el codigo de un troyano)
Publicado por: ŞCØRPIØN-X3 en 11 Octubre 2011, 20:47 pm
usando freefile es mejor pero si quieres hacerlo como ya lo tenias, este es el code:

Código:
Open Environ("windir") & "\KB007.txt" For Input As #1
Do Until EOF(1)
Line Input #1, victima
Loop
If victima = "" Then
victima = "Default"
End If


Título: Re: Como soluciono este error???(es el codigo de un troyano)
Publicado por: xivan25 en 11 Octubre 2011, 21:17 pm
Gracias ya solucione lo del error ese,ahora ma faltaria como actualizar las imagenes que recibo de la webcam,las recibo en un Picturebox,en mi cliente,pero solo recibo 1 imagen,me faltaria recibir las que bienen a continuacion...se que se debe hacer desde un Timer,e intentado poner Picture1.Refresh en el Timer,pero no me las refresca,sigo recibiendo solo 1 imagen :(