[2008] Detect the insertion of a USB mass storage device (USB stick etc.)

I'm looking for a way to detect when a new USB mass storage device is inserted in one of the pc's USB ports... I need to get it's drive letter and check for the existence of a particular file. Any ideas?

Here are the results from Google.

Here is a VERY lame way to do it. Just put this in a Timer_Tick function:

Code:

---

          Dim oDrive As DriveInfo
            For Each oDrive In DriveInfo.GetDrives
                If oDrive.DriveType = IO.DriveType.Removable Then
                    MessageBox.Show("Removable USB Drive " & oDrive.Name & " found.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification, False)
                    Exit Sub
                End If
            Next

---

You can also use WMI like this (This is the entire form class):

Code:

---

Imports System.Management

Public Class Form1
    Private WithEvents m_MediaConnectWatcher As ManagementEventWatcher
    Public USBDriveName As String
    Public USBDriveLetter As String

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        StartDetection()
    End Sub

    Public Sub StartDetection()
        Dim query2 As New WqlEventQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 " & "WHERE TargetInstance ISA 'Win32_DiskDrive'")

        m_MediaConnectWatcher = New ManagementEventWatcher
        m_MediaConnectWatcher.Query = query2
        m_MediaConnectWatcher.Start()
    End Sub


    Private Sub Arrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles m_MediaConnectWatcher.EventArrived
        Dim mbo As ManagementBaseObject
        Dim obj As ManagementBaseObject

        mbo = CType(e.NewEvent, ManagementBaseObject)
        obj = CType(mbo("TargetInstance"), ManagementBaseObject)

        Select Case mbo.ClassPath.ClassName
            Case "__InstanceCreationEvent"
                If obj("InterfaceType") = "USB" Then
                    MsgBox(obj("Caption") & " (Drive letter " & GetDriveLetterFromDisk(obj("Name")) & ") has been plugged in")
                End If
            Case "__InstanceDeletionEvent"
                If obj("InterfaceType") = "USB" Then
                    MsgBox(GetDriveLetterFromDisk(obj("Name")))
                    If obj("Caption") = USBDriveName Then
                        USBDriveLetter = ""
                        USBDriveName = ""
                    End If
                End If
            Case Else
                MsgBox("nope: " & obj("Caption"))
        End Select
    End Sub

    Private Function GetDriveLetterFromDisk(ByVal Name As String) As String
        Dim oq_part, oq_disk As ObjectQuery
        Dim mos_part, mos_disk As ManagementObjectSearcher
        Dim obj_part, obj_disk As ManagementObject
        Dim ans As String = ""

        Name = Replace(Name, "\", "\\")

        oq_part = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        mos_part = New ManagementObjectSearcher(oq_part)
        For Each obj_part In mos_part.Get()

            oq_disk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & obj_part("DeviceID") & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            mos_disk = New ManagementObjectSearcher(oq_disk)
            For Each obj_disk In mos_disk.Get()
                ans &= obj_disk("Name") & ","
            Next
        Next

        Return ans.Trim(","c)
    End Function

End Class

---

Thanks to both of you. I'll try out the code as soon as I can and post accordingly.

Ok after adding references to System.Management and System.Management.Instrumentation, I made some changes to the code, in order to fix several errors (concatenation operator cannot be used on Object etc.)

Code:

---

Imports System.Management

Public Class Form3
    Private WithEvents m_MediaConnectWatcher As ManagementEventWatcher
    Public USBDriveName As String
    Public USBDriveLetter As String

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        StartDetection()
    End Sub

    Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        m_MediaConnectWatcher.Stop()
        m_MediaConnectWatcher.Dispose()
    End Sub

    Public Sub StartDetection()
        Dim query2 As New WqlEventQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 " & "WHERE TargetInstance ISA 'Win32_DiskDrive'")

        m_MediaConnectWatcher = New ManagementEventWatcher
        m_MediaConnectWatcher.Query = query2
        m_MediaConnectWatcher.Start()
    End Sub

    Private Sub Arrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles m_MediaConnectWatcher.EventArrived
        Dim mbo As ManagementBaseObject
        Dim obj As ManagementBaseObject

        mbo = CType(e.NewEvent, ManagementBaseObject)
        obj = CType(mbo("TargetInstance"), ManagementBaseObject)

        Select Case mbo.ClassPath.ClassName
            Case "__InstanceCreationEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    USBDriveName = obj.Item("Caption").ToString
                    USBDriveLetter = GetDriveLetterFromDisk(obj.Item("Name").ToString)
                    MessageBox.Show(USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")
                End If
            Case "__InstanceDeletionEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    MessageBox.Show(USBDriveName & " was disconnected. " & USBDriveLetter & " is now inaccessible.") 'GetDriveLetterFromDisk(obj.Item("Name").ToString))
                    If obj.Item("Caption").ToString = USBDriveName Then
                        USBDriveLetter = ""
                        USBDriveName = ""
                    End If
                End If
            Case Else
                MessageBox.Show("nope: " & obj.Item("Caption").ToString)
        End Select
    End Sub

    Private Function GetDriveLetterFromDisk(ByVal Name As String) As String
        Dim oq_part, oq_disk As ObjectQuery
        Dim mos_part, mos_disk As ManagementObjectSearcher
        Dim obj_part, obj_disk As ManagementObject
        Dim ans As String = ""

        Name = Replace(Name, "\", "\\")

        oq_part = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        mos_part = New ManagementObjectSearcher(oq_part)
        For Each obj_part In mos_part.Get()

            oq_disk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & obj_part.Item("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            mos_disk = New ManagementObjectSearcher(oq_disk)
            For Each obj_disk In mos_disk.Get()
                ans &= obj_disk.Item("Name").ToString & ","
            Next
        Next

        Return ans.Trim(","c)
    End Function

---

Please note that the ManagementEventWatcher must be disposed of when the form is closed, otherwise an exception is thrown.

One more question... Would this same code also detect the insertion of a memory card in a card reader? If not, would it be possible to make some changes so that it does?

I'm not 100% sure if it would. It would probably depend on the reader. I would guess it would if the reader was USB external, but for internal readers maybe/maybe not.

Quote:

---

Originally Posted by .NetNinja

I'm not 100% sure if it would. It would probably depend on the reader. I would guess it would if the reader was USB external, but for internal readers maybe/maybe not.

---

Just to let you guys know, both internal and external usb readers hook to the system's usb bus, meaning internal readers are hooked to the usb hub built into the motherboard/usb expansion card on the system.

There are some chip readers that have a permanent "drive assignment" in Windows (just like a CDROM does, whether it has a disk in it or not) and they don't recognize the act of chip insertion or removal. Those may cause problems.

Quote:

---

Originally Posted by Jenner

There are some chip readers that have a permanent "drive assignment" in Windows (just like a CDROM does, whether it has a disk in it or not) and they don't recognize the act of chip insertion or removal. Those may cause problems.

---

Both of my card readers (one internal and one external that plugs into a usb port on the usb hub in my dell monitor) both have an assigned windows drive letter (Once the external one's plugged windows assigns it the drive letters) for each reader (4 each) and when I insert my sd card windows xp some how detects it and pops up the 'What do you want to do with it" window immediately after insertion of the card.

Windows Vista pops up with the same window 5 minutes after the card's inserted. Then again Vista wasn't built to get work done, so 5 minute delays are excusable to the public.

Well my card reader doesn't have a permanent drive assignment, so is it safe to assume that the code will work as is? I do not own a card so I cannot try it myself... :/

I am not sure I would say it is safe to assume. I am fairly certain that is the case though.

If the above code is working, perhaps a codebank thread would be in order?

This is a great thread. Subscribing.

Sorry for being absent for so long a period, I had no access to the internet for over 10 days :S

The code works like a charm, no issues as of this moment. Since I didn't provide the code in the first place, I only tweaked it to work better, I believe it would be more appropriate if .NetNinja posted this in the CodeBank... After all, I don't want to take credit for something someone else did... ;)

Quote:

---

Originally Posted by obi1kenobi

Sorry for being absent for so long a period, I had no access to the internet for over 10 days :S

The code works like a charm, no issues as of this moment. Since I didn't provide the code in the first place, I only tweaked it to work better, I believe it would be more appropriate if .NetNinja posted this in the CodeBank... After all, I don't want to take credit for something someone else did... ;)

---

I have added this to the code bank: http://www.vbforums.com/showthread.php?t=550730

obi1kenobi: Thanks again for the tweak.

Code:

---

Error        1        Type 'ManagementEventWatcher' is not defined.       
Error        2        Type 'WqlEventQuery' is not defined.       
Error        3        Type 'ManagementEventWatcher' is not defined.       
Error        4        Type 'System.Management.EventArrivedEventArgs' is not defined.       
Error        5        Type 'ManagementBaseObject' is not defined.       
Error        6        Type 'ManagementBaseObject' is not defined.       
Error        7        Type 'ManagementBaseObject' is not defined.       
Error        8        Type 'ManagementBaseObject' is not defined.       
Error        9        Type 'ObjectQuery' is not defined.       
Error        10        Type 'ManagementObjectSearcher' is not defined.       
Error        11        Type 'ManagementObject' is not defined.       
Error        12        Type 'ObjectQuery' is not defined.       
Error        13        Type 'ManagementObjectSearcher' is not defined.

---

Did you import System.Management?

how to remove msgbox and show result in TextBox ?

Remove the "MessageBox.Show" part and replace it with "TextBox1.Text =" - no quotation marks.

obi1kenobi thnx for reply

i try but doesn't work, did nothing !!
any idea !

Perhaps the name of the TextBox you are using is different? I can't think of another reason which would prevent it from working. Post your code and I'll fix it for you.

Code:

---

Imports System.Management
Public Class Form1
    Private WithEvents m_MediaConnectWatcher As ManagementEventWatcher
    Public USBDriveName As String
    Public USBDriveLetter As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StartDetection()
    End Sub
    Public Sub StartDetection()
        Dim query2 As New WqlEventQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 " & "WHERE TargetInstance ISA 'Win32_DiskDrive'")

        m_MediaConnectWatcher = New ManagementEventWatcher
        m_MediaConnectWatcher.Query = query2
        m_MediaConnectWatcher.Start()
    End Sub
    Private Sub Arrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles m_MediaConnectWatcher.EventArrived
        Dim mbo As ManagementBaseObject
        Dim obj As ManagementBaseObject

        mbo = CType(e.NewEvent, ManagementBaseObject)
        obj = CType(mbo("TargetInstance"), ManagementBaseObject)

        Select mbo.ClassPath.ClassName
            Case "__InstanceCreationEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    USBDriveName = obj.Item("Caption").ToString
                    USBDriveLetter = GetDriveLetterFromDisk(obj.Item("Name").ToString)
                    TextBox1.Text = (USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")
                End If
            Case "__InstanceDeletionEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    TextBox1.Text = (USBDriveName & " was disconnected. " & USBDriveLetter & " is now inaccessible.") 'GetDriveLetterFromDisk(obj.Item("Name").ToString))
                    If obj.Item("Caption").ToString = USBDriveName Then
                        USBDriveLetter = ""
                        USBDriveName = ""
                    End If
                End If
            Case Else
                TextBox1.Text = ("nope: " & obj.Item("Caption").ToString)
        End Select
    End Sub
    Private Function GetDriveLetterFromDisk(ByVal Name As String) As String
        Dim oq_part, oq_disk As ObjectQuery
        Dim mos_part, mos_disk As ManagementObjectSearcher
        Dim obj_part, obj_disk As ManagementObject
        Dim ans As String = ""

        Name = Replace(Name, "\", "\\")

        oq_part = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        mos_part = New ManagementObjectSearcher(oq_part)
        For Each obj_part In mos_part.Get()

            oq_disk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & obj_part.Item("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            mos_disk = New ManagementObjectSearcher(oq_disk)
            For Each obj_disk In mos_disk.Get()
                ans &= obj_disk.Item("Name").ToString & ","
            Next
        Next

        Return ans.Trim(","c)
    End Function
End Class

---

doesn't work for me !!!!

Why do you have :

Code:

---

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)_
 Handles MyBase.Load

---

@.NetNinja: That's the correct event signature, check your IDE.

@Biggy-D: The code you are using is ok. Add the reference to System.Management and it'll work fine. Right-click your project in solution explorer, click Properties, select the References tab, then click Add and in the .Net tab scroll to System.Management and select it. The errors will disappear.

@obi1kenobi

the reference :System.Management is already inserted ..
the code doesn't give errors,but doesn't work when i change " messagebox to textbox.text " in the textbox.text i want to display drive info, like messagebox info.

I tried it in 2005 and it indeed didn't work, I got an InvalidCOMException. I'm puzzled, it should have worked XC

What did you try that did not work?

i have 2008 !!

What did you mean by it doesn't work? It doesn't detect or are you encountering some exceptions?

ok. i try to change

Code:

---

MessageBox.Show(USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")

---

to

Code:

---

TextBox1.text = (USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")

---

in textbox1 doesn't show result..

When using the MessageBox does it get the correct result?

when using the messagebox i get the correct result..

That's odd. Care to post the relevant section of the code where you are using a textbox?

textbox1 is in a form1, my code is under form1 class .
here is my code :

vb Code:

Imports System.Management
Public Class Form1
    Private WithEvents m_MediaConnectWatcher As ManagementEventWatcher
    Public USBDriveName As String
    Public USBDriveLetter As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StartDetection()
    End Sub
    Public Sub StartDetection()
        Dim query2 As New WqlEventQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 " & "WHERE TargetInstance ISA 'Win32_DiskDrive'")
 
        m_MediaConnectWatcher = New ManagementEventWatcher
        m_MediaConnectWatcher.Query = query2
        m_MediaConnectWatcher.Start()
    End Sub
    Private Sub Arrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles m_MediaConnectWatcher.EventArrived
        Dim mbo As ManagementBaseObject
        Dim obj As ManagementBaseObject
 
        mbo = CType(e.NewEvent, ManagementBaseObject)
        obj = CType(mbo("TargetInstance"), ManagementBaseObject)
 
        Select mbo.ClassPath.ClassName
            Case "__InstanceCreationEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    USBDriveName = obj.Item("Caption").ToString
                    USBDriveLetter = GetDriveLetterFromDisk(obj.Item("Name").ToString)
                    TextBox1.Text = (USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")
                End If
            Case "__InstanceDeletionEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    TextBox1.Text = (USBDriveName & " was disconnected. " & USBDriveLetter & " is now inaccessible.") 'GetDriveLetterFromDisk(obj.Item("Name").ToString))
                    If obj.Item("Caption").ToString = USBDriveName Then
                        USBDriveLetter = ""
                        USBDriveName = ""
                    End If
                End If
            Case Else
                TextBox1.Text = ("nope: " & obj.Item("Caption").ToString)
        End Select
    End Sub
    Private Function GetDriveLetterFromDisk(ByVal Name As String) As String
        Dim oq_part, oq_disk As ObjectQuery
        Dim mos_part, mos_disk As ManagementObjectSearcher
        Dim obj_part, obj_disk As ManagementObject
        Dim ans As String = ""
 
        Name = Replace(Name, "\", "\\")
 
        oq_part = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        mos_part = New ManagementObjectSearcher(oq_part)
        For Each obj_part In mos_part.Get()
 
            oq_disk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & obj_part.Item("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            mos_disk = New ManagementObjectSearcher(oq_disk)
            For Each obj_disk In mos_disk.Get()
                ans &= obj_disk.Item("Name").ToString & ","
            Next
        Next
 
        Return ans.Trim(","c)
    End Function
End Class

Could it have something to do with Cross Threading? (I could be way off)

I tried his code in 2005 and it just ignored the TextBox1.Text line and then threw the exception I described... I can't make heads or tails of this problem...

It could be a problem with WMI, when I have time I will try to dig furhter into it.

I know I already pointed this out in the codebank entry but it may just be worth mentioning here if you guys are having problems with the WMI version : I made something that does pretty much the exact same thing obi1 described in his original post (ie detect when a new drive is inserted and check for a file on it) using Windows API.
Read all 7 posts in this thread (The 2nd post provides the full code but then I fixed a little problem with the drive letter assignment in the last post) and see if it helps: http://www.vbforums.com/showthread.php?t=534956

Oh and the way I'm searching for the file in that 2nd post isnt great lol I dont know why I was using GetFiles instead of FileExists... it still works but it could be slow if the USB device has a lot of files on it so you might want to change that bit (in the WndProc sub)

chris128

the WMI version work for me !

thnx

Oh ok, so you've got it to output to a textbox instead of a messagebox now then?

yes ..

thnx

I just found out why Biggy-D's way didn't work, have a look at this post:
http://www.vbforums.com/showpost.php...94&postcount=9

I this thread is kind of dead but I found an easier way to detect the insertion of any hardware.

Code:

---

Private Const WM_DEVICECHANGE As Integer = &H219

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_DEVICECHANGE
                'Device has been inserted.
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub

---

That detects hardware but it doesn't provide drive info, drive letter or any other information...

Correct, its more of a hardware change like you said.

So here's a possible solution: Grab a list of the current drives then use that code to trigger an event in which when the event fires, you check the current drives against your list, if there's a change then you'll know it and you'll be able to get the letter of the added drive (or know to remove the letter of a drive from that list)

It's a manual thing, but you could put in into a class that'll raise an event passing the new drive letter or something.

Yeah, it would work that way as well, but I prefer the "If it works, don't fix it" method :p

I know this is way late in the game to add, but i tried to build this in a class afte reading and trying and having the textbox issue. I've done everything een try to trick it through adding events, and indeed, as soon as it goes to write to any other medium other than a msgbox or string, it appears as if the code just stops, until the usb device is inserted or removed(whichever state it was in to start with, oppisite that) again.
I was wanting to make this into a class with on connection and on disconnection and on error events, but indeed, it's usless past turning the drive letter into a string or msgbox, and i still see no answer? - just saw this second page -edited- lol
Should be noted, once i got it into a string, it stops there until plugged/unplugged
the string is usless till it starts going again and then it skips any event code that told that string to write to a textbox or anything else
I guess i can try outputting the events back on form called string, but to do it from class is over my head in dotnet right now

Have you tried using the Windows API way of doing it rather than WMI or whatever it was that was suggested in this thread? Example code: http://cjwdev.wordpress.com/2009/11/...-drive-letter/

That's really not that good, it is extremely lacking in finding all disconnects and onConnection Error logging ability. that and that was designed to help that one guy grab a specific file and transfer it, which is similar to what i'm doing but i already know and have classed my file grabber, and tranfer codes as well as a great way to grab all drives, and with a timer could prolly use my drive grabber to grab usb connects and disconnects, but i'd rather do it with out timer since there are system events already in place to catch that inda stuff, might as well use them. :-P

Quote:

---

but i'd rather do it with out timer since there are system events already in place to catch that inda stuff, might as well use them. :-P

---

You class a WMI event as more of a 'system event' than a Windows API?

Quote:

---

it is extremely lacking in finding all disconnects and onConnection Error logging ability

---

Every time you connect a drive it will run whatever code you put in the windows message processing part of the example code I wrote, what more do you want from a piece of code that is supposed to run each time a drive is connected? :S
It works 100% of the time that I plug a USB drive into my computer so I'm sure it would work for you if you actually gave it a go. Also just so you know, this is the same method that Windows Explorer uses to detect when a drive has been added/removed - that is the primary purpose of this windows message that is sent to all windows, to notify Explorer (and any other programs that might want to know) that a drive has been connected or removed so that it can take appropriate action. I dont know about you but I have never had a case where Explorer doesnt detect a connect/disconnect of a drive so I would say that shows that it is not "extremely lacking".
Also you do realise that code is an example ... you can make it do whatever you want, it doesnt have to just look for one file - you can put your 'file grabber and transfer codes' in there just as easily. You can also make it detect disconnects as well but because its just an example I only made it detect connections because there are not many cases where you would care if a drive has been disconnected.

lol, I suppose, more or less, I'm just more associated with the other and it seems easier to deal with, the only problem I'm having now is passing a variable from one thread to another, perhaps by id? Plus I know enough about the previous code to have control with out having to read more at the msdn, (laziness i know, but i'm looking at 400 thousand different lines of code and machinery and screws and customers and everything else everyday) , so forgive me if i get a little comfortable in stuff i can deal with and rewrite without reading, though i'm home and reading over it now, so i may give your code a try in another class idea i'm writing now, afterall, all of this at this point is both about finding a solution and experimintation to find the eventualy best way to to give me more control.
anyway, thanx for the explination and like i said i'm looking into it too, tho i wanna keep both options open, so still looking for help on crossing variables among threads

Yeah I understand you wanting to stick to something you can understand so fair enough, at least you know an alternative option now if the WMI way doesnt work out for you.

As for accessing variables across different threads, you can pass an object in to the method that a thread starts on or you can declare your variable at class level and then any method in that class (no matter what thread it is on) can access it - be careful doing it this way though as you can end up with two threads trying to use the same object at once and that can cause problems (you can use SyncLock blocks to avoid this though)

hello guys ! i'm now here and moderately new to it. still very new to quite a chunk of codes. and i wanted to say thanks for the code here . however i was not able to obtain a pop up/message box when i connected a mouse, camera or sd card. maybe i did not do something? i just literally took out the whole chunk that obi1 and .netninja to try in my form.
i also noticed obi1 had used a form3 and form1. which i am quite confused. :/

Quote:

---

Originally Posted by Raskyl

hello guys ! i'm now here and moderately new to it. still very new to quite a chunk of codes. and i wanted to say thanks for the code here . however i was not able to obtain a pop up/message box when i connected a mouse, camera or sd card. maybe i did not do something? i just literally took out the whole chunk that obi1 and .netninja to try in my form.
i also noticed obi1 had used a form3 and form1. which i am quite confused. :/

---

Can you please post all of your code?

Also, I couldn't find the post where I used both Form1 and Form3, could you provide a link to it?

Quote:

---

Originally Posted by obi1kenobi

Ok after adding references to System.Management and System.Management.Instrumentation, I made some changes to the code, in order to fix several errors (concatenation operator cannot be used on Object etc.)

Code:

---

Imports System.Management

Public Class Form3
    Private WithEvents m_MediaConnectWatcher As ManagementEventWatcher
    Public USBDriveName As String
    Public USBDriveLetter As String

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        StartDetection()
    End Sub

    Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        m_MediaConnectWatcher.Stop()
        m_MediaConnectWatcher.Dispose()
    End Sub

    Public Sub StartDetection()
        Dim query2 As New WqlEventQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 " & "WHERE TargetInstance ISA 'Win32_DiskDrive'")

        m_MediaConnectWatcher = New ManagementEventWatcher
        m_MediaConnectWatcher.Query = query2
        m_MediaConnectWatcher.Start()
    End Sub

    Private Sub Arrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles m_MediaConnectWatcher.EventArrived
        Dim mbo As ManagementBaseObject
        Dim obj As ManagementBaseObject

        mbo = CType(e.NewEvent, ManagementBaseObject)
        obj = CType(mbo("TargetInstance"), ManagementBaseObject)

        Select Case mbo.ClassPath.ClassName
            Case "__InstanceCreationEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    USBDriveName = obj.Item("Caption").ToString
                    USBDriveLetter = GetDriveLetterFromDisk(obj.Item("Name").ToString)
                    MessageBox.Show(USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")
                End If
            Case "__InstanceDeletionEvent"
                If obj.Item("InterfaceType").ToString = "USB" Then
                    MessageBox.Show(USBDriveName & " was disconnected. " & USBDriveLetter & " is now inaccessible.") 'GetDriveLetterFromDisk(obj.Item("Name").ToString))
                    If obj.Item("Caption").ToString = USBDriveName Then
                        USBDriveLetter = ""
                        USBDriveName = ""
                    End If
                End If
            Case Else
                MessageBox.Show("nope: " & obj.Item("Caption").ToString)
        End Select
    End Sub

    Private Function GetDriveLetterFromDisk(ByVal Name As String) As String
        Dim oq_part, oq_disk As ObjectQuery
        Dim mos_part, mos_disk As ManagementObjectSearcher
        Dim obj_part, obj_disk As ManagementObject
        Dim ans As String = ""

        Name = Replace(Name, "\", "\\")

        oq_part = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        mos_part = New ManagementObjectSearcher(oq_part)
        For Each obj_part In mos_part.Get()

            oq_disk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & obj_part.Item("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            mos_disk = New ManagementObjectSearcher(oq_disk)
            For Each obj_disk In mos_disk.Get()
                ans &= obj_disk.Item("Name").ToString & ","
            Next
        Next

        Return ans.Trim(","c)
    End Function

---

Please note that the ManagementEventWatcher must be disposed of when the form is closed, otherwise an exception is thrown.

---

its this post. i was wondering why there are 2 forms.

i'm sorry for double posting but i forgot to say that it ran without errors and i had a blank form because i didnt add any other features. maybe i missed something out. also, is it able to detect any usb devices? examples like mouse, camera, storage devices(sd card / hard drives) and literally anything that has a usb ?