Gelişmiş HWİD Giriş Sistemi

Textbox Ayarları
ReadyOnly = True
TextAlign = Center

Project>Add Reference>.NET>System Management Bunu Ekleyin

Public class Form1 Üstüne Ekle
Imports System.Management

Public Class Form1 Altına Ekle
    Dim cpuInfo As String
    Function GetHWID()
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances
        For Each mo As ManagementObject In moc
            If cpuInfo = "" Then
                cpuInfo = mo.Properties("processorID").Value.ToString
                Exit For
            End If
        Next
        Return cpuInfo
    End Function

Public Class Form1 Altına Ekle
    Dim cpuInfo As String
    Function GetHWID()
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances
        For Each mo As ManagementObject In moc
            If cpuInfo = "" Then
                cpuInfo = mo.Properties("processorID").Value.ToString
                Exit For
            End If
        Next
        Return cpuInfo
    End Function

Form1_Load Ekle
        Dim a As New Net.WebClient
        RichTextBox1.Text = a.DownloadString("HWİD Dosyası Adresi")
        TextBox1.Text = GetHWID() + My.Computer.Name

HWİD Sorgula
        Dim a As String = RichTextBox1.Text
        Dim b As String = TextBox1.Text
        If a.Contains(b) Then
            MsgBox("Hwid Onaylı Onaylı. Giriş Başarılı", MsgBoxStyle.Information)
            ' HWİD ONAYLI İSE OLMASINI İSTEDİĞİN İŞLEM YAP BURAYA
        Else
            MsgBox("Hwid Onaylı Değil Onaylatın!.", MsgBoxStyle.Critical)
        End If

HWİD Onaylat B
Process.Start("*********.com.")