elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como soluciono este error???(es el codigo de un troyano)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Como soluciono este error???(es el codigo de un troyano)  (Leído 2,547 veces)
xivan25

Desconectado Desconectado

Mensajes: 58


Ver Perfil
Como soluciono este error???(es el codigo de un troyano)
« 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??


En línea

n0more

Desconectado Desconectado

Mensajes: 43


Ver Perfil
Re: Como soluciono este error???(es el codigo de un troyano)
« Respuesta #1 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?


En línea

ŞCØRPIØN-X3

Desconectado Desconectado

Mensajes: 119


Ver Perfil
Re: Como soluciono este error???(es el codigo de un troyano)
« Respuesta #2 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
En línea

Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Como soluciono este error???(es el codigo de un troyano)
« Respuesta #3 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"
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
ŞCØRPIØN-X3

Desconectado Desconectado

Mensajes: 119


Ver Perfil
Re: Como soluciono este error???(es el codigo de un troyano)
« Respuesta #4 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
En línea

xivan25

Desconectado Desconectado

Mensajes: 58


Ver Perfil
Re: Como soluciono este error???(es el codigo de un troyano)
« Respuesta #5 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 :(
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como Soluciono Este Mensaje de Error al inicar SimCity Societies?
Juegos y Consolas
lucin21 0 2,008 Último mensaje 2 Diciembre 2007, 14:14 pm
por lucin21
ayuda como soluciono este problema :)
PHP
sh0ck-r00t 1 1,774 Último mensaje 3 Octubre 2009, 03:55 am
por Filibustero de bolsillo
¿Cual es el error en este código?
Programación C/C++
Draklit 5 3,121 Último mensaje 27 Mayo 2010, 16:56 pm
por Draklit
pantalla negra con el puntero, ¿cómo soluciono este problema?
Windows
ossecreto 2 2,796 Último mensaje 4 Junio 2013, 06:40 am
por Randomize
Es este código un Troyano???... « 1 2 »
Sugerencias y dudas sobre el Foro
topomanuel 11 6,182 Último mensaje 3 Diciembre 2013, 17:06 pm
por z3nth10n
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines