Notes

Kod Olan Yerler Belli Olsun Diye Başına [code] Sonuna da [/code] koydum forumdaki gibi.

Öncelikle Mantığı:
Veritabanına Bağlanıp verileri ordan alıyor.

Declerationsa(En üste)
[code]Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Management [/code]
yazıyoruz.
Load Kısmına
[code]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[/code]
Yazıyoruz.
Sonra 1 passtxt ve usertxt adında textbox yapıyoruz.
Ardından Giriş Butonuna:
[code]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[/code]
Ve Veritabanımıza :[code]



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

INSERT INTO `users` VALUES (aktif, '[email protected]', 'USER', 'PASS', 'Tarih - 00:00:00', '127.0.0.1');
[/code]
Bunu İmportluyoruz.

Ve veritabanından USer vs Ekleyerek kullanıyoruz Zamanım olursa user eklemek için özel program yazar paylasırım :D
Hepinize Kolay Gelsin

Tamamen Orjinal kendi Anlatısım :D

Bir Rep Yeter :D

Hadi Eyvallah
Size ücretsiz veritabanı sitesi önerisi

db4free.net

[color=#FFFFE0]
Bu Konu Hileturk.net Conquerordan Alıntıdır.[/color]