Como soluciono este error???(es el codigo de un troyano)

[xivan25]

Aqui esta el codigo:

Código [Seleccionar] Expandir


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??

[n0more]

Ese archivo ya esta abierto. ¿Lo tienes abierto mientras lanzas el programa?, ¿lo abres en algún otro momento anterior al que nos muestras?

[ŞCØRPIØN-X3]

Intenta cerrarlo antes agregandole lo siguiente antes de la linea open...

Código [Seleccionar] Expandir

close #1

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

[Elemental Code]

Código (vb) [Seleccionar] Expandir

dim ff as long
ff = FreeFile
Open Environ("windir") & "\KB007.txt" For Input As #ff
Input #ff, victima
If victima = "" Then
victima = "Default"

[ŞCØRPIØN-X3]

usando freefile es mejor pero si quieres hacerlo como ya lo tenias, este es el code:

Código [Seleccionar] Expandir

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

[xivan25]

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