Foro de elhacker.net

Bueno, llevo tiempo intentando hacer una aplicación para monitorizar pendrives (en modo oculto) y copiar todos los datos A OTRO PENDRIVE

Sólo tengo hecha un poco la interfaz y cuatro tonterías más.

PD: Es un WPF, por si tiene importancia.

(http://img689.imageshack.us/img689/4785/captura4fl.png)

Para avanzar en la aplicación, necesito información sobre:

• como monitorizar las unidades que se conectan al PC (Tando su inserción como su extracción)
• saber si el mismo método de monitorización serviría para Win XP / VISTA / 7 (si se tuviera que monitorizar con APIs...)
• como saber si la unidad conectada se trata de un pendrive
• como obtener la letra del pendrive conectado, la etiqueta (nombre/label), entre otros datos útiles que se puedan obtener sobre el dispositivo conectado.

PD: Imagino que para lo penúltimo y último podría usar WMI, ¿NO?, no sé si quizás habrá algo más sencillo/rápido/eficaz...

Y por último, para este proyecto necesito una ayudita en este post:  Como aplicar cambios al registro y refrescar el sistema sin tener que reiniciar? (http://foro.elhacker.net/net/como_aplicar_cambios_al_registro_y_refrescar_el_sistema_sin_tener_que_reiniciar-t376602.0.html)


Gracias por leer.

Para la detección de medios extraibles, puedes interceptar los mensajes de Windows, que indican cambio de hardware, tengo código hecho pero no te lo voy a dar, para ver si te empezamos a acostumbrar a investigar.

Te dejo algunas pistas:

       Protected Overrides Sub WndProc(ByRef [Message] As Message)
       End Sub
 
       Public Enum ConstWindowsDrivers As Integer
           Change = &H219
           Arrival = &H8000
           QueryRemove = &H8001
           QueryRemoveFailed = &H8002
           RemovePending = &H8003
           RemoveComplete = &H8004
           TypeVolume = &H2
       End Enum

     

Es aun más fácil de lo que piensas :silbar: ;)

Keyen, muchas gracias por la info, a pesar de que ahora pienses que soy un vago quizás por culpa de lo que siempre anda comentando spiritdead... a mi cualquier información que me den me sirve para empezar, y no te preocupes que buscaré.

Me dejas bastante perdido porque yo siempre he usado la API de windows para realizar funciones y cambios, sin necesidad de hacer gran cosa, pero no para recibir/interceptar/monitorizar datos, y no sé si será tán fácil como almacenarlo en una variable cada cierto tiempo para comprobar el valor del resultado y ya está, pero bueno, ya lo busco.

Saludos

Muchas gracias al moderador invisible por reabrir el post :)

---

Ya he encontrado como monitorizar la inserción-extracción de los dispositivos con los WindowsMessages usando la API, pero primero me he puesto a hacer otra función que necesito,
he sacado la idea de aquí: [APORTE] Interceptar Archivos/Directorios USB (http://foro.elhacker.net/net/aporte_interceptar_archivosdirectorios_usb-t358902.0.html)
(Gracias Kubox)

En la función necesito hacer demasiadas comprobaciones, muchos "IF", ¿Tienen alguna idea para reducir/mejorar este código?:

PD: El problema que tengo es que tengo que hacer las mismas comprobaciones para "ALL", y las mismas comprobaciones para el resto de la enumeración, no sé como hacerlo más simple.

  Private Enum DriveType
        ALL
        CDRom = IO.DriveType.CDRom
        Fixed = IO.DriveType.Fixed
        Network = IO.DriveType.Network
        Ram = IO.DriveType.Ram
        Removable = IO.DriveType.Removable
        Unknown = IO.DriveType.Unknown
    End Enum
 
    Private Function Get_Drives_Info( _
       ByVal DriveType As DriveType, _
       ByVal Name As Boolean, _
       Optional ByVal Label As Boolean = False, _
       Optional ByVal Type As Boolean = False, _
       Optional ByVal Format As Boolean = False, _
       Optional ByVal Size As Boolean = False, _
       Optional ByVal FreeSpace As Boolean = False) As List(Of String)
 
        Dim Drive_Info_List As New List(Of String)
        Dim Drive_Info As String = Nothing
 
        For Each Drive In Microsoft.VisualBasic.FileIO.FileSystem.Drives
            If DriveType = DriveType.ALL Then
                If Drive.IsReady = True Then
                    If Name Then Drive_Info += Drive.Name & ";"
                    If Label Then Drive_Info += Drive.VolumeLabel & ";"
                    If Type Then Drive_Info += Drive.DriveType.ToString & ";"
                    If Format Then Drive_Info += Drive.DriveFormat & ";"
                    If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
                    If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
                End If
            Else
                If Drive.IsReady = True And Drive.DriveType = DriveType Then
                    If Drive.IsReady = True Then
                        If Name Then Drive_Info += Drive.Name & ";"
                        If Label Then Drive_Info += Drive.VolumeLabel & ";"
                        If Type Then Drive_Info += Drive.DriveType.ToString & ";"
                        If Format Then Drive_Info += Drive.DriveFormat & ";"
                        If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
                        If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
                    End If
                End If
            End If
            If Drive_Info IsNot Nothing Then Drive_Info_List.Add(Drive_Info) : Drive_Info = Nothing
        Next
 
        Return Drive_Info_List
    End Function

saludos

select case

Gracias, pero no creo que un select case me vaya a solucionar el problema:


Lo que quiero es NO tener que repetir las comprobaciones para los dos casos, me gustaría simplificarlo de alguna manera, y para eso necesito ejemplos please!.

saludos

Hola.

Igual estoy interpretando mal lo que quieres hacer, pero creo que podrías simplificarlo así:

If (DriveType = DriveType.ALL Or Drive.DriveType = DriveType) And (Drive.IsReady) Then
 
  If Name Then Drive_Info += Drive.Name & ";"
  If Label Then Drive_Info += Drive.VolumeLabel & ";"
  If Type Then Drive_Info += Drive.DriveType.ToString & ";"
  If Format Then Drive_Info += Drive.DriveFormat & ";"
  If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
  If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
 
End If

Saludos.

@hdm

Muchas gracias, ese IF era lo que necesitaba!

Ferpecto Elektro  ;D

También podrías sustituir:

If Name Then Drive_Info += Drive.Name & ";"
If Label Then Drive_Info += Drive.VolumeLabel & ";"
If Type Then Drive_Info += Drive.DriveType.ToString & ";"
If Format Then Drive_Info += Drive.DriveFormat & ";"
If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"

Por una única línea:

Drive_Info = IIf(Name, Drive.Name & ";", "") + IIf(Label, Drive.VolumeLabel & ";", "") + IIf(Type, Drive.DriveType.ToString & ";", "") + IIf(Format, Drive.DriveFormat & ";", "") + IIf(Size, Drive.TotalSize.ToString & ";", "") + IIf(FreeSpace, Drive.TotalFreeSpace & ";", "")

Teniendo en cuenta que:

Si Option Strict tiene el valor On, debe utilizar la palabra clave CStr para convertir explícitamente el resultado de Object en String.
 (http://msdn.microsoft.com/es-es/library/microsoft.visualbasic.interaction.iif.aspx)

Saludos.