Web sitesine otomatik giriş - Baskı Önizleme

Web sitesine otomatik giriş - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Web sitesine otomatik giriş (/konu-web-sitesine-otomatik-giris.html)

Sayfalar: 1 2 3

Cvp: Web sitesine otomatik giriş - golgeee - 12/10/2010

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

Cvp: Web sitesine otomatik giriş - golgeee - 14/10/2010

Yardım edebilecek kimse yokmu Img-cray

Cvp: Web sitesine otomatik giriş - alpeki99 - 14/10/2010

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.

Cvp: Web sitesine otomatik giriş - durkheim - 18/10/2010

Yanlış bölümde sorulduğu için kaldırılmıştır.Teşekkürler.

Cvp: Web sitesine otomatik giriş - ozanakkaya - 18/10/2010

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.

Cvp: Web sitesine otomatik giriş - durkheim - 18/10/2010

Sayın sledgeab çok özür dilerim. Kusura bakmayın.Bir daha tekrarlanmayacak.Cevabınız için teşekkürler...