webden güvenlik kodu hk

[chakistes]

merhaba arkadaşlar e-okulda güvenlik kodu aşağıdaki kod ile geliyor fakat webbrowser kullanmadan sadece userform üzerinde image1 e güvenlik kodu gelmesini istiyorum. bu konuda yardıma ihtiyacım var.

WebBrowser1.Navigate ("https://e-okul.meb.gov.tr/OrtaOgretim/OGR/OOG02001.aspx")
Sub güvenlikKoduGöster()
On Error Resume Next
Application.Wait (Now + TimeValue("0:00:01"))
HazırsaÇalıştır "nofonk", "noarg"

Dim imageUrl As String
imageUrl = UserForm1.WebBrowser1.Document.GetElementById("image1").getAttribute("src")

Dim res As String
res = "<img src='" & imageUrl & " '> "
UserForm1.WebBrowser1.Document.getElementsByTagName("span")(5).innerHTML = res
End Sub

 

[Haluk]

Merhaba;

Orada görülen güvenlik kodu esasında bir resim formatında olmadığı için resim olarak alamazsınız.

Sadece aynı UserForm üzerinde başka bir WebBowser nesnesinde tek başına söz konusu güvenlik kodunu görüntüleyebilirsiniz. İmage nesnesini kullanmakla aynı etkiyi yaratmış olursunuz.

.

 

[chakistes]

Cevabın için teşekkür ederim fakat userforma tek güvenlik kodu gelsin istiyorum normalde sayfanın tamamı geliyor

 

[Haluk]

Aynı UserForm'a bir tane daha WebBrowser ekleyin. WebBroser nesnesini Image nesnesine benzetmek için scroll bar'ları da ortadan kaldırabiliriz.

Bunun için kodunuzu aşağıdakileri ilave edin .... WebBrowser2 nesnesinin boyutunu da siz kendinize göre ayarlarsınız.

WebBrowser2.Navigate imageUrl
DoEvents
WebBrowser2.Document.body.setattribute "scroll", "no"

.

 

[chakistes]

denedim fakat güvenlik kodu yeri değil sayfadan bir parça aldı
https://e-okul.meb.gov.tr/ adresine girdiğimde ekrana gelen güvenlik kodunu userformda arka planda farklı bir kod varmı yapabileceğim

 

[Zeki Gürsoy]

Denemedim ama tahminimce, güvenlik kodu tam orta kısımda olduğundan ve kaydırma çubuğu olmadığından, sayıyı göremiyorsunuz.
Bu durumda "WebBrowser2" nesnesini büyütmeniz gerekiyor.

 

[chakistes]

teşekkür ederim ilgilendiğin için başka çözüm araştırayım

 

[chakistes]

teşekkür ederim ilgilendiğin için başka çözüm araştırayım