[VB.NET Problem]HWID vergleich für Bot

Form1.Show()

Option Explicit On

Imports System.Net
Imports System.Text
Imports System.Threading
Imports System.Management
Imports System.Security.Cryptography

Public Class Form1

    Public Function MD5Hash(ByVal strString As String) As String
        Dim MD5 As New MD5CryptoServiceProvider
        Dim Data As Byte()
        Dim Result As Byte()
        Dim Res As String = Nothing
        Dim Tmp As String = Nothing

        Data = Encoding.ASCII.GetBytes(strString)
        Result = MD5.ComputeHash(Data)
        For i As Integer = 0 To Result.Length - 1
            Tmp = Hex(Result(i))
            If Len(Tmp) = 1 Then Tmp = "0" & Tmp
            Res += Tmp
        Next
        Return Res
    End Function

    Public Function get_hwid()
        Dim strProcessor As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
        For Each info In search.Get()
            strProcessor = info("processorId".ToString)
        Next
        Return strProcessor
    End Function

    Public Function get_active_hwid()
        Dim schutz As String = Nothing
        Dim hash_schutz As String = Nothing
        schutz = get_hwid()
        hash_schutz = MD5Hash(schutz)
        Dim wc As New WebClient
        Dim server As String
        server = wc.DownloadString("http://localhost/hwid/hw.id")
        wc.Dispose()
        If server.Contains(hash_schutz) Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Control.CheckForIllegalCrossThreadCalls = False
        Me.load_bot_settings()
        Me.Hide()
        get_active_hwid()
        If get_active_hwid() = True Then
            Me.Show()
            Form2.Hide()
        ElseIf get_active_hwid() = False Then
            Me.Hide()
            Form2.Show()
        End If

    End Sub

    Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
        SaveSetting("barmaniabotsettings", "BotSettings", "Mixing", GhostCheckbox1.Checked)
        SaveSetting("barmaniabotsettings", "BotSettings", "Shopping", GhostCheckbox2.Checked)
        SaveSetting("barmaniabotsettings", "BotSettings", "SaveUserdata", GhostCheckbox3.Checked)
        If GhostCheckbox3.Checked = True Then
            SaveSetting("barmaniabotsettings", "Userdata", "Username", GhostTextBox1.Text)
            SaveSetting("barmaniabotsettings", "Userdata", "Password", GhostTextBox2.Text)
        Else
            SaveSetting("barmaniabotsettings", "Userdata", "Username", "")
            SaveSetting("barmaniabotsettings", "Userdata", "Password", "")
        End If
    End Sub

    Private Sub load_bot_settings()
        GhostTextBox1.Text = GetSetting("barmaniabotsettings", "Userdata", "Username")
        GhostTextBox2.Text = GetSetting("barmaniabotsettings", "Userdata", "Password")
        GhostCheckbox1.Checked = GetSetting("barmaniabotsettings", "BotSettings", "Mixing")
        GhostCheckbox2.Checked = GetSetting("barmaniabotsettings", "BotSettings", "Shopping")
        GhostCheckbox3.Checked = GetSetting("barmaniabotsettings", "BotSettings", "SaveUserdata")
    End Sub
End Class

Control.CheckForIllegalCrossThreadCalls = False

If get_active_hwid() [B]= True[/B] Then