Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice VB.NET para detectar un determinado fragmento de código que se ejecuta cuando se inserta una unidad flash USB y obtenga la letra de la unidad USB.

Utilice VB.NET para detectar un determinado fragmento de código que se ejecuta cuando se inserta una unidad flash USB y obtenga la letra de la unidad USB.

El siguiente contenido es proporcionado por Internet, pero el autor ha verificado que se puede utilizar normalmente como referencia.

Imports System.IO

Clase pública Form1

Const pública WM_DEVICECHANGE = &H219

Const pública DBT_DEVICEARRIVAL = &.H8000

Const pública DBT_CONFIGCHANGECANCELED = &H19

Const pública DBT_CONFIGCHANGED = &H18

Const pública DBT_ CUSTOMEVENT = &H8006

Const pública DBT_DEVICEQUERYREMOVE = &H8001

Const pública DBT_DEVICEQUERYREMOVAEFILED = &H8002

Const pública DBT_DEVICEREMOVECOMPLETE = &H8004

Const pública DBT_DEVICEREMOVEEPENDING = &H8003

Const pública DBT_ DEVICETYPESPECIFIC = &H80 05

Const pública DBT_DEVNODES_CHANGED = &H8006

Const pública DBT_DEVNODES_CHANGED = &H8007H7

Const pública DBT_QUERYCHANGECONFIG = &H17

Const pública DBT_USERDEFINED = &HFFFF

Anulaciones protegidas Sub WndProc(ByRef m As System.Windows.Forms.Message)

Si m.Msg = WM_ DEVICECHANGE Entonces

Seleccione Case m.WParam

Caso WM_DEVICECHANGE

Caso DBT_DEVICEARRIVAL 'Unidad flash USB insertada

ComboBox1.Items.Clear().

Clear()

Dim s() As DriveInfo = DriveInfo.GetDrives

Para cada unidad Como DriveInfo In s

Si drive.DriveType = DriveType.Removable Entonces

ListBox1.Items.Add("¡Unidad flash USB insertada! Tipo de unidad: "+ unidad.Name.ToString())

ComboBox1.Items.Add(drive.Name)

Finalizar si

Siguiente

BtnWrite.Enabled = True

BtnRead.Enabled = True

Caso DBT_CONFIGCHANGECANCELED

Caso DBT_CONFIGCHANGED

Caso DBT_CUSTOMEVENT

Caso DBT_DEVICEQUERYREMOVE

Caso DBT_DEVICEQUERYREMOVAEFILED

Caso DBT_DEVICEREMOVECOMPLETE 'Unidad flash USB desmontada

ListBox1.Items.Add("¡Unidad flash USB desmontada!")

BtnWrite.Enabled = False

BtnRead.Enabled = False

ListBox1.Items .Add("¡La unidad flash USB ha sido desmontada!")Enabled = False

Caso DBT_DEVICEREMOVEPENDING

Caso DBT_DEVICETYPESPECIFIC

Caso DBT_DEVNODES_CHANGED

Caso DBT_QUERYCHANGECONFIG

Caso DBT_USERDEFINED

Finalizar selección

Finalizar si

MyBase.WndProc(m)

MyBase .WndProc(m)

MiBase.WndProc(m)

MiBase.WndProc(m)

MiBase.WndProc(m)

上篇: Equipo de ósmosis inversa RO, ¿qué marca de equipo de ósmosis inversa RO de Guangdong es buena? 下篇: Cómo configurar el retorno automático y el asistente de botones de QQ Huaxia