Skip to main content

AccessTr.neT


Web sitesine otomatik giriş

Web sitesine otomatik giriş

Çözüldü #13
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
Cevapla
Çözüldü #14
Yardım edebilecek kimse yokmu Img-cray
Cevapla
Çözüldü #15
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.
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.
Cevapla
Çözüldü #16
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.
Cevapla
Çözüldü #17
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.
Cevapla
Çözüldü #18
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task