Einstecken von SD Karte erkennen Nicht USB Stick

Amelie · 6. Februar 2021, 15:45

@RodFromGermany
Ich hatte nichts geändert nur das was hier in den Beiträgen genannt wurde.

Das habe ich nun nochmals getestet.
1.) Versuch. Fehler wie beim ersten mal. Neu kompiliert.
2.) Versuch. Starte Fenster geht auf. stecke den Cardreader mit SD-Karte ein. NIX passiert.
3.) Versuch. SDReader eingesteckt. Starte den Code Fehler wie beim ersten mal. Wieder neu kompiliert. Das selbe von vorne. Startet ohne Fehler. stecke die SD-Card ein ... Nix passiert.
4.) Versuch Nix eingesteckt Programm startet ohne Fehler. normalen USB Stick rein.. nix passiert....

MAl eine dumme Frage: wo soll das denn angezeigt werden?
Select Case intEvent
Case SHCNE_MEDIAINSERTED
strRet = "MEDIA INSERTED"
....

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
Private Const S_OK As Integer = &H0
Private Const WM_DESTROY As Integer = &H2
Private Const WM_SHNOTIFY As Integer = &H488
Private Const CSIDL_DESKTOP As Integer = &H0
Private Const GPFIDL_DEFAULT As Integer = &H0
Private Const SHCNE_MEDIAREMOVED As Integer = &H40
Private Const SHCNE_MEDIAINSERTED As Integer = &H20
Private Enum SHCNRF As Integer
SHCNRF_InterruptLevel = &H1
SHCNRF_ShellLevel = &H2
SHCNRF_RecursiveInterrupt = &H1000
SHCNRF_NewDelivery = &H8000
End Enum
<StructLayout(LayoutKind.Sequential)>
Private Structure SHChangeNotifyEntry
Dim pidl As IntPtr
<MarshalAs(UnmanagedType.Bool)> Dim fRecursive As Boolean
End Structure
<StructLayout(LayoutKind.Sequential)>
Private Structure SHNOTIFYSTRUCT
Dim dwItem1 As IntPtr
Dim dwItem2 As IntPtr
End Structure
<DllImport("ole32.dll", EntryPoint:="CoTaskMemFree")>
Private Shared Sub CoTaskMemFree(
<[In]> ByVal hMem As IntPtr)
End Sub
<DllImport("shell32.dll", EntryPoint:="SHChangeNotifyRegister")>
Private Shared Function SHChangeNotifyRegister(
<[In]> ByVal hWnd As IntPtr,
<[In]> ByVal fSources As SHCNRF,
<[In]> ByVal fEvents As Integer,
<[In]> ByVal wMsg As Integer,
<[In]> ByVal cEntries As Integer,
<[In]> ByRef lpps As SHChangeNotifyEntry) As Integer
End Function
<DllImport("shell32.dll", EntryPoint:="SHChangeNotifyDeregister")>
Private Shared Function SHChangeNotifyDeregister(
<[In]> ByVal hNotify As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("shell32.dll", EntryPoint:="SHGetFolderLocation")>
Private Shared Function SHGetFolderLocation(
<[In]> ByVal hwndOwner As IntPtr,
<[In]> ByVal nFolder As Integer,
<[In]> ByVal hToken As IntPtr,
<[In]> ByVal dwReserved As Integer,
<Out> ByRef pidl As IntPtr) As Integer
End Function
<DllImport("shell32.dll", EntryPoint:="SHChangeNotification_Lock")>
Private Shared Function SHChangeNotification_Lock(
<[In]> ByVal hChange As IntPtr,
<[In]> ByVal dwProcId As Integer,
<Out> ByRef ppidl As IntPtr,
<Out> ByRef plEvent As Integer) As IntPtr
End Function
<DllImport("shell32.dll", EntryPoint:="SHChangeNotification_Unlock")>
Private Shared Function SHChangeNotification_Unlock(
<[In]> ByVal hLock As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("shell32.dll", EntryPoint:="SHGetPathFromIDListEx")>
Private Shared Function SHGetPathFromIDListEx(
<[In]> ByVal pidl As IntPtr,
<[In]> <MarshalAs(UnmanagedType.LPWStr)> ByVal pszPath As String,
<[In]> ByVal cchPath As Integer,
<[In]> ByVal uOpts As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private m_hSHNotify As Integer = 0
Private m_hNotifyLock As IntPtr = IntPtr.Zero
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
m_hSHNotify = RegisterNotify()
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case WM_SHNOTIFY
ProcessShellNotify(m)
Case WM_DESTROY
UnregisterNotify()
End Select
MyBase.WndProc(m)
End Sub
Private Function RegisterNotify() As Integer
Dim hSHNotify As Integer = 0
Dim pPIDL As IntPtr = IntPtr.Zero
Dim tSHCNE As SHChangeNotifyEntry = New SHChangeNotifyEntry
If SHGetFolderLocation(IntPtr.Zero, CSIDL_DESKTOP,
IntPtr.Zero, 0, pPIDL) = S_OK Then
With tSHCNE
.pidl = pPIDL
.fRecursive = True
End With
hSHNotify = SHChangeNotifyRegister(Me.Handle,
SHCNRF.SHCNRF_ShellLevel Or
SHCNRF.SHCNRF_InterruptLevel Or
SHCNRF.SHCNRF_RecursiveInterrupt Or
SHCNRF.SHCNRF_NewDelivery,
SHCNE_MEDIAINSERTED Or
SHCNE_MEDIAREMOVED,
WM_SHNOTIFY, 1, tSHCNE)
Marshal.FreeCoTaskMem(pPIDL) ' <- erst nach SHChangeNotifyRegister freigeben
'CoTaskMemFree(pPIDL) ' <- API CoTaskMemFree durch Marshal.FreeCoTaskMem ersetzt.
End If
Return hSHNotify
End Function
Private Sub UnregisterNotify()
If m_hSHNotify <> 0 Then
If SHChangeNotifyDeregister(m_hSHNotify) = True Then
m_hSHNotify = 0
End If
End If
End Sub
Private Shared Sub ShellNotifyEvent(ByVal intEvent As Integer,
ByVal tSHNS As SHNOTIFYSTRUCT)
Dim strNullChar As Char = Convert.ToChar(0)
Dim strPath1 As String = New String(strNullChar, 255)
Dim strPath2 As String = New String(strNullChar, 255)
If tSHNS.dwItem1 <> IntPtr.Zero Then
If SHGetPathFromIDListEx(tSHNS.dwItem1, strPath1,
strPath1.Length, GPFIDL_DEFAULT) = True Then
strPath1 = strPath1.Substring(0, strPath1.IndexOf(strNullChar))
Debug.Print(strPath1 & " " & LookUpSHCNE(intEvent))
End If
End If
If tSHNS.dwItem2 <> IntPtr.Zero Then
If SHGetPathFromIDListEx(tSHNS.dwItem2, strPath2,
strPath2.Length, GPFIDL_DEFAULT) = True Then
strPath2 = strPath2.Substring(0, strPath2.IndexOf(strNullChar))
Debug.Print(strPath2 & " " & LookUpSHCNE(intEvent))
End If
End If
End Sub
Private Sub ProcessShellNotify(ByVal m As Message)
Dim intEvent As Integer = 0
Dim pPIDL As IntPtr = IntPtr.Zero
If m_hNotifyLock = IntPtr.Zero Then
m_hNotifyLock = SHChangeNotification_Lock(m.WParam, m.LParam.ToInt32,
pPIDL, intEvent)
If m_hNotifyLock <> IntPtr.Zero Then
Dim tSHNS As SHNOTIFYSTRUCT = CType(Marshal.PtrToStructure(pPIDL,
GetType(SHNOTIFYSTRUCT)), SHNOTIFYSTRUCT)
If SHChangeNotification_Unlock(m_hNotifyLock) = True Then
m_hNotifyLock = IntPtr.Zero
End If
ShellNotifyEvent(intEvent, tSHNS)
End If
End If
End Sub
Private Shared Function LookUpSHCNE(ByVal intEvent As Integer) As String
Dim strRet As String = String.Empty
Select Case intEvent
Case SHCNE_MEDIAINSERTED
strRet = "MEDIA INSERTED"
Case SHCNE_MEDIAREMOVED
strRet = "MEDIA REMOVED"
End Select
Return strRet
End Function
End Class

RodFromGermany · 6. Februar 2021, 16:30

Amelie schrieb:

wo soll das denn angezeigt werden?

Im Ausgabefenster des Studios.
=====
@Amelie Wenn Du den Code von @-Franky- verwendest und noch weitere Events abfangen möchtest, ist es ~~sinnvoll~~ notwendig, die Integer-Konstanten als Enum aufzulisten, die gibt es bei PInvoke:
pinvoke.net/default.aspx/Enums/SHChangeNotifyEventID.html
Ich empfehle dringend, ihnen das Attribut <Flags> zu geben.
Dann muss zunächst überall der Parametertyp von Integer nach SHChangeNotifyEventID geändert werden und dann los.
Testweise wollen wir dann alle Events abfangen und die in einer ListBox anzeigen statt im Ausgabefenster.
Raus kommt dies, Form mit Button und ListBox:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form2
Private Const S_OK As Integer = &H0
Private Const WM_DESTROY As Integer = &H2
Private Const WM_SHNOTIFY As Integer = &H488
Private Const CSIDL_DESKTOP As Integer = &H0
Private Const GPFIDL_DEFAULT As Integer = &H0
'Private Const SHCNE_MEDIAREMOVED As Integer = &H40
'Private Const SHCNE_MEDIAINSERTED As Integer = &H20
<Flags>
Enum SHChangeNotifyEventID As UInteger
SHCNE_ALLEVENTS = &H7FFFFFFFL
SHCNE_ASSOCCHANGED = &H8000000L
SHCNE_ATTRIBUTES = &H800L
SHCNE_CREATE = &H2L
SHCNE_DELETE = &H4L
SHCNE_DISKEVENTS = &H2381FL
SHCNE_DRIVEADD = &H100L
SHCNE_DRIVEADDGUI = &H10000L
SHCNE_DRIVEREMOVED = &H80L
SHCNE_EXTENDED_EVENT = &H4000000L
SHCNE_FREESPACE = &H40000L
SHCNE_GLOBALEVENTS = &HC0581E0L
SHCNE_INTERRUPT = &H80000000L
SHCNE_MEDIAINSERTED = &H20L
SHCNE_MEDIAREMOVED = &H40L
SHCNE_MKDIR = &H8L
SHCNE_NETSHARE = &H200L
SHCNE_NETUNSHARE = &H400L
SHCNE_RENAMEFOLDER = &H20000L
SHCNE_RENAMEITEM = &H1L
SHCNE_RMDIR = &H10L
SHCNE_SERVERDISCONNECT = &H4000L
SHCNE_UPDATEDIR = &H1000L
SHCNE_UPDATEIMAGE = &H8000L
SHCNE_UPDATEITEM = &H2000L
End Enum
Private Enum SHCNRF As Integer
SHCNRF_InterruptLevel = &H1
SHCNRF_ShellLevel = &H2
SHCNRF_RecursiveInterrupt = &H1000
SHCNRF_NewDelivery = &H8000
End Enum
<StructLayout(LayoutKind.Sequential)>
Private Structure SHChangeNotifyEntry
Dim pidl As IntPtr
<MarshalAs(UnmanagedType.Bool)> Dim fRecursive As Boolean
End Structure
<StructLayout(LayoutKind.Sequential)>
Private Structure SHNOTIFYSTRUCT
Dim dwItem1 As IntPtr
Dim dwItem2 As IntPtr
End Structure
<DllImport("ole32.dll", EntryPoint:="CoTaskMemFree")>
Private Shared Sub CoTaskMemFree(<[In]> ByVal hMem As IntPtr)
End Sub
<DllImport("shell32.dll", EntryPoint:="SHChangeNotifyRegister")>
Private Shared Function SHChangeNotifyRegister(
<[In]> ByVal hWnd As IntPtr,
<[In]> ByVal fSources As SHCNRF,
<[In]> ByVal fEvents As SHChangeNotifyEventID,'Integer,
<[In]> ByVal wMsg As Integer,
<[In]> ByVal cEntries As Integer,
<[In]> ByRef lpps As SHChangeNotifyEntry) As Integer
End Function
<DllImport("shell32.dll", EntryPoint:="SHChangeNotifyDeregister")>
Private Shared Function SHChangeNotifyDeregister(<[In]> ByVal hNotify As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("shell32.dll", EntryPoint:="SHGetFolderLocation")>
Private Shared Function SHGetFolderLocation(
<[In]> ByVal hwndOwner As IntPtr,
<[In]> ByVal nFolder As Integer,
<[In]> ByVal hToken As IntPtr,
<[In]> ByVal dwReserved As Integer,
<Out> ByRef pidl As IntPtr) As Integer
End Function
<DllImport("shell32.dll", EntryPoint:="SHChangeNotification_Lock")>
Private Shared Function SHChangeNotification_Lock(
<[In]> ByVal hChange As IntPtr,
<[In]> ByVal dwProcId As Integer,
<Out> ByRef ppidl As IntPtr,
<Out> ByRef plEvent As SHChangeNotifyEventID) As IntPtr
End Function
<DllImport("shell32.dll", EntryPoint:="SHChangeNotification_Unlock")>
Private Shared Function SHChangeNotification_Unlock(
<[In]> ByVal hLock As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("shell32.dll", EntryPoint:="SHGetPathFromIDListEx")>
Private Shared Function SHGetPathFromIDListEx(
<[In]> ByVal pidl As IntPtr,
<[In]> <MarshalAs(UnmanagedType.LPWStr)> ByVal pszPath As String,
<[In]> ByVal cchPath As Integer,
<[In]> ByVal uOpts As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private m_hSHNotify As Integer = 0
Private m_hNotifyLock As IntPtr = IntPtr.Zero
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case WM_SHNOTIFY
ProcessShellNotify(m)
Case WM_DESTROY
UnregisterNotify()
End Select
MyBase.WndProc(m)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
m_hSHNotify = RegisterNotify()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
End Sub
Private Function RegisterNotify() As Integer
Dim hSHNotify As Integer = 0
Dim pPIDL As IntPtr = IntPtr.Zero
Dim tSHCNE As SHChangeNotifyEntry = New SHChangeNotifyEntry
If SHGetFolderLocation(IntPtr.Zero, CSIDL_DESKTOP, IntPtr.Zero, 0, pPIDL) = S_OK Then
With tSHCNE
.pidl = pPIDL
.fRecursive = True
End With
hSHNotify = SHChangeNotifyRegister(Me.Handle,
SHCNRF.SHCNRF_ShellLevel Or
SHCNRF.SHCNRF_InterruptLevel Or
SHCNRF.SHCNRF_RecursiveInterrupt Or
SHCNRF.SHCNRF_NewDelivery,
SHChangeNotifyEventID.SHCNE_ALLEVENTS,
WM_SHNOTIFY, 1, tSHCNE)
'SHChangeNotifyEventID.SHCNE_MEDIAINSERTED Or
'SHChangeNotifyEventID.SHCNE_MEDIAREMOVED,
Marshal.FreeCoTaskMem(pPIDL)
End If
Return hSHNotify
End Function
Private Sub UnregisterNotify()
If m_hSHNotify <> 0 Then
If SHChangeNotifyDeregister(m_hSHNotify) Then
m_hSHNotify = 0
End If
End If
End Sub
Private Sub ShellNotifyEvent(ByVal intEvent As SHChangeNotifyEventID, ByVal tSHNS As SHNOTIFYSTRUCT)
Dim strNullChar As Char = Convert.ToChar(0)
Dim strPath1 As String = New String(strNullChar, 255)
Dim strPath2 As String = New String(strNullChar, 255)
If tSHNS.dwItem1 <> IntPtr.Zero Then
If SHGetPathFromIDListEx(tSHNS.dwItem1, strPath1, strPath1.Length, GPFIDL_DEFAULT) Then
strPath1 = strPath1.Substring(0, strPath1.IndexOf(strNullChar))
Dim msg = strPath1 & " " & LookUpSHCNE(intEvent)
'Debug.Print(msg)
ListBox1.Items.Add(msg)
End If
End If
If tSHNS.dwItem2 <> IntPtr.Zero Then
If SHGetPathFromIDListEx(tSHNS.dwItem2, strPath2, strPath2.Length, GPFIDL_DEFAULT) Then
strPath2 = strPath2.Substring(0, strPath2.IndexOf(strNullChar))
Dim msg = strPath2 & " " & LookUpSHCNE(intEvent)
'Debug.Print(msg)
ListBox1.Items.Add(msg)
End If
End If
End Sub
Private Sub ProcessShellNotify(ByVal m As Message)
Dim intEvent As SHChangeNotifyEventID = 0
Dim pPIDL As IntPtr = IntPtr.Zero
If m_hNotifyLock = IntPtr.Zero Then
m_hNotifyLock = SHChangeNotification_Lock(m.WParam, m.LParam.ToInt32, pPIDL, intEvent)
If m_hNotifyLock <> IntPtr.Zero Then
Dim tSHNS As SHNOTIFYSTRUCT = CType(Marshal.PtrToStructure(pPIDL, GetType(SHNOTIFYSTRUCT)), SHNOTIFYSTRUCT)
If SHChangeNotification_Unlock(m_hNotifyLock) Then
m_hNotifyLock = IntPtr.Zero
End If
ShellNotifyEvent(intEvent, tSHNS)
End If
End If
End Sub
Private Shared Function LookUpSHCNE(ByVal intEvent As SHChangeNotifyEventID) As String
Select Case intEvent
Case SHChangeNotifyEventID.SHCNE_MEDIAINSERTED
Return "MEDIA INSERTED"
Case SHChangeNotifyEventID.SHCNE_MEDIAREMOVED
Return "MEDIA REMOVED"
End Select
Return "new Item: " & intEvent.ToString()
End Function
End Class

Amelie · 6. Februar 2021, 17:14

@RodFromGermany
Da tut sich aber nichts, egal wie ich den Reader / SD-Kard einstecke etc....
Naja scheint nicht zu gehen...

RodFromGermany · 6. Februar 2021, 17:35

Amelie schrieb:

Da tut sich aber nichts

Steck mal die SD-Karte in den Reader.
Und:
Ganz alles geht wohl immeer noch nicht, abere deutlich mehr als vorher.

Amelie · 6. Februar 2021, 17:50

@RodFromGermany
Nachdem ich es zum laufen brachte .. hier das Ergebnis
Siehe Bild.

EDIT: !! !!
Aber es werden Zugriffen auf die Festplatten ausgegeben, wenn ich z.B. etwas speichere / öffne

RodFromGermany · 7. Februar 2021, 06:38

@Amelie OK. Du hast nun die volle Bandbreite dieses Enum-Items SHCNE_ALLEVENTS. Wenn Deine Zielevents nicht kommen, werden sie möglicherweise nicht unterstützt, dann stehst Du mit Deiner Suche wieder am Anfang.

Amelie · 7. Februar 2021, 11:21

Ich habe nun nochmal viel gelesen und ...
Nun habe ich das: erstellt mit dem WMI CodeCreator

VB.NET-Quellcode

'Imports wmi.wmiclasses
Imports System
Imports System.Management
Imports System.Windows.Forms
Public Class Form1
End Class
Namespace WMISample
Public Class MyWMIQuery
Public Overloads Shared Function Main() As Integer
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_DiskDrive")
For Each queryObj As ManagementObject In searcher.Get()
Form1.lstSDInfo.Items.Add("-----------------------------------")
Form1.lstSDInfo.Items.Add("-----------------------------------")
Form1.lstSDInfo.Items.Add("Win32_DiskDrive instance")
Form1.lstSDInfo.Items.Add("-----------------------------------")
'Form1.lstSDInfo.Items.Add("Status: {0}", queryObj("Status")) '<====Fehler zu viele Argumente
'Console.WriteLine("-----------------------------------")
'Console.WriteLine("Win32_DiskDrive instance")
'Console.WriteLine("-----------------------------------")
Console.WriteLine("Status: {0}", queryObj("Status")) ' <========= Hier kommt der Fehler aber nicht.
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Function '<== Wenn "Console.Writeline..." Meldung fehlt ein Return?
End Class
End Namespace

RodFromGermany · 7. Februar 2021, 11:57

@Amelie OK.
Was macht der?
Was soll er machen?
Gibt es Differenzen zwischen dem, was er macht und dem, was er machen soll?
Und:
Das ganze ist VB6-Code.
Verstehe dies und setze es um:
Dialoge: Instanziierung von Forms und Aufruf von Dialogen
=====
Der Hinweis: "System.Management-DLL hinzufügen" fehlt
Sieh Dir die Deklarationen der Prozeduren an:

VB.NET-Quellcode

Console.WriteLine(format As String, arg0 As Object) ' kennt Format-Argumente
ListBox.ObjectCollection.Items.Add(item As Object) ' kennt keine Format-Argumente

Mach es z.B. so:

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Try
Dim searcher As New ManagementObjectSearcher(
"root\CIMV2",
"SELECT * FROM Win32_DiskDrive")
For Each queryObj As ManagementObject In searcher.Get()
ListBox1.Items.Add(String.Format("Name: {0}, Status: {1}", queryObj("Name"), queryObj("Status")))
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Sub

Amelie · 7. Februar 2021, 13:35

Also nun bin ich soweit.
Ist der USB-Card-Reader nicht im PC eingesteckt bleibt die Listbox leer... Rest siehe Bildanhänge.
Den Code kann man bestimm verbessern ????

VB.NET-Quellcode

Imports System
Imports System.Management
Imports System.Windows.Forms
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
lstSDInfo.Items.Clear()
Try
Dim searcher As New ManagementObjectSearcher(
"root\CIMV2",
"SELECT * FROM Win32_DiskDrive")
Dim strTestText As String
For Each di As IO.DriveInfo In IO.DriveInfo.GetDrives
If di.DriveType = IO.DriveType.Removable Then
strTestText = di.Name.ToString
If di.IsReady = True Then
lstSDInfo.Items.Add("SD Card Found")
lstSDInfo.Items.Add("Drive Letter: " + di.Name)
lstSDInfo.Items.Add("Drive Format: " + di.DriveFormat)
lstSDInfo.Items.Add("Drive Size: " + (di.TotalSize.ToString))
lstSDInfo.Items.Add(" ")
lstSDInfo.Items.Add("SD Card Reader Found: " + strTestText)
lstSDInfo.Items.Add("SD Card Name: " + (di.VolumeLabel.ToString))
Else
lstSDInfo.Items.Add("SD Card Reader Found: " + strTestText)
lstSDInfo.Items.Add("SD Card Reader: is empty")
End If
End If
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Sub
End Class

exc-jdbi · 7. Februar 2021, 15:58

Hab mich am Nachmittag gefragt, ob es möglich wäre, die WndProc extern auszulagern.

Hab dann hier was unvollständiges gefunden.
social.msdn.microsoft.com/Foru…n-gui?forum=csharpgeneral

Das hier ist rausgekommen. Verfolge es nicht mehr weiter, bin mir aber sicher, man könnte es auch in eine DLL auslagern.

Freundliche Grüsse

exc-jdbi

FrmMain

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.IO
Imports System.Threading
Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Runtime.CompilerServices
Public Class FrmMain
Private Drives As List(Of DriveInfo)
Private FrmToasty As FrmToastNotification
Private WithEvents Notifier As DeviceChangeNotifier
Private Sub BtClear_Click(sender As Object, e As EventArgs) _
Handles BtClear.Click, BtRefresh.Click
Select Case True
Case sender Is Me.BtClear : Me.TextBox1.Clear()
Case sender Is Me.BtRefresh : Me.RefreshTxtBox()
End Select
End Sub
Private Sub FrmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
Me.Notifier.Dispose()
End Sub
Private Sub RefreshTxtBox()
Me.TextBox1.Clear()
Me.Drives = DriveInfo.GetDrives().ToList()
Me.TextBox1.AppendText(String.Join("", Me.Drives.Select(Function(di) $"{di.Name}{Environment.NewLine}").ToArray))
End Sub
Private Sub MyNotifier(sender As Object, e As PropertyChangedEventArgs) _
Handles Notifier.PropertyChanged
Me.Drives = Me.Notifier.Drives
Me.Invoke(Sub() Me.RefreshTxtBox())
End Sub
Public Sub New()
Me.InitializeComponent()
Me.Notifier = New DeviceChangeNotifier
Me.Drives = DriveInfo.GetDrives().ToList()
Me.RefreshTxtBox()
End Sub
End Class

DeviceChangeNotifier

VB.NET-Quellcode

Public Class DeviceChangeNotifier
Inherits NativeWindow
Implements IDisposable
Implements INotifyPropertyChanged
Public MIsDisposed As Boolean = False
Public ReadOnly Property IsDisposed As Boolean
Get
Return Me.MIsDisposed
End Get
End Property
Const WM_DEVICECHANGE As Int32 = &H219
Const DBT_DEVICEARRIVAL As Int32 = &H8000
Const DBT_DEVNODES_CHANGED As Int32 = &H7
Const DEVTYP_DEVICEINTERFACE As Int32 = &H5
Const DEVICE_NOTIFY_WINDOW_HANDLE As Int32 = &H0
Const DBT_DEVICEREMOVECOMPLETE As Int32 = &H8004
Private Shared ReadOnly GuidDevinterfaceUSBDevice As Guid =
New Guid("A5DCBF10-6530-11D2-901F-00C04FB951ED")
<DllImport("user32.dll", SetLastError:=True)>
Shared Function RegisterDeviceNotification(hwnd As IntPtr, ByRef interfacein As DeviceBroadcastInterface, flags As Int32) As IntPtr
End Function
<DllImport("user32.dll", SetLastError:=True)>
Public Shared Function UnregisterDeviceNotification(hdl As IntPtr) As Boolean
End Function
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=1)>
Public Structure DeviceBroadcastInterface
Public Size As Int32
Public DeviceType As Int32
Public Reserved As Int32
Public ClassGuid As Guid
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)>
Public Name As String
End Structure
Private MDrives As List(Of DriveInfo)
Private FrmToasty As FrmToastNotification
Public Property Drives As List(Of DriveInfo)
Get
Return Me.MDrives
End Get
Private Set
Me.MDrives = Value
Me.NotifyPropertyChanged(NameOf(Drives))
End Set
End Property
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
Private Sub NotifyPropertyChanged(<CallerMemberName()> Optional PropertyName As String = Nothing)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(PropertyName))
End Sub
Friend Sub StartListening()
Dim ctx As ApplicationContext = New ApplicationContext()
Dim cp As CreateParams = New CreateParams With
{
.Parent = CType(-3, IntPtr)
}
Me.CreateHandle(cp)
Application.Run(ctx)
End Sub
Private ThisHandle As IntPtr
Protected Overrides Sub OnHandleChange()
Me.ThisHandle = Me.Handle()
Me.RegisterForUsbEvents(Me.Handle)
End Sub
Private Function RegisterForUsbEvents(hwnd As IntPtr) As IntPtr
Dim interfacein = New DeviceBroadcastInterface
With interfacein
.Size = Marshal.SizeOf(interfacein)
.ClassGuid = GuidDevinterfaceUSBDevice
.DeviceType = DEVTYP_DEVICEINTERFACE
.Reserved = 0
End With
Return RegisterDeviceNotification(hwnd, interfacein, DEVICE_NOTIFY_WINDOW_HANDLE)
End Function
Private Function UnregisterForUsbEvents(hhdl As IntPtr) As Boolean
Return UnregisterDeviceNotification(hhdl)
End Function
<AllowReversePInvokeCalls>
Protected Overrides Sub WndProc(ByRef msg As Message)
MyBase.WndProc(msg)
Dim wparam = msg.WParam.ToInt32()
If msg.Msg = WM_DEVICECHANGE Then
Thread.Sleep(100)
Me.Drives = DriveInfo.GetDrives().ToList()
Call (New FrmToastNotification).Show(Me)
'Task.Factory.StartNew(Sub() Call (New FrmToastNotification).Show(Me)).Wait()
End If
End Sub
Public Sub New()
Me.Drives = DriveInfo.GetDrives().ToList()
Dim t As Thread = New Thread(AddressOf Me.StartListening)
t.SetApartmentState(ApartmentState.STA)
t.IsBackground = True
t.Start()
End Sub
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.MIsDisposed Then
If disposing Then
UnregisterDeviceNotification(Me.ThisHandle)
End If
End If
Me.MIsDisposed = True
End Sub
Protected Overrides Sub Finalize()
Me.Dispose(False)
MyBase.Finalize()
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
Me.Dispose(True)
GC.SuppressFinalize(Me)
End Sub
End Class

FrmToastNotification

-Franky- · 7. Februar 2021, 17:21

Hi

Die entsprechenden SHCNE_*-Events, die man bei SHChangeNotifyRegister angeben kann, werden natürlich erkannt und auch erst dann, wenn der Code ausgeführt wird. Man muss aber auch wissen welche Events man benötigt. SHCNE_ALLEVENTS macht kein Sinn wenn man, nach dem ausführen des Codes!, nur das einstecken/entnehmen einer SD-Karte in/aus dem CardReader automatisch erfassen möchte und das war die Frage im Startposting. Ist der CardReader (mit oder ohne SD-Karte) bereits am PC angeschlossen und man startet den Code danach, wird natürlich erst dann wieder etwas erkannt, wenn Veränderungen stattfinden. Beim WMI-Code könnte ich mir vorstellen, weil ungetestet, das dieser auch andere Removable-Laufwerke erkennt die nicht unbedingt ein CardReader sein müssen.

Alle vorgeschlagenen Lösungen bieten bestimmt immer eine Teillösung. Die Frage ist doch immer, was möchte man erreichen?

Amelie · 7. Februar 2021, 17:59

Bei meinem letzten gezeigtem Code werden auch USB-Sticks aber keine USB-Festplatten angezeigt.
Für mich und mein Anliegen erstmal die bis hierhin optimale Lösung.

RodFromGermany · 7. Februar 2021, 18:06

-Franky- schrieb:

SHCNE_ALLEVENTS macht kein Sinn wenn man, nach dem ausführen des Codes!

Zum Testen schon, denn beim "Spielen" sieht man, welche Codes man nicht braucht und kann die rausnehmen.
Das Enum sichert, dass der Name, nicht der numerische Wert angezeigt wird, das ist einfach handlicher.
====

exc-jdbi schrieb:

extern auszulagern.

Geht nicht, denn das ist eine Protected Prozedur. Du kannst sie allerdings in eine Partial Class-Datei auslagern.

Amelie · 7. Februar 2021, 19:46

@RodFromGermany
So ich habe noch etwas gemacht und bekomme nun diese Ausgaben.
Schade das beim USB Stick auch der Text für den Reader angezeigt wird.. Könnte man das noch ändern?
Gibt es in den DriveInfos da ein Bezeichner??

EDIT: habs nun so gelöst
Einmal SD_Card im Reader einmal ohne SD-Card

RodFromGermany · 8. Februar 2021, 06:36

Amelie schrieb:

Könnte man das noch ändern?

Klar.
Identifiziere das Enum-Tag und dann so was:

VB.NET-Quellcode

Dim kennung = SHChangeNotifyEventID.SHCNE_ALLEVENTS
kennung = kennung And Not SHChangeNotifyEventID.DEN_WERT_DEN_DU_NICHT_HABEN_WILLST_1
kennung = kennung And Not SHChangeNotifyEventID.DEN_WERT_DEN_DU_NICHT_HABEN_WILLST_2
kennung = kennung And Not SHChangeNotifyEventID.DEN_WERT_DEN_DU_NICHT_HABEN_WILLST_3
' ...
hSHNotify = SHChangeNotifyRegister(Me.Handle,
SHCNRF.SHCNRF_ShellLevel Or
SHCNRF.SHCNRF_InterruptLevel Or
SHCNRF.SHCNRF_RecursiveInterrupt Or
SHCNRF.SHCNRF_NewDelivery,
kennung,
WM_SHNOTIFY, 1, tSHCNE)

Amelie · 8. Februar 2021, 19:49

Gibt es keine Möglichkeit alle daten aus einem zu generieren? ....

"SELECT * FROM Win32_DiskDrive")
For Each Obj As ManagementObject In searcher2.Get ....
For Each di As IO.DriveInfo In IO.DriveInfo.GetDrives ....

usw.. je nach dem muss man immer andere Abfragen für die Laufwerke generieren?
Und dann kommt alles durcheiander...

RodFromGermany · 9. Februar 2021, 06:46

Amelie schrieb:

usw.. je nach dem muss man immer andere Abfragen für die Laufwerke generieren?

Nicht für einzelne Laufwerke, sondern für in sich einheitliche Gruppen von Laufwerken, die dann im SQL-String explizit abgefragt werden.
In "SELECT * FROM Win32_DiskDrive") müsstest Du dann Win32_DiskDrive durch einen anderen Typ ersetzen.
Welchen? Keine Ahnung.

Amelie · 9. Februar 2021, 08:29

Wie soll man denn bei dem Chaos etwas ...
In dem einen funktioniert das man NUR externe Festplatten findet ABER man bekommt KEINE Infos über "DriveLetter, VolumenName etc.."
In dem anderen bekommt man alle Infos zu DriveLetter etc ABER es wird NICHT unterschieden ob extern etc...
Das ist doch alles völlig unlogisch aufgebaut....
Wie kann man das denn nun zusammen bekommen?

Spoiler anzeigen

VB.NET-Quellcode

'............. Hier funktioniert die SQL Abfrage NICHT ABER es werden ALLE Platten aufgelistet.
Dim suche1 As New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where MediaType='External hard disk media'")
For Each di As IO.DriveInfo In IO.DriveInfo.GetDrives
Dim strText As String
Dim strName As String
Dim strSize As String
strText = di.Name.ToString
If di.IsReady = True Then
strName = di.VolumeLabel.ToString
strSize = convert(di.TotalSize, "0.00")
Else
strName = "" : strSize = ""
End If
If di.DriveType = IO.DriveType.Fixed Then
lst_view.Items.Add(New ListViewItem({strText, strName, strSize}, lst_view.Groups(0)))
Else
lst_view.Items.Add(New ListViewItem({strText, strName, strSize}, lst_view.Groups(2)))
End If
Next
'................Hier geht die SQL Abfrage und zeigt nur die externe Platte an ABER man bekommt keine weiteren brauchbaren infos ( Drivletter etc.)
Dim suche2 As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where MediaType='External hard disk media'")
For Each di As ManagementObject In suche2.Get()
Dim strSize As String
strSize = convert(CDbl(di.GetPropertyValue("Size")), "0.00")
lst_view.Items.Add(New ListViewItem({strSize}, lst_view.Groups(1)))
Next

RodFromGermany · 9. Februar 2021, 09:41

@Amelie Anders herum.
Woher hast Du denn den String FROM Win32_diskdrive where MediaType='External hard disk media?
Welche Abfragen werden im SQL-String supportet?
Kläre das mal auf.

Amelie · 9. Februar 2021, 09:58

@RodFromGermany
Gefunden unter anderem hier:
Erkennen, wann ein Laufwerk hinzugefügt bzw. entfernt wurde (USB-Stick)

Das funktioniert ja auch " fast " (siehe Bild) nur das ich da außer der Größe keine anderen für mich brauchbaren Infos herbekomme.
Wenn ich die Abfrage versuche mit "DriveInfo" zu kombinieren gibt es wieder Chaos...
Scheinbar ist es wohl nicht möglich das so hinzubekommen.

Unter "DriveType" "Removable" gelten Nur USB-Sticks usw aber wohl keine USB-Festplatten ( für mich wieder völlig unlogisch )

Einstecken von SD Karte erkennen Nicht USB Stick

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

-Franky- schrieb:

exc-jdbi schrieb:

Amelie schrieb:

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

10 Benutzer haben hier geschrieben