Source Code Login Form

Private Sub cmdlogin_Click()
If txtusername.Text = "" Then
MsgBox "Username Masih Kosong!!!", vbInformation, "Masukan Username"
Else
cmdlogin.Enabled = False
txtusername.Enabled = False
cmdlogin.Caption = "Please wait..."
Timer2.Enabled = True
End If
End Sub

Private Sub Form_Load()
Timer2.Enabled = False
End Sub


Private Sub Timer1_Timer()
Text3.Text = Inet1.OpenURL("http://domain anda.com/data/data-nama.php?e=" + txtusername.Text)
Text4.Text = Inet2.OpenURL("http://domain anda.com/data/data-password.php?e=" + txtusername.Text)
Text5.Text = Inet3.OpenURL("http://domain anda.com/data/login.php?e=" + txtusername.Text)
End Sub

Private Sub Timer2_Timer()
If Text5.Text = "Tidak Terdaftar" Then
MsgBox "Username/password tidak terdaftar", vbInformation, "info"
Timer2.Enabled = False
Else
If txtpassword.Text = Text4.Text Then
If Text5.Text = "Password Tidak Benar" Then
MsgBox "Password Salaht", vbInformation, "info"
Timer2.Enabled = False
Timer2.Enabled = False
Else
If Text5.Text = "aktif" Then
MsgBox "Selamat datang , " & vbCrLf & "========================" & vbCrLf & "Nama: " & Text3.Text & vbCrLf & "========================", vbInformation, "Information"
Form2.Show
Form2.Label2 = Text3.Text
Me.Hide
Timer2.Enabled = False
End If
End If
Else
MsgBox "Username/Pasword Salah", vbInformation, "info"
Timer2.Enabled = False
End If
End If
End Sub