acil yardım WebBrowser.ocx

[gulsum1]

WebBrowser.Document.getElementById("IOMToolbarActive1_kaydet_b").Click


WebBrowser.Document.getElementById("btnBilgiGetir").Click

ekte verdiğim belgede kaydet butonunu bulamıyorum

yaptığım programda webbrovser.ocx kullandım bütün bilgileri atıyorum
WebBrowser.Document.getElementById("btnBilgiGetir").Click
bununla bilgileri getiriyotum ama kaydetme butonun ismini bulamadığımdan
WebBrowser.Document.getElementById("kaydetmebutonunisminingeleceğiyer").Click
buraya web ve accessden birlikte anlayan arkadaşlardan yardım talebi

 

[modalı]

Sayın gulsum1,

İlgili konuyu inceledim. Kaydet fonksiyon olarak çalışıyor. Yani, resmin yerleştirildiği hücreyi tıklama ile çağrılıyor fonksiyon. Ancak bu alana isim verilmemi ve ID si var o zaman sayın serkandemirci arkadaşımızın sorduğu sorudaki cevabımda nasıl kullanıldığını anlattım.

Buradaki asıl sorun form üstünde yerleştirilmiş 5 adet görünmez metin kutusu. Birincisinin değeri 21 (dönemi veriyor) Ancak diğer dör tane görünmez metin kutusunun fonksiyonunu bilirsek çalıştırabiliriz. Yani alana klikle dediğimizde bu görünmez alanlar ne değer alıyorlarsa bunlarıda belirtmemiz gerekir. Biz formu sanal olarak bilgisayarımızda açıyoruz. O yüzden kayıt sırasında tüm bilgilerin doğru olarak gönderilmesi gerekiyor.

iyi çalışmalar

 

[gulsum1]

cevap

ben sanal açmıyorum WebBrowser ile açıyorum yani formu access üzerinde açıyorum









Private Sub Form_Load()
WebBrowser.Navigate2 "http://e-okul.meb.gov.tr/"



End Sub




Private Sub Komut3_Click()
Dim UserID As String


UserID = Metin4.value


WebBrowser.Document.getElementById("txtTCKimlikNoGetir").value = UserID
WebBrowser.Document.getElementById("btnBilgiGetir").Click


End Sub

Private Sub Komut8_Click()
Dim snf As String
Dim PsWd As String
Select Case Metin9
Case "1-A"
snf = "369871"
Case "1-B"
snf = "369872"
Case "1-C"
snf = "369873"
Case "1-D"
snf = "369874"
Case "1-E"
snf = "369875"
Case "1-F"
snf = "369876"
Case "2-A"
snf = "369877"
Case "2-B"
snf = "369878"
Case "2-C"
snf = "369879"
Case "2-D"
snf = "369880"
Case "2-E"
snf = "369881"
Case "2-F"
snf = "369882"
Case "2-G"
snf = "369883"
Case "3-A"
snf = "369884"
Case "3-B"
snf = "369885"
Case "3-C"
snf = "369886"
Case "3-D"
snf = "369887"
Case "3-E"
snf = "369888"
Case "3-F"
snf = "369889"
Case "4-A"
snf = "369890"
Case "4-B"
snf = "369891"
Case "4-C"
snf = "369892"
Case "4-D"
snf = "369893"
Case "4-E"
snf = "369894"
Case "5-A"
snf = "369895"
Case "5-B"
snf = "369896"
Case "5-C"
snf = "369897"
Case "5-D"
snf = "369898"
Case "6-A"
snf = "369899"
Case "6-B"
snf = "369900"
Case "6-C"
snf = "369901"
Case "6-D"
snf = "369902"
Case "7-A"
snf = "369904"
Case "7-B"
snf = "369905"
Case "7-C"
snf = "369906"
Case "7-D"
snf = "369907"
Case "8-A"
snf = "369908"
Case "8-B"
snf = "369909"
Case "8-C"
snf = "369910"
Case "8-D"
snf = "369911"

End Select


PsWd = Metin6.value
WebBrowser.Document.getElementById("ddlSinifiSubesi").value = snf
WebBrowser.Document.getElementById("txtOkulNo").value = PsWd
WebBrowser.Document.getElementById("IOMToolbarActive1_kaydet_b").OnClick

End Sub

kodlar bunlar ama sorun kaydet olayı işte kaydetmiyor sadece kaydet düğmesinin ismi lazım

 

[zfr19]

eğer element isimleri yoksa, element sıraları ile click yapabilirsin.

WebBrowser.document.forms(0).elements(5).Click

gibi olabilir. Buradaki 0 ve 5 rakamlarını size göre değiştirin. Örnek, O sayfada ilk <form> ise, forms(0) olacaktır. Element numarası ise, 0 ncı form içinde Kaydet butonu kaçıncı element oluyorsa 0 dan başlayarak sayın.

 

[modalı]

Sayın gülsüm1,

Az önce de söyledim. 5 adet görünmez metin kutusu var. Onların yaptığı işi çözemezsek hal olmaz. Diğer uygulamalardan biliyorum.

Örneğin telefon no sorgularkan birtakım böyle görünmez kutular var ve değer alıyorlar. Bu değerleri bulamazsanız ilerleyemezsiniz.

Serkan beyin açtığı başlıkdaki yazışmayı takip ederseniz en sonunda hatalardan arındığını görürsünüz ama kayıt işlemi gerçekleşmiyor çünkü eksik parametre gönderiliyor.

İyi çalışmalar

 

[gulsum1]

cevap

Private Sub Komut3_Click()

WebBrowser.Document.all("IOMToolbarActive1_kaydet_b").Click
WebBrowser.Document.all("Form1").submit
WebBrowser.Document.all("hiddenKaydet").value = "Kaydet"
End Sub

cevap bu gizli olan alana bu yazılıyor

 

[Kural]

benim input alanlarına değerlerimi yazdıramamak

benim bu tarz bir web sayfasında uzantısı .js dir. Bu sayfada ki input box lara veri girişiini yapamadım. örnek uygulamayı koyarsanız bizlerde faydalanırız...

 

[hüsün]

bilen arkadaşlarımız vardır ancak ben yinede hem hatırlatmak hemde ipucu mahiyetinde olması açısından;
mozilla firefox (bendeki 2.0.0.3 TR) üzerinde ilgili sayfanın üzerinde sağ tıklayıp açılan menüde Sayfa Bilgilerini Göster 'e tıkladığınızda ilgili sayfaya ait tüm bilgileri görebilirsiniz yada ikinci olarak web developer toolbar eklentisini kurabilirsiniz.