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

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Error visual basic Programa
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Error visual basic Programa  (Leído 3,465 veces)
skapunky
Electronik Engineer &
Colaborador
***
Desconectado Desconectado

Mensajes: 3.667


www.killtrojan.net


Ver Perfil WWW
Error visual basic Programa
« en: 12 Enero 2007, 13:11 pm »

Buenas...estoy haciendo un escaner de troyanos en visual basic 6...y ante mi sorpresa hay gente que al analizar con este al final le marca un error de archivo o noseke..

A mi me funciona perfectamente y me fijado que la gente que tiene el visual basic instalado le va bien...a la gente que no tiene visual basic le marca un error al final del analisis.

Lo pongo en descarga aqui (no esta acabado) para ver si alguien sabe a que se debe este error... sipueden probarlo en un ordenador con visual basi y otro sin mejor para asi comparar...

NOTA: No uso librerias, esta todo con api's..menos la del progressbar pero el mismo programa sin este componente da el mismo error, asi que por esta libreria no sera.

http://www.megaupload.com/es/?d=TV8BTVLG

Haber si alguien sabe a que se debe...Gracias por el tiempo dedicado.

Saludos.


En línea

Killtrojan Syslog v1.44: ENTRAR
BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Error visual basic Programa
« Respuesta #1 en: 12 Enero 2007, 14:20 pm »

Todo apunta a las runtimes.

http://visual-basic-runtime-files.softonic.com/ie/6823

Un saludo


En línea

skapunky
Electronik Engineer &
Colaborador
***
Desconectado Desconectado

Mensajes: 3.667


www.killtrojan.net


Ver Perfil WWW
Re: Error visual basic Programa
« Respuesta #2 en: 12 Enero 2007, 15:09 pm »

Bueno...no se si abras visto el mensaje de error lo que pone..

Citar
Run-time error '52' Bad file name or number

Le e sacado una funcion y ese error parece que a otros usuarios les a desaparecido sin esa función... la funcion en concreto es una que recorre el disco duro para ver si existe un archivo. En concreto es esta, la encontre por internet:

Código:
Function PathTo(strFile As String) As String
    Dim x As Integer
    Dim strDirs As String
    Dim strDir As String
    Dim strEntry As String
   
    strDirs = "c:\" & vbNullChar
    Do While Len(strDirs)
        x = InStr(strDirs, vbNullChar)
        strDir = Left$(strDirs, x - 1)
        strDirs = Mid$(strDirs, x + 1)
       
        If Len(Dir$(strDir & strFile)) Then
            PathTo = strDir & Dir$(strDir & strFile)
            Exit Function
        End If
       
        strEntry = Dir$(strDir & "*.*", vbDirectory)
        Do While Len(strEntry)
           
            On Local Error Resume Next
            If (GetAttr(strDir & strEntry) And vbDirectory) Then
                If strEntry <> "." And strEntry <> ".." Then
                    strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
                End If
            End If
            If Err Then Exit Do
            On Local Error GoTo 0
            strEntry = Dir$
        Loop
    Loop
    PathTo = ""
End Function

 y la uso asi:

Citar
Sub heuristic()
Dim r As String
r = PathTo("server.exe")
If FileExist(r) Then
List1.AddItem "New Trojan " & r
End If
End Sub

A mi me funciona y lo e probado con otro ordenador y funciona...también hay gente que le funciona, pero a otras les da el errror anteriormente mencionado...

Haber si alguien sabe de donde puede ser el error...

Saludos.
En línea

Killtrojan Syslog v1.44: ENTRAR
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Error visual basic Programa
« Respuesta #3 en: 12 Enero 2007, 19:07 pm »

jeje Reconozco ese código yo le puse lo del control de errores

Código:
On Local Error Resume Next<-----
            If (GetAttr(strDir & strEntry) And vbDirectory) Then
                If strEntry <> "." And strEntry <> ".." Then
                    strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
                End If
            End If
            If Err Then Exit Do <---
            On Local Error GoTo 0 <----
            strEntry = Dir$

si checas el post de donde esta este código, veras que explicaba que generalmente en las carpetas de archivos temporales hay algunos nombres de archivos que tienen caracteres invalidos y es por eso que falla el programa, ahora se supone que con el control de errores no debería de interrumpirse la ejecución.

creo que se podrian hacer 2 cosas:
1-. Prueba borrando los archivos temporales de la pc donde falla y si asi vuelve a fallar habrá que ver en que linea esta el problema.

2.- El control de errores lo puse cuando se verifican nombres de archivos pero no los de las carpetas. lo que se me ocurre es esto:

Código:
Function PathTo(strFile As String) As String
    Dim x As Integer
    Dim strDirs As String
    Dim strDir As String
    Dim strEntry As String
   
    strDirs = "c:\" & vbNullChar
    Do While Len(strDirs)
        x = InStr(strDirs, vbNullChar)
        On local error resume next
        strDir = Left$(strDirs, x - 1)
        strDirs = Mid$(strDirs, x + 1)
       
        If Len(Dir$(strDir & strFile)) Then
            PathTo = strDir & Dir$(strDir & strFile)
            Exit Function
        End If

        'Obtiene el nombre de la carpeta
        strEntry = Dir$(strDir & "*.*", vbDirectory)
       
        'Si no es valido se genera un error, avisa del error y se sigue con el siguiente directorio
        If Err Then
            Msgbox "Nombre de carpeta no valido"
            strEntry = Dir$
         end if

        Do While Len(strEntry)
                  If (GetAttr(strDir & strEntry) And vbDirectory) Then
                If strEntry <> "." And strEntry <> ".." Then
                    strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
                End If
            End If

            'Si el nombre del archivo no es valido se genera error
            If Err Then msgbox "Nombre de archivo no valido"
            On Local Error GoTo 0
            strEntry = Dir$
        Loop
    Loop
    PathTo = ""
End Function

no tengo VB en esta pc pero creo que con eso detectaría los nombres no validos y seguiria con tu escaneo... espero te sirva de algo
« Última modificación: 12 Enero 2007, 19:20 pm por CeLaYa » En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
skapunky
Electronik Engineer &
Colaborador
***
Desconectado Desconectado

Mensajes: 3.667


www.killtrojan.net


Ver Perfil WWW
Re: Error visual basic Programa
« Respuesta #4 en: 12 Enero 2007, 22:48 pm »

Gracias y felicidades por el codigo...sigue sin funcionar con eso que as añadido.

Saludos.
En línea

Killtrojan Syslog v1.44: ENTRAR
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Error visual basic Programa
« Respuesta #5 en: 13 Enero 2007, 02:35 am »

y no has revisado en que linea se genera el error?
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Error visual basic Programa
« Respuesta #6 en: 13 Enero 2007, 21:30 pm »

¿Podrias postear la funcion FileExist?

Otra cosa, podrias poner un IF antes de usar dicha funcion. Algo asi:
Código:
Sub heuristic()
Dim r As String
r = PathTo("server.exe")
If r <> "" then
If FileExist(r) Then
List1.AddItem "New Trojan " & r
End If
end if
End Sub

Por ahi estas en la funcion FileExist estas tratando de abrir un archivo inexistente y por eso te da error.

Saludos.-
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Error con con visual basic y adobe pdf
Programación Visual Basic
leliCabello 2 2,315 Último mensaje 3 Diciembre 2010, 23:54 pm
por leliCabello
Mi primer programa en Visual Basic :) « 1 2 »
Programación Visual Basic
Luna71c0 16 8,689 Último mensaje 4 Agosto 2011, 00:34 am
por Luna71c0
Un reto Programa en Visual Basic .Net « 1 2 3 »
Ingeniería Inversa
elmejorb 29 15,712 Último mensaje 17 Febrero 2012, 01:52 am
por .:UND3R:.
Programa de visual basic no funciona en otras pcs
Programación Visual Basic
Novato261 4 1,961 Último mensaje 17 Mayo 2013, 21:35 pm
por Shell Root
Error de Visual Basic
.NET (C#, VB.NET, ASP)
OniNeit 2 1,637 Último mensaje 27 Junio 2017, 09:42 am
por OniNeit
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines