Merhaba değerli bilgiye aç arkadaşlar bugün sizlerle tıklanması zor olan butonların daha doğrusu id olmayan butonlara nasıl tıklandığını anlatacağım yıllardır araştırdığım ve elde etmiş olduğum verileri sizlerle paylaşayım.
Klasik tıklama kodu zaten herkesçe kabul görmüş bir olay.
Şimdi geçelim Ali'lere Veli'lere
Buradaki tıklama kodunu jottiscanner kodlarken bulmuştum. Butona bir türlü tıklamıyordu ben de böyle bir mantık yürüttüm...
Javascript'li bir butona tıklamayı denemişler ancak vb.net'te genel de browser sayfayı açarken hata vermeye başlar ama siz kendinize göre düzenleyebilirsiniz diye düşünüyorum.
Class verisi içerisinde butona tıklatmışlar.
ID'si olmayan herhangi bir butona tıklama için;
Kıymetli kardeşlerim sevgili dostlarım her zaman olduğu üzere siz bu kod dizileri içerisinde yer alan tırnak işareti içerisinde olan yerleri yapmak istediğiniz şeye göre düzenleyeceksiniz. Bildiğiniz üzere ögeyi denetle kısmında görünen veriler yazılır. Umarım yararlı olur hayırlı geceler.
Sıhhatle kalın.
Klasik tıklama kodu zaten herkesçe kabul görmüş bir olay.
Kod:
WebBrowser1.Document.GetElementById("ID").InvokeMember("Click")
Şimdi geçelim Ali'lere Veli'lere
Buradaki tıklama kodunu jottiscanner kodlarken bulmuştum. Butona bir türlü tıklamıyordu ben de böyle bir mantık yürüttüm...
Kod:
For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If Element.OuterHtml.Contains("sample-file") Then
Element.InvokeMember("click")
Exit For
End If
Next Element
Javascript'li bir butona tıklamayı denemişler ancak vb.net'te genel de browser sayfayı açarken hata vermeye başlar ama siz kendinize göre düzenleyebilirsiniz diye düşünüyorum.
Kod:
Dim col As HtmlElementCollection = webBrowser1.Document.GetElementsByTagName("a")
Foreach el As HtmlElement In Col
If el.GetAttribute("href")="javascript:{};" Then
el.InvokeMember("click")
End If
Next
Class verisi içerisinde butona tıklatmışlar.
Kod:
Dim ElementCollection3 As HtmlElementCollection = WebBrowser1.Document.All
For Each Element3 As HtmlElement In ElementCollection3
Element3.GetAttribute("classname").Contains("btn btn-primary")
Element3.GetAttribute("name").Contains("submitButton")
Element3.InvokeMember("click")
Next
ID'si olmayan herhangi bir butona tıklama için;
Kod:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If element.GetAttribute("value") = "Buton_metni" Then
element.InvokeMember("click")
End If
Next
End Sub
Kıymetli kardeşlerim sevgili dostlarım her zaman olduğu üzere siz bu kod dizileri içerisinde yer alan tırnak işareti içerisinde olan yerleri yapmak istediğiniz şeye göre düzenleyeceksiniz. Bildiğiniz üzere ögeyi denetle kısmında görünen veriler yazılır. Umarım yararlı olur hayırlı geceler.
Sıhhatle kalın.