Peki arkadaşlar http://otohasar.isiksigorta.com/loginfrm.php?ml= bu linketeki bilgileri girmek için aşağıdaki yerleri nasıl değiştirmeliyim.
Option Compare Database
Private Sub btn_bilgileri_gonder_Click()
tarayici.Document.getElementById("frmGiris:j_id24:userName").Value = "admin"
tarayici.Document.getElementById("frmGiris:j_id32:password").Value = "1234567890"
tarayici.Document.getElementById("frmGiris:j_id39").Click
End Sub
Private Sub btn_sayfayi_ac_Click()
Dim ie As Object
Set ie = Me.tarayici
tarayici.Navigate "http://otohasar.isiksigorta.com/loginfrm.php?ml="
End Sub
Web sitesine otomatik giriş
Konuyu Okuyanlar: 1 Ziyaretçi