Mensajes

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

Saludos.

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

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 [Seleccionar] Expandir

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:

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.

La has de conectar al ordenador con un cable por usb...este cable lo puedes reaprovechar de camaras o videocamaras digitales de sony... normalmente es de un color asi morado...

Tmb tendras de cambiar el firmware como te han dicho en el post anterior.

Saludos.

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.

Aqui te puedes auto-contestar:

Ficha técnica

Soporte: 1 DVD
Requisitos: Procesador 1,4 GHz, 256 Mb RAM, Aceleración 3D 128 Mb (Mínimo), Procesador 2,8 GHz, 512 Mb RAM, Aceleración 3D 256 Mb (Recomendado)
Nº de Jugadores: 1
Multijugador: No
DirectX: 9.0
Recomendación: 18+

Yo con el mozilla almenos si me va el link... esta subido en mediafire.

De todas formas aqui el link directo del zip:

http://download109.mediafire.com/yzyzyjykyfag/4mdtwwy3zoj/AZ_Anti-ProAgent.zip

Ahora si les ha de bajar seguro.
Saludos.

Y hay otra forma mas facil que es poner un image en forma de boton, dar doble click, y meter ahí el codigo a ejecutar 

Saludos.

PD: No te complikes con OCX.

Si que funciona el link !!! Es el siguiente o en el post de arriba tmb esta.

http://www.mediafire.com/?4mdtwwy3zoj

Por cierto, te comento, mata el proceso y despues usa el kill...aqui te dejo un codigo pa matar el proceso, este lo encontre por internet y va estupendo.

Código [Seleccionar] Expandir

Public Sub KillProcess(ByVal processName As String)
       
        On Error GoTo ErrHandler
         
         Dim oWMI
         Dim ret
         Dim sService
         Dim oWMIServices
         Dim oWMIService
         Dim oServices
         Dim oService
         Dim servicename
         
          Set oWMI = GetObject("winmgmts:")
          Set oServices = oWMI.InstancesOf("win32_process")

          For Each oService In oServices
                 
                 servicename = LCase(Trim(CStr(oService.Name) & ""))
                 
                 If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
                    ret = oService.Terminate
                 End If

          Next
         
          Set oServices = Nothing
          Set oWMI = Nothing


ErrHandler:
  Err.Clear
End Sub


Private sub Form_load ()

KillProcess ("Notepad")
End Sub


Intenta que el archivo sea limpiado desde el mismo exe...mirate el registro en vbs que es facil eliminar claves con Regdelete.

Saludos.

Para la protección en tiempo real...lo mas facil en pensar si se quiere hacer algo muy cutre es un Timer...el problema de esto que como el programa tampoko eliminaria el archivo seria como un bucle infinito al comprovar cada x pocos segundos lo que sea...

Una opcion es crear un filtro de processos y permitir o no iniciar los processos...claro esto sabiendo los processos de cada virus se puede realizar pero es una matada.
En visual basic no se me ocurre otra forma 

Saludos.

Yo no usaria los offsets de los virus...primero porque no los encontraras facilmente, y segundo porque el offset lo crean las marcas de los antivirus...no es nada realmente malicioso. Tu mismo puedes cojer varios offsets de un archivo y mapeandolo puedes localizar los offsets que le hayas predefinido.

Por la funcion que has puesto, busca un cierto archivo como te han dicho pero al encontrarlo lo elimina..recuerda que KILL es para eliminar (siempre y cuando no haya un proceso associado abierto.)

Saludos.