[Yardım]  WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#21)  erseldemirel2 » 26 Kas 2019 15:51

websiteyi açma imkanım olmadığı için pek birşey diyemiyorum. o sebeple hız olayına bakamadım

ama aşağıdaki kodlar combobox ve check için uygulanabilirmi deneyin. sayfa kaynağında 3.ddlSinifSube ve checkbox true işlemleri

Kod: Tümünü seç
eOkul.WebBrowser1.Document.getelementbyID("ddlSinifSube")(3).Options(1)
----
Set Element = IE.document.getElementById("chkbx")
    Element.Checked = True
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Soru

İleti#22)  Mesut Topal » 26 Kas 2019 16:58

erseldemirel2 yazdı:websiteyi açma imkanım olmadığı için pek birşey diyemiyorum....

Evet, sizi bu konuda sıkıntıya soktuğumun farkındayım Hocam. [uzgun]

Yinede yardımlarınız ile bayağı ilerleme katettim.
ChckBox işaretleme kodu istediğim gibi güzel çalıştı, çok sağolun. Ama sınıf seçmede hala işlem yapmıyor.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Soru

İleti#23)  Ozan İLGÜN » 26 Kas 2019 18:44

Mesut Topal yazdı: eOkul.WebBrowser1.Navigate ("https://e-okul.meb.gov.tr/OrtaOgretim/OKL/OOK00001.aspx")
eOkul.WebBrowser1.Navigate ("https://e-okul.meb.gov.tr/OrtaOgretim/OKL/OOK07003.aspx")


Kod: Tümünü seç
eOkul.WebBrowser1.Navigate ("https://e-okul.meb.gov.tr/OrtaOgretim/OKL/OOK00001.aspx")
Do until eOkul.WebBrowser1.readystate=4
Doevents
Loop
Do while eOkul.WebBrowser1.busy
Doevents
Loop
eOkul.WebBrowser1.Navigate ("https://e-okul.meb.gov.tr/OrtaOgretim/OKL/OOK07003.aspx
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#24)  Mesut Topal » 26 Kas 2019 18:58

Teşekkürler Ozan Hocam. Güzel çalışıyor.

Web sayfasındaki ComboBox da nasıl seçim yapabiliriz?
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#25)  erseldemirel2 » 26 Kas 2019 19:00

siteye görsem deneyerek bulurdum ama deneyin acaba olurmu


Kod: Tümünü seç
make = WebBrowser1.Document.GetElementById("ddlSinifSube")
make.SetAttribute("selectedIndex", 3)
WebBrowser1.Update()
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Soru

İleti#26)  Ozan İLGÜN » 26 Kas 2019 19:02

Mesut Topal yazdı:Teşekkürler Ozan Hocam. Güzel çalışıyor.

Web sayfasındaki ComboBox da nasıl seçim yapabiliriz?

Kodları cepten tahmini olarak yazdığım için görmeden bilemem. Yarın unutmazsam yardımcı olmaya çalışırım. Dosyanın son halini mail atar mısınız. Mahsuru yoksa?
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#27)  Mesut Topal » 26 Kas 2019 19:58

WebBrowser ın bulunduğu userform u ayırıp yükleyeyim Hocam.

Mevcut programımda 84 sheet, 20 UserForm, 23 modül, 124 Procedure ve 17.000 civarında kod satırı var.
Temizleyip ilgili kısmı yükleyeyim.
Hata vermemesi için bağlantıları kesmek biraz zaman alacak.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#28)  Mesut Topal » 26 Kas 2019 21:41

Dosyayı hazırladım Hocam.
Şimdiden çok teşekkürler.
En son Ozan İLGÜN tarafından, 27 Kas 2019 07:26 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Dosya kişisel güvenlik nedeniyle kaldırıldı.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#29)  Ozan İLGÜN » 27 Kas 2019 07:30

Yanlış Kullanıcı adı veya Şifresi Girdiniz. Lütfen Tekrar Deneyiniz. Sonra şifrelere baktım ve nedeni gördüm. :)

Şifreyi bilmezsem nasıl giriş yapabilirim ki . Şöyle yapalım ,siz bana combobox'ın olduğu sayfanın kodlarını verin. Ben kodu size vereyim. Gerekli yere yerleştirin.
Çünkü combobox seçim olayının ardında bir çok olay var. Olayı javascript ile tetikliyorlarsa nasıl tetiklediklerini bilmem lazım.

Normal şartlarda combobox diye adlandırdığınız şey select elementidir ve şu kod yeterli olur.
Kod: Tümünü seç
WebBrowser1.Document.GetElementById("ddlSinifSube").SetAttribute("value",1)
WebBrowser1.Document.GetElementById("ddlSinifSube").RaiseEvent("onchange")
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#30)  Mesut Topal » 27 Kas 2019 11:49

Üstadım :) e-Okul şifresi olduğu için paylaşmam yasak.
Ekteki dosyada ComboBox ın olduğu sayfanın kodları var.
name="Us_SinifSube1$ddlSinifSube" şu ComboBox ın ismi
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Soru

İleti#31)  Ozan İLGÜN » 29 Kas 2019 08:34

Bu şekilde denediniz mi?
Kod: Tümünü seç
WebBrowser1.Document.GetElementById("Us_SinifSube1_ddlSinifSube").SetAttribute("value",5797419)
WebBrowser1.Document.GetElementById("Us_SinifSube1_ddlSinifSube").SetAttribute("selectedIndex", 3)
WebBrowser1.Document.GetElementById("Us_SinifSube1_ddlSinifSube").RaiseEvent("onchange")


Ya da bu şekilde?
Kod: Tümünü seç
WebBrowser1.Document.getElementById("Us_SinifSube1_ddlSinifSube").Value = "5797419"
WebBrowser1.Document.parentWindow.Window.execScript "="__doPostBackUSR('" & "ddlSinifSube" & "');"
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#32)  Mesut Topal » 30 Kas 2019 19:14

Teşekkürler Üstadım Sınıf Seçimi yapıyor. şkşk

Şimdi şöyle bir durum var: Sitede ComboBox değişince sayfada bir olay tetikleniyor. (Sayfa yenilenir gibi)
Sonra listele deyince sınıfı listeliyor.
Ama kullandığımız bu kod ile ComboBox değişmesine rağmen olay tetiklenmiyor.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#33)  Ozan İLGÜN » 30 Kas 2019 21:27

İkisini de denediniz mi? Altta ki kod çalışmalıydı.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#34)  Mesut Topal » 30 Kas 2019 21:43

WebBrowser1.Document.GetElementById("Us_SinifSube1_ddlSinifSube").RaiseEvent("onchange")

bu satırın etkisi olmadı Üstadım
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#35)  Mesut Topal » 30 Kas 2019 22:10

WebBrowser1.Document.parentWindow.Window.execScript "="__doPostBackUSR('" & "ddlSinifSube" & "');"
bu satırda da metinsel hata var. Kırmızı uyarı veriyor.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#36)  Ozan İLGÜN » 30 Kas 2019 22:20

Combobox'ın olduğu sayfada sağ tıklayıp incele'yi seçin. Ctrl +F basıp __doPostBackUSR yazısını aratın. Her sonuç için ekran görüntüsünü eklerseniz sevinirim. Kaynak kodlara yansıdığı şekilde yapmaya çalıştım.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#37)  Mesut Topal » 30 Kas 2019 22:43

Teşekkürler Ozan Hocam.
Zahmet verdim.

1.tif


2.jpg
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#38)  Mesut Topal » 30 Kas 2019 22:44

1.jpg
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Soru

İleti#39)  Ozan İLGÜN » 02 Arl 2019 10:22

WebBrowser1.Document.parentWindow.Window.execScript "__doPostBackUSR(" & chr(39) & "ddlSinifSube" & chr(39) & "," & chr(39) & chr(39) & ");"
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: WebBrowser Nesnesinde "captcha" Görünmeme Sorunu

İleti#40)  Mesut Topal » 03 Arl 2019 08:01

Teşekkürler Üstadım. Harika çalıştı.

Not giriş ekranını açmak için kullandığım kodlar şöyle:

Private Sub CommandButton1_Click()
On Error Resume Next
NotListesi = Array("chkS1", "chkS2", "chkS3", "chkS4", "chkS5", "chkS6", "chkSZL1", "chkSZL2", "chkSZL3", "chkSZL4", "chkSZL5", "chkSZL6", "chkTPU")
SeçilenSınıf = UserFormYükleSET.Cells(11, 2).value
SeçilenSınav = UserFormYükleSET.Cells(10, 2).value
'Sınıf Seç(Çalışıyor)
eOkul.WebBrowser1.Document.getelementbyID("Us_SinifSube1_ddlSinifSube").Options(SeçilenSınıf - 1).Selected = True
'ComboBox değişiklik olayı (Çalışıyor)
WebBrowser1.Document.parentWindow.Window.execScript "__doPostBackUSR(" & Chr(39) & "Us_SinifSube1_ddlSinifS...

Burada beklemesi gerekiyor. Busy methodu yada wait methodu işe yaramadı

'Sınav Seç (Çalışıyor)
eOkul.WebBrowser1.Document.getelementbyID(NotListesi(SeçilenSınav)).Checked = True
'Ders Seç (Çalışıyor)
eOkul.WebBrowser1.Document.getelementbyID("ddlDersler").Options(1).Selected = True
'Listele Butonu (Çalışıyor)
eOkul.WebBrowser1.Document.getelementbyID("btnListele").Click
End Sub
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 460
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

ÖncekiSonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe