# 3 adet "TEXTBOX", 1 adet "WEBBROWSER", 1 adet "COMMONDBUTON" ekleyiniz.
# 1. "TEXTBOX" adı ; kullanici
# 2. "TEXTBOX" adı ; sifre
# 3. "TEXTBOX" adı ; kod
# "WEBBROWSER" adı ; vb
# "COMMONDBUTON" adı ; ok
$ "Forum" koduna ;
Alıntı
vb.Navigate ("SITE-ADRESI")
$ "Commond-Buton" koduna ;
Alıntı
ok.Enabled = False
vb.Document.All.Item("KULLANICI").Value = kullanici.Text
vb.Document.All.Item("SIFRE").Value = sifre.Text
vb.Document.All.Item("submit").Click
(
* "KULLANICI" - "SIFRE" - "SUMBIT" yazılarını sitenize göre ayarlayınız.)
$ "WebBrowser" koduna ;
Alıntı
ok.Enabled = True
kod.Text = vb.Document.body.innerHTML
If InStr(1, kod.Text, "Geçersiz kullanıcı adı veya şifre girdiniz.") Then
MsgBox "Geçersiz kullanıcı adı veya şifre girdiniz. Tekrar Deneyin", vbCritical, "eRRoR!"
kullanici.Text = ""
End If
If InStr(1, kod.Text, "Geçersiz kullanıcı adı veya şifre girdiniz.") Then
MsgBox kullanici.Text & " Geçersiz kullanıcı adı veya şifre girdiniz!", vbCritica, "eRRoR!"
sifre.Text = ""
End If
If InStr(1, kod.Text, "Kullanıcı Paneli") Then
MsgBox "Sayın ;" & kullanici.Text & " Girişiniz doğrulandı! Yönlendiriliyorsunuz Lütfen Beyleyin... ", vbInformation, "oK!"
Unload Me
frmMain.Show
End If
(Program görünümü.)
- Sitenizdeki giriş yapmak için kullandığınız TEXTBOX ve Giriş butonu kodlarıdır. Bu kodları sitenizde bulmak için ;
$ Siteniz > Ctrl+U > Giriş Panelindeki ; Kullanıcı Adı ve Şifre bölümü > Textbox Değeri (Name).
(Bu kısımdaki "username - password - submit" kodları.)
)
