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ş
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:
Vermiş olduğunuz adreste giriş butonunun Submit olayında input komutu yerine resim kullanılmış olduğundan:
ekledik. Peki buradaki
- 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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Yanlış bölümde sorulduğu için kaldırılmıştır.Teşekkürler.
Son Düzenleme: 19/10/2010, 09:46, Düzenleyen: durkheim.
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.
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.
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.sn durkheim,
[Uyarı Puanı: +2]
tarayici.Document.getElementById("giris").submit
kodu yerinetarayici.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...
Son Düzenleme: 18/10/2010, 16:56, Düzenleyen: durkheim.
Konuyu Okuyanlar: 2 Ziyaretçi