COMO DESCONECTAR QUALQUER PEN DRIVE

 Tópico anterior Próximo tópico Novo tópico

COMO DESCONECTAR QUALQUER PEN DRIVE

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#490997 - 30/10/2019 16:54:35

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


 Anexos estao visíveis somente para usuários registrados

Olá Amigos Boa noite.
Estou com um problema, não consegui encontrar nenhum exemplo de como desconectar qualquer USB drive que esteja conectada ao computador , já tentei vários exemplos e nada dá certo. o que pretendo é que o programa procure todas as  Canetas USB drives conectadas e as desconecte, já tenho um exemplo que as identifica, falta a rotina para as desconectar. fiz assim segue o exemplo.


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#491015 - 31/10/2019 10:55:22

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Fiz assim para detectar PenDrives

  Imports System.Runtime.InteropServices
Imports System.Management
Public Class Form1
    <DllImport("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
        '---------------------------------------------------

        Dim drives = System.IO.DriveInfo.GetDrives()

        Dim usbDrive = drives.FirstOrDefault(Function(m) m.DriveType = System.IO.DriveType.Removable)
        Dim CDR = drives.FirstOrDefault(Function(m) m.DriveType = System.IO.DriveType.CDRom)

        For i As Integer = 0 To drives.Count - 1

            If drives(i).DriveType = System.IO.DriveType.Removable AndAlso usbDrive.IsReady = True Then
                MessageBox.Show(drives(i).ToString)
                'Codes will not run if there were no removable device

            End If
            If drives(i).DriveType = IO.DriveType.CDRom = True And CDR.IsReady = True Then
                MessageBox.Show("CDRom ejectado !")
                mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero)
                'Fechar
                ' mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero)
            End If
        Next i
        '----------------------------------------------------

    End Sub
    
End Class


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PROGRAMADORVB6 em 10/12/2019 09:14:35