vb.net USB komuta kod

açılabilir açılamaz

if else

diyorki vb.nette iki buton al.
birini açma diğerini kapa tuşu yap.
tuşlarada kodu yapıştır,böylece yazma koruması olur.
anlamadıysan sana özelden anlatırım

jakoba99' Alıntı:

açılabilir açılamaz

if else

Genişletmek için tıkla ...

Hocam

deneme.txt var ise USB erişim tm

deneme.txt yok ise USB erişim sağlayamasın...

İf yani turkce de eğer anlamında.
İF kelimesini kullanarak yapabilirsin programını
Saygılar..

CYBERhackers09' Alıntı:

İf yani turkce de eğer anlamında.
İF kelimesini kullanarak yapabilirsin programını
Saygılar..

Genişletmek için tıkla ...

hocam if else sorun değil

sorun usb erişim nasıl engelliyeceğimiz

şifre koy

SCK4721' Alıntı:

şifre koy

Genişletmek için tıkla ...

hocam şifre değilll

Ya USB erişim kesemiyormuyuz ?

Imports System.Runtime.InteropServices

Private Const WM_DEVICECHANGE As Integer = &H219
Private Const DBT_DEVICEARRIVAL As Integer = &H8000
Private Const DBT_DEVTYP_VOLUME As Integer = &H2

'Device information structure
Public Structure DEV_BROADCAST_HDR
Public dbch_size As Int32
Public dbch_devicetype As Int32
Public dbch_reserved As Int32
End Structure

'Volume information Structure
Private Structure DEV_BROADCAST_VOLUME
Public dbcv_size As Int32
Public dbcv_devicetype As Int32
Public dbcv_reserved As Int32
Public dbcv_unitmask As Int32
Public dbcv_flags As Int16
End Structure

'Function that gets the drive letter from the unit mask
Private Function GetDriveLetterFromMask(ByRef Unit As Int32) As Char
For i As Integer = 0 To 25
If Unit = (2 ^ i) Then
Return Chr(Asc("A") + i)
End If
Next
End Function

'Override message processing to check for the DEVICECHANGE message
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_DEVICECHANGE Then
If CInt(m.WParam) = DBT_DEVICEARRIVAL Then
Dim DeviceInfo As DEV_BROADCAST_HDR
DeviceInfo = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_HDR)), DEV_BROADCAST_HDR)
If DeviceInfo.dbch_devicetype = DBT_DEVTYP_VOLUME Then
Dim Volume As DEV_BROADCAST_VOLUME
Volume = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_VOLUME)), DEV_BROADCAST_VOLUME)
Dim DriveLetter As String = (GetDriveLetterFromMask(Volume.dbcv_unitmask) & ":")
If IO.File.Exists(IO.Path.Combine(DriveLetter, "test.txt")) Then
'<<<< The test file has been found >>>>
MessageBox.Show("Found test file")
Else
'<<<< Test file has not been found >>>>
MessageBox.Show("Could not find test file")
End If
End If
End If
End If
'Process all other messages as normal
MyBase.WndProc(m)
End Sub

Bu kodu kendine göre düzenlersen USB'yi halledebilirsin. Labeli yapabilirsin diye düşünüyorum.

Hocam yanlış anlamadıysam usb takılınca ekran gelsin istiyorsun galiba.Bunun için özelden mesaj at susma engelim var atamıyorum

açıldığı anda geri kapatsın yada usb ye erişimi kapattıysan usbyi çıkartsın program otomatik

Nasıl işte o kod olmadı...

Ya usb içinde deneme.txt varsa bişi olmasın ancak

usb içinde deneme.txt yok ise usb erişim olmasın yani bir nevi görmesin...