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
Yardım edebilecek kimse yokmu
Yardımcı olalım elbette ancak en azından kendi örnek dosyanızı ekleyerek işimizi kolaylaştırabilirsiniz. Neyse gelelim çözüme :
- Kullandığınız Internet Explorer, Firefox vb. tarayıcınızda yukarıda verdiğiniz adresi açın.
- Boş bir alanda farenin sağ tuşuna tıklayarak "Sayfa Kaynağını Görüntüle" (Chrome'da), "Kaynağı Görüntüle" (Internet Explorer'da), "Sayfa Kaynağını Göster" (Firefox'da) sayfanın mevcut kodlarını açın.
- Kaynak içinde type="text" kelimesini aratın. Böylelikle sitedeki metin kutularını bulmuş olacaksınız. name=".............." kısmını bulacaksınız. Noktaların olduğu yer o metin kutusunun adı oluyor. Mesela sizin verdiğiniz sayfada kullanıcı adı name="user_name" kısmı kullanıcı adı kutusunu göstermektedir.
Sizin giriş sayfanızda 3 adet metin kutusu var. Buna göre giriş butonunun kodları şu şekilde olacaktır:
Private Sub btn_bilgileri_gonder_Click()
tarayici.Document.getElementById("user_name").Value = "admin"
tarayici.Document.getElementById("user_pass").Value = "1234567890"
tarayici.Document.getElementById("customer_code").Value = "1234567890"
tarayici.Document.getElementById("giris").submit
End Sub
Vermiş olduğunuz adreste giriş butonunun Submit olayında input komutu yerine resim kullanılmış olduğundan:
tarayici.Document.getElementById("giris").submit
ekledik. Peki buradaki
getElementById("giris")
nereden geldi diye soracak olursanız biraz
Html bilmeniz gerekir derim. Ezber olması açısından söyleyecek olursak yine kaynakta action= diye aratıyoruz. Bulduğumuz satırda name="........" kısmında o formun adı yer alır onu alacağız. Sizde form adı
name="giris"
olduğu için
getElementById("giris")
olarak yazdık.
Yanlış bölümde sorulduğu için kaldırılmıştır.Teşekkürler.
sn golgeee ve sn durkheim, bu konu cipro35 isimli üyenin açıp yanıtlanarak cevaplanmış sorular bölümüne taşınmış bir konu. Lütfen
Site Kurallarına uyunuz.
Alıntı:6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]
sn durkheim,
tarayici.Document.getElementById("giris").submit
kodu yerine
tarayici.Document.Links.Item(0).Click
kodunu kullanmalısın.
Bence web browser olayını bırakıp access'i öğrenmeye çalışın. Uygulamanıza farklı işlevler ekleyin. Web browser olayına hiç girmeyin.
Sayın sledgeab çok özür dilerim. Kusura bakmayın.Bir daha tekrarlanmayacak.Cevabınız için teşekkürler...