Hilenize HWİD Login Sistemi Ekleyin

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 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

Ve Veritabanımıza :


Kod:
-- 

-- Tablo döküm verisi `users`

-- 


INSERT INTO `users` VALUES (aktif, '[email protected]', 'USER', 'PASS', 'Tarih - 00:00:00', '127.0.0.1');
Evet Bunların Hepsini yaptıktan sonra veritabanına yazdığımız kodları import ediyoruz.


Artık herşey hazır veritabanından user vs ekliyoruz.İnternette User ekleme programları bulunmakta.


+1 Repi Eksik Etmeyin.