Hallo,
ich habe ein Programm geschrieben, der überprüft ob die HWID vom Benutzer gleich einer HWID die in einem Textfile auf einem Server liegt.
Die zwei Werte sind exakt gleich, jedoch gibt mir mein Programm in der Messagebox "No" wieder.
Ich bitte um Hilfe
ich habe ein Programm geschrieben, der überprüft ob die HWID vom Benutzer gleich einer HWID die in einem Textfile auf einem Server liegt.
Code:
Option Compare Text
Option Explicit On
Imports System.Management
Public Class Form1
Dim hardwareid As String
Dim daten As String
Public Sub idscan()
Try
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each wmi_HD As ManagementObject In searcher.Get()
hardwareid = ((wmi_HD("SerialNumber")).ToString())
Next
Catch ex As Exception
End Try
End Sub
Public Sub check()
If hardwareid = daten Then
MsgBox("Yes")
Else
MsgBox("No")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
idscan()
daten = AxInet1.OpenURL()
check()
End Sub
End Class
Die zwei Werte sind exakt gleich, jedoch gibt mir mein Programm in der Messagebox "No" wieder.
Ich bitte um Hilfe