Bağlantıları görmek için lütfen
Giriş Yap
Bağlantıları görmek için lütfen
Giriş Yap
Textbox Ayarları:
ReadyOnly = True
TextAlign = Center
Dosya Ekle:
Project>Add Reference>.NET>System Management Ekle
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
Form_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 Buton Ekle:
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
Linklabel (Yenile) Ekle:
Dim a As New Net.WebClient
RichTextBox1.Text = a.DownloadString("HWİD Dosyası Adresi")
TextBox1.Text = GetHWID() + My.Computer.Name
HWİD Onayla
Process.Start("Kodu Onaylatmak İçin Size Ulaşabilceği Link Koyun.")
Bağlantıları görmek için lütfen
Giriş Yap
