PDA

View Full Version : تشخیص اتصال usb جدید



hossein-khoshseyar
سه شنبه 27 مرداد 1388, 10:55 صبح
دوستان کسی می دونه که چه طور می شه وقتی که یه usb جدید به سیستم وصل شد بر نامه ما از اون مطلع بشه و حتی وقتی usb قطع شد برنامه بفهمه

hossein-khoshseyar
سه شنبه 27 مرداد 1388, 16:22 عصر
کسی نبود ؟؟؟:افسرده::افسرده::افسرده:

hossein-khoshseyar
شنبه 07 شهریور 1388, 10:18 صبح
تو رو خدا یکی جواب بده ضروریه

milad.biroonvand
شنبه 07 شهریور 1388, 11:04 صبح
سلام ، رو اين كار كن حتما به نتيجه مي رسي

داخل تايمر بنويس

، اين كد ناقصه ولي سعي كن كاملش كني ! هر وقت كاملش كردي خبرم كن



Static RemCount As Byte
Dim Tmp1 As Byte
Tmp1 = RemCount
Dim MyDrives() As DriveInfo = DriveInfo.GetDrives()
Dim SingleDrive As DriveInfo
For Each SingleDrive In MyDrives
If SingleDrive.DriveType = Removable And SingleDrive.Name <> "A:\" And SingleDrive.Name <> "B:\" Then
RemCount = RemCount + 1
End If
Next
If RemCount > Tmp1 Then
MsgBox("Removable Drive Add !!! ")
End If

milad.biroonvand
پنج شنبه 12 شهریور 1388, 10:55 صبح
سلام ، می تونی به این تابیک سر بزنی ، یه پرژه درست کردم


http://www.barnamenevis.org/forum/showthread.php?p=795917&posted=1#post795917