Programınızı Hwid ile Koruyun [Vb.Net] //20071999

ReadyOnly = True
TextAlign = Center

Imports System.Management

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

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

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. Lütfen Hwid'inizi Onaylatınız.", MsgBoxStyle.Critical)
        End If

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

Process.Start("Kodu Onaylatmak İçin Size Ulaşabilceği Link Koyun. ex. [email][email protected][/email]")