Hallo,
ich möchte einen USB-Stick wie einen Schlüssel bzw. Dongle verwenden. Damit möchte ich Spielereien an einem meiner Programme vorbeugen. Ich habe schon einige Beiträge dazu gelesen, aber nichts passendes gefunden.
Ich weiß auch, dass ich das Ganze in eine Funktion packen sollte, aber darum geht es mir jetzt erstmal nicht.
Im Code verwende ich die Stelle "If pd.Value IsNot Nothing Then". Dadurch soll es, wenn pd.Value Daten enthält - 'ichbins' auf true setzen, andernfalls auf false.
Leider wird mir die Variable 'ichbins' immer auf false gesetzt, ich vermute, weil pd.value ein Array ist...
Doch auch, wenn ich z.B. den letzten Eintrag im Array abfrage, ändert es nichts und 'ichbins' bleibt false.
ich möchte einen USB-Stick wie einen Schlüssel bzw. Dongle verwenden. Damit möchte ich Spielereien an einem meiner Programme vorbeugen. Ich habe schon einige Beiträge dazu gelesen, aber nichts passendes gefunden.
Ich weiß auch, dass ich das Ganze in eine Funktion packen sollte, aber darum geht es mir jetzt erstmal nicht.
Im Code verwende ich die Stelle "If pd.Value IsNot Nothing Then". Dadurch soll es, wenn pd.Value Daten enthält - 'ichbins' auf true setzen, andernfalls auf false.
Leider wird mir die Variable 'ichbins' immer auf false gesetzt, ich vermute, weil pd.value ein Array ist...
Doch auch, wenn ich z.B. den letzten Eintrag im Array abfrage, ändert es nichts und 'ichbins' bleibt false.
VB.NET-Quellcode
- Public ichbins As Boolean = False
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim PID As String = ""
- Try
- Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where interfacetype = 'USB'")
- For Each mo As ManagementObject In mos.Get()
- For Each pd As PropertyData In mo.Properties
- If pd.Value IsNot Nothing Then
- PID = Convert.ToString(pd.Value)
- ListBox1.Items.Add(pd.Value)
- If pd.Name = "PNPDeviceID" Then
- If PID.Contains("AB1446315100&0") Or
- PID.Contains("7&23420A39&0&_&0") Or
- PID.Contains("0013729B6877BB4106390154&0") Then
- ichbins = True
- End If
- End If
- Else
- ichbins = False
- End If
- Next
- Next
- Catch ex As Exception
- End Try
- End Sub