C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

ログ内検索

キーワードを複数指定する場合は半角スペースで区切ってください。
検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
[返信]をクリックすると返信ページへ移動します。

キーワード	/	検索条件	/
検索範囲	/	強調表示	/ ON (自動リンクOFF)
結果表示件数	/	記事No検索	/ ON
大文字と小文字を区別する

No.66415 の関連記事表示

ヒット / 11件

<< 0 >>

■66415

　カードリーダーによるSDメモリ利用の監視について

□投稿者/ YY -(2013/04/22(Mon) 13:47:13)

分類:[VB.NET/VB2005 以降]　

こんにちは、お世話になります。

XPpro+VB2008

USBデバイスの検出したくいろいろ調べています。
下記のサンプルコードでは、USBデバイスの抜き差しの検知はできるようになっていますが、
ただし、USBメモリリーダーに挿入しても反応しません。この問題を解決したくご質問させていただきました。
どうぞよろしくお願い致します。
参照URL：
ttp://hcs-papa.seesaa.net/article/169705315.html

サンプルコード-------------ここから-------------------------

Private WM_DEVICECHANGE = &H219
Private Enum DBT As Int32
DBT_DEVICEARRIVAL = &H8000
DBT_DEVICEQUERYREMOVE = &H8001
DBT_DEVICEQUERYREMOVEFAILED = &H8002
DBT_DEVICEREMOVEPENDING = &H8003
DBT_DEVICEREMOVECOMPLETE = &H8004
End Enum
Private Enum DBT_DEVICETYPE
DBT_DEVICETYPE_OEM = &H0
DBT_DEVICETYPE_DEVNODE = &H1
DBT_DEVICETYPE_VOLUME = &H2
DBT_DEVICETYPE_PORT = &H3
DBT_DEVICETYPE_NET = &H4
DBT_DEVICETYPE_DEVICEINTERFACE = &H5
DBT_DEVICETYPE_HANDLE = &H6
End Enum
Public Structure DEV_BROADCAST_VOLUME
Public dbcv_size As UInt32
Public dbcv_devicetype As UInt32
Public dbcv_reserved As UInt32
Public dbcv_unitmask As UInt32
End Structure
Protected Overrides Sub WndProc(ByRef m As _
System.Windows.Forms.Message)
Select Case m.Msg
Case WM_DEVICECHANGE
Dim dbv As New DEV_BROADCAST_VOLUME
dbv = _
Marshal.PtrToStructure(m.LParam, _
GetType(DEV_BROADCAST_VOLUME))
If dbv.dbcv_devicetype = _
DBT_DEVICETYPE.DBT_DEVICETYPE_VOLUME Then
Dim drv As String = ""
drv = getDriveString(dbv.dbcv_unitmask)
Select Case m.WParam.ToInt32
Case DBT.DBT_DEVICEARRIVAL
MessageBox.Show(drv & "を取り付けた！")
Case DBT.DBT_DEVICEREMOVECOMPLETE
MessageBox.Show(drv & "を取り外した！")
Case Else
End Select
End If
Case Else
End Select
MyBase.WndProc(m)
End Sub

Private Function getDriveString(ByVal lParam As Int32) As String
getDriveString = ""
Dim I As Integer
For I = 0 To 25
If lParam And 1 Then
Exit For
End If
lParam >>= 1
Next
If I >= 26 Then
Exit Function
End If
getDriveString = Chr(Asc("A") + I)
End Function
サンプルコード-------------ここまで-------------------------

親記事 /過去ログ112より / 関連記事表示
削除チェック/

■66426

　Re[1]: カードリーダーによるSDメモリ利用の監視について

□投稿者/ shu -(2013/04/23(Tue) 08:30:20)

■No66415 (YY さん) に返信

DriveInfo辺りで取得できないですか？
試してはいません。