Mensajes

pues que to sepa con "GetVolumeInformation" puedes saber el nombre de la etiqueta y tambien el número de serie del disco y con SetVolumeLabel puedes cambiarle la etuqueta pero est de cambiar el número de serie me suena como a que se debe hecer en ensamblador

  no entiendo bien, se supone que al hacer un virus, se trata de esconderlo lo más que se pueda, o no? y tu quires haces una ventana que se vea bonita!!!!!?????

creo que se refiere a que con la propiedad RemoteHostIp obtienes la dirección ip y con la RemoteHost te da el nombre del equipo

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

Código [Seleccionar] Expandir


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 [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)
        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

jeje parece que son malas noticias para los que les encanta hacer virus...

una pregunta ese "Process Explorer de Sysinternals" viene con el windows?, es alguna aplicación?, para que sirve?

a ver si esto te sirve, lo saque de la ayuda de "Winzip Command Line"

Using the WinZip Command Line Support Add-On
The WinZip Command Line Support Add-On is used by executing a command that starts WZZIP or WZUNZIP. There are three "places" where you can use the Add-On:

·   In a command window, sometimes known as a DOS window or DOS box.  This is a separate window that is normally started by selecting "MS-DOS Prompt" or "Command Prompt" from the Start menu; it normally displays the C> prompt.
·   From the Run dialog, accessed from the Start menu.
·   In batch files or other scripts (such as application program macros).

The exact format of the command depends on which of these you use.

Using a command window

You can use the Add-On in a command window in any of these ways:

·   You can type the full name of the WinZip folder followed by the name of the command, which is either "WZZIP" (for zipping) or "WZUNZIP" (for unzipping), followed by the parameters necessary for the operation.  For example, if you installed WinZip into the C:\Program Files\WinZip folder and you want to list the contents of MyFile.zip, you might type:

   "c:\program files\winzip\wzzip" -v MyFile.zip

(Note that you must use quotes around the command name if the name of the folder includes spaces, as shown above.  Otherwise, the quotes are not necessary.)

·   You can copy WZZIP.EXE and WZUNZIP.EXE to a folder specified in your PATH environment variable.  Then you can run the commands by simply typing "WZZIP" or "WZUNZIP" and the desired parameters, without the name of the WinZip folder:

   wzzip -v filename.zip
·   You can add the WinZip folder to your PATH environment variable, for example:

   set path=c:\windows;"c:\program files\winzip";...

If you have done this, you can run the commands at the system prompt by simply typing "WZZIP" or "WZUNZIP" followed by the desired parameters, without the name of the WinZip folder:

   wzzip -v filename.zip

(For information on the PATH environment variable, please refer to your Windows documentation.  If you use this method regularly, you will probably want to edit AUTOEXEC.BAT so that the WinZip folder is permanently added to the PATH environment variable.)


Using the Run dialog

You can use WZZIP.EXE and WZUNZIP.EXE from the Run dialog by simply typing the command name and any desired parameters.  It is not necessary to include the WinZip folder, but you may need to specify the folder for the files you wish to work with.  For example:


wzzip -yp -v c:\temp\filename.zip

We recommend using the -yp option to keep the MS-DOS command prompt window from closing automatically; otherwise, you will not have much time to look at the results of your command.

Using batch files

You can use WZZIP.EXE and WZUNZIP.EXE in MS-DOS batch files using the same rules as shown above for command windows.

The procedure will be similar for script processors other than MS-DOS batch files (application program macros, for example).  However, check your documentation for information on how paths should be specified.

Using return codes (errorlevels)

WZZIP and WZUNZIP will in most cases return a nonzero errorlevel in the event of a serious error; otherwise, an errorlevel of 0 is returned. You can use these return codes in batch files and other automated processing.  For example:

wzzip filename.zip *.doc
   If Not ErrorLevel 1 Goto Exit
   Echo ***SERIOUS ERROR DETECTED***
   :Exit

Copyright © 2004 WinZip Computing, Inc.  All rights reserved.

fijate que lo prove y me sale un error en este linea

    List.AddItem trim(tb!Nombre)

que sale objeto no encontrado...

cambia "List" por el nombre de tu ListBox

respondiendo a la duda 3
te da error de sintaxis porque el KILL no regresa nada

lo que podrias hacer es controlar el error

Código [Seleccionar] Expandir


on Local error resume next
Kill "C:\Windows\system32\codls.exe"
if err then
   'Se genero un error porque el archivo no pudo ser borrado
    msgbox err.number & vbcrlf & err.description
end if
on local error goto 0


y creo que pasa lo mismo con la duda 1

a que te refieres con que "los textos reaccionen"

Entendi todo (O la mayoria de tu codigo), pero, exactamente donde indico que archivo va a bajar?

eso lo haces asi

Código [Seleccionar] Expandir


private sub descargar
With Inet1
        'ProgressBar1.Value = 0
        .AccessType = icUseDefault
        .UserName = "usuario"
        .Password = "pass"
        nArchivo = "archivo.xxx"
        .URL = "http://www.servidor.com/Carpeta/" & nArchivo
        .Execute , "GET" 'Indicamos que vamos a descargar o recuperar un archivo desde una url
    End With
end sub