HWID'Lİ Login Sistemi Yapımı

Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Management

Dim HWID As String = String.Empty
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
If HWID = "" Then
HWID = mo.Properties("processorID").Value.ToString
End If
Next
hwıd = HWID

Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "Server=serveradı; User Id=username; Password=pass; Database=databaseismi"

conn.Open()
Dim myAdapter As New MySqlDataAdapter
Dim gir = "SELECT * FROM users WHERE username=İ" + usertxt.Text + "İ AND password= İ" + passtxt.Text + "İ"
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = gir
myAdapter.SelectCommand = myCommand
Dim MyData As MySqlDataReader
MyData = myCommand.ExecuteReader
If MyData.HasRows = 0 Then
MsgBox("Kayıt Bulunamadı.Lütfen ID veya Şifreyi Kontrol Edin.", MsgBoxStyle.Critical, "Hata")
Else
conn.Close()
conn.Open()
Dim sqla = "SELECT * FROM users WHERE username=İ" + usertxt.Text + "'AND hwno= İ" + "" + "İ"
myCommand.Connection = conn
myCommand.CommandText = sqla
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
If MyData.HasRows < 0 Then
conn.Close()
conn.Open()
Dim sq = "UPDATE users SET hwno=İ" & hwıd & "İ WHERE username=İ" + usertxt.Text + "İ"
myCommand.Connection = conn
myCommand.CommandText = sq
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
MsgBox("HWID Numaranız Resetlendi.Lütfen Tekrar Girin.", MsgBoxStyle.Information, "Bilgi")
Hack.Show()
Me.Hide()
Else

conn.Close()
conn.Open()
Dim otohwid = "SELECT * FROM users WHERE hwno = İ" + hwıd + "İ"
myCommand.Connection = conn
myCommand.CommandText = otohwid
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
If MyData.HasRows = 0 Then
MsgBox("HWID Numaranız Eşleşmiyor.Lütfen HWID Resetleyin.", MsgBoxStyle.Critical, "Hata")
Else
conn.Close()
conn.Open()
Dim sqld = "SELECT * FROM users WHERE durum=İ" + "aktif" + "İ"
myCommand.Connection = conn
myCommand.CommandText = sqld
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
If MyData.HasRows = 0 Then
MsgBox("Hesabınız Yönetim Tarafından Kapatılmıştır.", MsgBoxStyle.Critical, "Hata")
Else
Hack.Show()
Me.Hide()
End If
End If
End If
End If