4 ayrı webbrowser 4 ayrı sorgu

[harziyan]

Ekte sunduğum dosyamda 4 ayrı webbrowser ile 4 ayrı sayfa açılıyor. Ancak sadece ilk açılan sayfada işlem yapılabiliyor. commandbutonlarla sonraki açılan webbrowser öğelerine müdahale edemiyorum. Sizden ricam -tabi mümkünse- form açıldıktan sonra hangi webbrowsera geçersem o anda o webbrowserin aktif olması. yani her sayfada işlem yapabilmek istiyorum. saygılar...

 

[F1]

Her ne kadar gizlesenizde objeler birbirlerinin üstüne geliyor.
Basit bir çözüm olması açısından

Öncelikle webbrowser larınızın temel özelliklerden görünür hale getirin sonra kodları aşağıdaki şekilde değiştirin

Private Sub UserForm_Initialize()
    WebBrowser1.Height = 1: WebBrowser1.Width = 1
    WebBrowser2.Height = 1: WebBrowser2.Width = 1
    WebBrowser3.Height = 1: WebBrowser3.Width = 1
    WebBrowser4.Height = 1: WebBrowser4.Width = 1
    WebBrowser1.Navigate ("http://emek.emekli.gov.tr/EmekNet/")
    WebBrowser2.Navigate ("http://app2.sgk.gov.tr/BagkurEmekliBilgileri/Hizmet.htm")
    WebBrowser3.Navigate ("http://app.sgk.gov.tr/SigortaliHizmet/jsp/tcGir.jsp")
    WebBrowser4.Navigate ("http://cks.tarim.gov.tr")
End Sub
Private Sub CommandButton1_Click()
    WebBrowser1.Height = 1: WebBrowser1.Width = 1
    WebBrowser2.Height = 1: WebBrowser2.Width = 1
    WebBrowser3.Height = 1: WebBrowser3.Width = 1
    WebBrowser4.Height = 443: WebBrowser4.Width = 715
End Sub

Private Sub CommandButton2_Click()
    WebBrowser1.Height = 1: WebBrowser1.Width = 1
    WebBrowser2.Height = 1: WebBrowser2.Width = 1
    WebBrowser4.Height = 1: WebBrowser4.Width = 1
    WebBrowser3.Height = 443: WebBrowser3.Width = 715
End Sub

Private Sub CommandButton3_Click()
    WebBrowser1.Height = 1: WebBrowser1.Width = 1
    WebBrowser4.Height = 1: WebBrowser4.Width = 1
    WebBrowser3.Height = 1: WebBrowser3.Width = 1
    WebBrowser2.Height = 443: WebBrowser2.Width = 715
End Sub

Private Sub CommandButton4_Click()
    WebBrowser4.Height = 1: WebBrowser4.Width = 1
    WebBrowser2.Height = 1: WebBrowser2.Width = 1
    WebBrowser3.Height = 1: WebBrowser3.Width = 1
    WebBrowser1.Height = 443: WebBrowser1.Width = 715
End Sub

 

[harziyan]

Sağolasın F1 kardeşim çok güzel oldu.

 

[baydeniro]

İlginç bir konu.

 

[harziyan]

4 ayrı sayfaya kimlik no gönderme

Sayın hocam dosyaya bir iki ilave yaptım. Yalnız şöyle bir husus var; 3 ayrı sayfadaki kimlik numaralarının yazıldığı kutucuklara 1 defada kimlik numarasını gönderemedim. (zaten güvenlik kodları elle girilecek ama en azından kimlik numarası 1 seferde girilsin) inputbox kullanarak denedim ancak olmadı. yardımlarınız için teşekkürler.

 

[F1]

Kodu aşağıdaki şekilde değiştirirseniz çalışacaktır

Private Sub tcdagit_Click()
z = InputBox("Tc No Gir")
WebBrowser3.Document.All.Item("tckno").Value = z
WebBrowser2.Document.All("tcno").Value = z
WebBrowser1.Document.All.Item("form1:textHakSahipligiTcKimlikNo").Value = z
End Sub

 

[omerceri]

Sn harziyan
Merak ettim niçin tek webdroser yapıp visible değerini true yapıp,

Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("http://emek.emekli.gov.tr/EmekNet/")
End Sub

Private Sub CommandButton2_Click()
WebBrowser1.Navigate ("http://app2.sgk.gov.tr/BagkurEmekliBilgileri/Hizmet.htm")
End Sub

Private Sub CommandButton3_Click()
WebBrowser1.Navigate ("http://app.sgk.gov.tr/SigortaliHizmet/jsp/tcGir.jsp")
End Sub

Private Sub CommandButton4_Click()
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
End Sub
şeklinde kullanmıyorsunuz.

 

[harziyan]

Kodu aşağıdaki şekilde değiştirirseniz çalışacaktır

Private Sub tcdagit_Click()
z = InputBox("Tc No Gir")
WebBrowser3.Document.All.Item("tckno").Value = z
WebBrowser2.Document.All("tcno").Value = z
WebBrowser1.Document.All.Item("form1:textHakSahipligiTcKimlikNo").Value = z
End Sub

tamamdır sayın F1... çok çok teşekkür ederim.

Sn harziyan
Merak ettim niçin tek webdroser yapıp visible değerini true yapıp,

Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("http://emek.emekli.gov.tr/EmekNet/")
End Sub

Private Sub CommandButton2_Click()
WebBrowser1.Navigate ("http://app2.sgk.gov.tr/BagkurEmekliBilgileri/Hizmet.htm")
End Sub

Private Sub CommandButton3_Click()
WebBrowser1.Navigate ("http://app.sgk.gov.tr/SigortaliHizmet/jsp/tcGir.jsp")
End Sub

Private Sub CommandButton4_Click()
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
End Sub
şeklinde kullanmıyorsunuz.

Sayın omerceri; sizin yönteminizde ilk işe başladığımda denediğim yöntemlerdendi. ama o yöntemde her defasında yeniden navigasyon yapılıyordu. 4 ayrı browser kullandığımda ise herbiri ayrı web sayfalarını kontrol ettiği için ve sayfalardaki verileri de birbirleri ile paralel kullandığım için daha pratik oluyor. tüm sayfaları aynı anda kontrol edebiliyorum. Yine de ilginize teşekkür ederim.

 

[harziyan]

Şimdi geriye "captcha" denen şu illet güvenlik doğrulamasını alt edecek bir hacker bulmak kaldı.:tongue: onu da hallettik mi gel keyfim gel. Acaba forumumuzda mevcut mudur böyle bir canavar...