Einstecken von SD Karte erkennen Nicht USB Stick

  • VB.NET
  • .NET (FX) 4.0

Es gibt 65 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    @Amelie In Post #6 und Post #9 sind ein paar lokale Konstanten drinne, in Post #12 hast Du festgestellt, dass auf einige nicht verwiesen wird.
    @-Franky- meint, dass Du die von ihm aufgelisteten mal da abfragen solltest.
    Die Wedrte stehen hier: pinvoke.net/default.aspx/Enums/SHCNE.html
    @-Franky- Beim nächsten mal schreibst Du die Werte gleich hin. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi

    Ich hab mal meinen VB6 Code auf .NET umgeschrieben. Unwichtiges habe ich dabei mal rausgelassen und es werden nur die Events SHCNE_MEDIAINSERTED und SHCNE_MEDIAREMOVED abgefragt bzw ausgewertet. Der Code erkennt auch das einlegen einer CD in das CD-Rom Laufwerk. Deswegen müsstest Du das ermittelte Laufwerk noch auswerten ob es ein Removable-Laufwerk und kein CD-Rom Laufwerk ist. Ausgaben erfolgen im Debug-Fenster!
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    3. Option Explicit On
    5. Imports System.Runtime.InteropServices
    7. Public Class Form1
    9. Private Const S_OK As Integer = &H0
    10. Private Const WM_DESTROY As Integer = &H2
    11. Private Const WM_SHNOTIFY As Integer = &H488
    12. Private Const CSIDL_DESKTOP As Integer = &H0
    13. Private Const GPFIDL_DEFAULT As Integer = &H0
    14. Private Const SHCNE_MEDIAREMOVED As Integer = &H40
    15. Private Const SHCNE_MEDIAINSERTED As Integer = &H20
    17. Private Enum SHCNRF As Integer
    18. SHCNRF_InterruptLevel = &H1
    19. SHCNRF_ShellLevel = &H2
    20. SHCNRF_RecursiveInterrupt = &H1000
    21. SHCNRF_NewDelivery = &H8000
    22. End Enum
    24. <StructLayout(LayoutKind.Sequential)>
    25. Private Structure SHChangeNotifyEntry
    26. Dim pidl As IntPtr
    27. <MarshalAs(UnmanagedType.Bool)> Dim fRecursive As Boolean
    28. End Structure
    30. <StructLayout(LayoutKind.Sequential)>
    31. Private Structure SHNOTIFYSTRUCT
    32. Dim dwItem1 As IntPtr
    33. Dim dwItem2 As IntPtr
    34. End Structure
    36. <DllImport("ole32.dll", EntryPoint:="CoTaskMemFree")>
    37. Private Shared Sub CoTaskMemFree(
    38. <[In]> ByVal hMem As IntPtr)
    39. End Sub
    41. <DllImport("shell32.dll", EntryPoint:="SHChangeNotifyRegister")>
    42. Private Shared Function SHChangeNotifyRegister(
    43. <[In]> ByVal hWnd As IntPtr,
    44. <[In]> ByVal fSources As SHCNRF,
    45. <[In]> ByVal fEvents As Integer,
    46. <[In]> ByVal wMsg As Integer,
    47. <[In]> ByVal cEntries As Integer,
    48. <[In]> ByVal lpps As SHChangeNotifyEntry) As Integer
    49. End Function
    51. <DllImport("shell32.dll", EntryPoint:="SHChangeNotifyDeregister")>
    52. Private Shared Function SHChangeNotifyDeregister(
    53. <[In]> ByVal hNotify As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
    54. End Function
    56. <DllImport("shell32.dll", EntryPoint:="SHGetFolderLocation")>
    57. Private Shared Function SHGetFolderLocation(
    58. <[In]> ByVal hwndOwner As IntPtr,
    59. <[In]> ByVal nFolder As Integer,
    60. <[In]> ByVal hToken As IntPtr,
    61. <[In]> ByVal dwReserved As Integer,
    62. <Out> ByRef pidl As IntPtr) As Integer
    63. End Function
    65. <DllImport("shell32.dll", EntryPoint:="SHChangeNotification_Lock")>
    66. Private Shared Function SHChangeNotification_Lock(
    67. <[In]> ByVal hChange As IntPtr,
    68. <[In]> ByVal dwProcId As Integer,
    69. <Out> ByRef ppidl As IntPtr,
    70. <Out> ByRef plEvent As Integer) As IntPtr
    71. End Function
    73. <DllImport("shell32.dll", EntryPoint:="SHChangeNotification_Unlock")>
    74. Private Shared Function SHChangeNotification_Unlock(
    75. <[In]> ByVal hLock As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    76. End Function
    78. <DllImport("shell32.dll", EntryPoint:="SHGetPathFromIDListEx")>
    79. Private Shared Function SHGetPathFromIDListEx(
    80. <[In]> ByVal pidl As IntPtr,
    81. <[In]> <MarshalAs(UnmanagedType.LPWStr)> ByVal pszPath As String,
    82. <[In]> ByVal cchPath As Integer,
    83. <[In]> ByVal uOpts As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
    84. End Function
    86. Private m_hSHNotify As Integer = 0
    87. Private m_hNotifyLock As IntPtr = IntPtr.Zero
    89. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    91. m_hSHNotify = RegisterNotify()
    93. End Sub
    95. Protected Overrides Sub WndProc(ByRef m As Message)
    97. Select Case m.Msg
    99. Case WM_SHNOTIFY
    100. ProcessShellNotify(m)
    102. Case WM_DESTROY
    103. UnregisterNotify()
    105. End Select
    107. MyBase.WndProc(m)
    109. End Sub
    111. Private Function RegisterNotify() As Integer
    113. Dim hSHNotify As Integer = 0
    114. Dim pPIDL As IntPtr = IntPtr.Zero
    115. Dim tSHCNE As SHChangeNotifyEntry = New SHChangeNotifyEntry
    117. If SHGetFolderLocation(IntPtr.Zero, CSIDL_DESKTOP,
    118. IntPtr.Zero, 0, pPIDL) = S_OK Then
    120. With tSHCNE
    121. .pidl = pPIDL
    122. .fRecursive = True
    123. End With
    125. CoTaskMemFree(pPIDL)
    127. hSHNotify = SHChangeNotifyRegister(Me.Handle,
    128. SHCNRF.SHCNRF_ShellLevel Or
    129. SHCNRF.SHCNRF_InterruptLevel Or
    130. SHCNRF.SHCNRF_RecursiveInterrupt Or
    131. SHCNRF.SHCNRF_NewDelivery,
    132. SHCNE_MEDIAINSERTED Or
    133. SHCNE_MEDIAREMOVED,
    134. WM_SHNOTIFY, 1, tSHCNE)
    136. End If
    138. Return hSHNotify
    140. End Function
    142. Private Sub UnregisterNotify()
    144. If m_hSHNotify <> 0 Then
    146. If SHChangeNotifyDeregister(m_hSHNotify) = True Then
    148. m_hSHNotify = 0
    150. End If
    152. End If
    154. End Sub
    156. Private Shared Sub ShellNotifyEvent(ByVal intEvent As Integer,
    157. ByVal tSHNS As SHNOTIFYSTRUCT)
    159. Dim strNullChar As Char = Convert.ToChar(0)
    160. Dim strPath1 As String = New String(strNullChar, 255)
    161. Dim strPath2 As String = New String(strNullChar, 255)
    163. If tSHNS.dwItem1 <> IntPtr.Zero Then
    165. If SHGetPathFromIDListEx(tSHNS.dwItem1, strPath1,
    166. strPath1.Length, GPFIDL_DEFAULT) = True Then
    168. strPath1 = strPath1.Substring(0, strPath1.IndexOf(strNullChar))
    170. Debug.Print(strPath1 & " " & LookUpSHCNE(intEvent))
    172. End If
    174. End If
    176. If tSHNS.dwItem2 <> IntPtr.Zero Then
    178. If SHGetPathFromIDListEx(tSHNS.dwItem2, strPath2,
    179. strPath2.Length, GPFIDL_DEFAULT) = True Then
    181. strPath2 = strPath2.Substring(0, strPath2.IndexOf(strNullChar))
    183. Debug.Print(strPath2 & " " & LookUpSHCNE(intEvent))
    185. End If
    187. End If
    189. End Sub
    191. Private Sub ProcessShellNotify(ByVal m As Message)
    193. Dim intEvent As Integer = 0
    194. Dim pPIDL As IntPtr = IntPtr.Zero
    196. If m_hNotifyLock = IntPtr.Zero Then
    198. m_hNotifyLock = SHChangeNotification_Lock(m.WParam, m.LParam.ToInt32,
    199. pPIDL, intEvent)
    201. If m_hNotifyLock <> IntPtr.Zero Then
    203. Dim tSHNS As SHNOTIFYSTRUCT = CType(Marshal.PtrToStructure(pPIDL,
    204. GetType(SHNOTIFYSTRUCT)), SHNOTIFYSTRUCT)
    206. If SHChangeNotification_Unlock(m_hNotifyLock) = True Then
    208. m_hNotifyLock = IntPtr.Zero
    210. End If
    212. ShellNotifyEvent(intEvent, tSHNS)
    214. End If
    216. End If
    218. End Sub
    220. Private Shared Function LookUpSHCNE(ByVal intEvent As Integer) As String
    222. Dim strRet As String = String.Empty
    224. Select Case intEvent
    226. Case SHCNE_MEDIAINSERTED
    227. strRet = "MEDIA INSERTED"
    229. Case SHCNE_MEDIAREMOVED
    230. strRet = "MEDIA REMOVED"
    232. End Select
    234. Return strRet
    236. End Function
    238. End Class

    Mfg -Franky-

    Hi

    So. Test auf meinem Laptop war auch erfolgreich. Hab aber eine kleine Änderung am Code vorgenommen. Könnte sein das das ganze deswegen zum Fehler führte. Hier die geänderte Funktion RegisterNotify.

    VB.NET-Quellcode

    1. ​
    2. Private Function RegisterNotify() As Integer
    4. Dim hSHNotify As Integer = 0
    5. Dim pPIDL As IntPtr = IntPtr.Zero
    6. Dim tSHCNE As SHChangeNotifyEntry = New SHChangeNotifyEntry
    8. If SHGetFolderLocation(IntPtr.Zero, CSIDL_DESKTOP,
    9. IntPtr.Zero, 0, pPIDL) = S_OK Then
    11. With tSHCNE
    12. .pidl = pPIDL
    13. .fRecursive = True
    14. End With
    16. hSHNotify = SHChangeNotifyRegister(Me.Handle,
    17. SHCNRF.SHCNRF_ShellLevel Or
    18. SHCNRF.SHCNRF_InterruptLevel Or
    19. SHCNRF.SHCNRF_RecursiveInterrupt Or
    20. SHCNRF.SHCNRF_NewDelivery,
    21. SHCNE_MEDIAINSERTED Or
    22. SHCNE_MEDIAREMOVED,
    23. WM_SHNOTIFY, 1, tSHCNE)
    25. Marshal.FreeCoTaskMem(pPIDL) ' <- erst nach SHChangeNotifyRegister freigeben
    26. 'CoTaskMemFree(pPIDL) ' <- API CoTaskMemFree durch Marshal.FreeCoTaskMem ersetzt.
    28. End If
    30. Return hSHNotify
    32. End Function
    Mfg -Franky-

    @-Franky- SHChangeNotifyRegister() knallt, das ist vor Deiner Änderung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich glaube der letzte Parameter von SHChangeNotifyRegister() muss als ByRef übergeben werden,

    Edit: Und laut codeproject.com/Articles/3054/Shell-Notifications-in-C muss man beim ​DllImport-Attribut noch den EntryPoint manuell setzen, das könnte man evtl. auch noch probieren.

    -Franky- schrieb:

    Ich verstehe Deine Aussage jetzt so,
    Nö.
    Du hast Code geändert, der im Code nach der Exception steht, also noch gar nicht ablief.
    @nafets Jou, hier stehts auch:
    docs.microsoft.com/en-us/windo…re-shchangenotifyregister
    ====
    @-Franky- Also:
    Stecken SD-Adapter: Keine Reaktion.
    Stecken SD-Karte in Adapter: Wird angezeigt. 8o
    Abmelden SD-Karte: Keine Reaktion.
    Abziehen SD-Karte: Keine Reaktion.
    Stecken USB-Stick: Keine Reaktion.
    Abmelden USB-Stick: Keine Reaktion.
    Abziehen USB-Stick: Keine Reaktion.
    Fazit:
    Da wäre noch was zu tun. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RodFromGermany“ ()

    Hi

    @nafets Letzter Parameter ByRef kann sein. Wenn man es aber genau nimmt, müsste im letzten Parameter ein Array von SHChangeNotifyEntry übergeben werden. Da hier aber nicht mehrere Sachen überwacht werden (Laufwerksüberwachung und Überwachung eines Ordner zB. gleichzeitig), geht es auch so. In VB6 hab ich das ByVal und Übergebe einen Pointer auf das erste Element vom SHChangeNotifyEntry-Array. Das mit dem EntryPoint #2 war zu Zeiten als die API SHChangeNotifyRegister noch nicht offiziell von MS dokumentiert war bzw. es den Einsprungspunkt mit Namen "SHChangeNotifyRegister" in der Shell32.dll noch nicht gab. Man konnte diese Funktion aber schon über deren Ordinalzahl #2 aufrufen.

    @RodFromGermany Stecken SD-Adapter/Abmelden SD-Karte (CardReader auswerfen!)/Stecken USB-Stick usw: Keine Reaktion. Jupp weil nur SHCNE_MEDIAREMOVED und SHCNE_MEDIAINSERTED überwacht werden und nicht ob ein Laufwerk entfernt oder hinzugefügt wurde. Du kannst ja, falls Du das auch haben möchtest, noch SHCNE_DRIVEADD und SHCNE_DRIVEREMOVED hinzufügen. Ich hab das weggelassen weil im Ausgangspost vom "Einstecken von SD Karte erkennen" die Rede war. Stecken SD-Karte in Adapter: Wird angezeigt. Na dann läuft doch mein Code. ;) Dann sollte auch das rausziehen der SD-Karte aus dem CardReader angezeigt werden solange der CardReader selbst noch nicht ausgeworfen wurde.
    Mfg -Franky-

    -Franky- schrieb:

    Wenn man es aber genau nimmt, müsste im letzten Parameter ein Array von SHChangeNotifyEntry übergeben werden

    Ja, da hast du Recht. Effektiv macht es aber, wenn man nur ein Element übergibt, keinen Unterschied, ob man die Elementanzahl auf 1 setzt und den einen Eintrag per ByRef übergibt oder man alternativ die Elementzahl und ein Array (das dann ByVal) übergibt - am Ende wird bei beidem ein Pointer auf das erste Element übergeben.

    -Franky- schrieb:

    weil nur SHCNE_MEDIAREMOVED und SHCNE_MEDIAINSERTED überwacht werden
    Mag sein. Allerdings gehört da ein Hinweis hin, dass, wenn andere Mitglieder da mehr überwachen wollen, dass da und da das und das eingetragen werden muss.
    Manchmal lasse ich andere für mich denken. :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Amelie Poste mal die Deklaration der Proedur.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Amelie Nicht schreiben, dass Du Änderungen gemacht hast, sondern welche. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende