[SourceCode + Projeto] VB.NET Sistema De Login Com MySQL

Olá Galerinha! Hoje Vim Posta Um Projeto Simples Que Foi Meu Primerio
Quando Eu Comecei a Aprender VB.NET
Um Sistema De Login Com Servidor MySQL Para Cheka Uma Table Para
Verifica Se o Usuário Esta Permitido Ou Não a Usar o Cheat, Hacks e Etc...

Foi Postar Abaixa a Source Para Vocês Verem Como é Facíl
Logo Depois Abaixa Link Do Projeto.

SourceCode:
'//Sistema Básico De Login VB.NET Com Servidor MySQL
'//Criado Por UnrealSkill-VIP - Primeiro Sistema De Login
'//Site:www.UnrealSkill-VIP.com.br
'//Skype:Hackanonymous-AllHax
'//
'//COMO USAR ?
'//Primeiramente Tenha Um Pequena Conhecimento De VB.NET
'//Logo Depois Crie Seu DB Em Qualquer Site Que Oferece o Serviço FREE
'//Organize as Tabelas e Logo Após Configure No Loader Suas Definições
'//De Connecção!
'//
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Public Class Form1
Dim MySqlConnection As MySqlConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MySqlConnection = New MySqlConnection
MySqlConnection.ConnectionString = "server=HOST;Port=PORTA; user id=LOGIN; password=SENHA; database=SELECT SUA DATABASE"
MySqlConnection.Open()

Dim Myadapter As New MySqlDataAdapter
'Dim sqlquary = "SELECT * From Users WHERE NOME DA TABELA='" & UsernameTextBox.Text & "'AND Password='" & PasswordTextBox.Text & " ';"
Dim sqlquary = "SELECT * From Users WHERE Username='" & UsernameTextBox.Text & "'AND Password='" & PasswordTextBox.Text & " ';"
Dim command As New MySqlCommand
command.Connection = MySqlConnection
command.CommandText = sqlquary
Myadapter.SelectCommand = command
Dim Mydata As MySqlDataReader
Mydata = command.ExecuteReader
If Mydata.HasRows = 0 Then
MsgBox("Login e Senha Incorretos! Verifique Se o Servidor Esta Online") 'mensagem de login,senha ou servidor Down
Else
Form2.Show() 'login e senha se baterem ele libera a form com o VIP ou hack desejado seu!
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Download Link:

http://unrealskill-v...ill-vip-loader/

Créditos: UnrealSkill-VIP