İnternet Explorer checkbox tıklama sorunu

[bmutlu966]

Arkadaşlar selam,

Aşağıda sarı işeretlediğim checkbox a tıklamak istiyorum. Bu checkbox a tıkladığımda aşağıdaki tüm checkboxlar seçiliyor. Ancak bir sürü farklı kod denememe rağmen bir türlü buraya tik atamıyorum.

ilgili alanın kodu aşağıdaki gibi.

<TABLE style="WIDTH: 2820px" border=0 cellSpacing=0 cellPadding=0><THEAD>
<TR class=x-grid3-hd-row>
<TD class="x-grid3-hd x-grid3-cell x-grid3-td-checker x-grid3-cell-first" style="WIDTH: 18px">
<DIV class="x-grid3-hd-inner x-grid3-hd-checker" id=ext-gen850 unselectable="on">
<A class=x-grid3-hd-btn href="#"></A>
<DIV class=x-grid3-hd-checker>&nbsp;</DIV>
<IMG class=x-grid3-sort-icon alt="" src="/Ext.Net/extjs/resources/images/gray/s.gif"></DIV></TD>

<DIV class=x-grid3-hd-checker>&nbsp;</DIV>

tıklamam gereken yukarıdaki class başka hiç bir yerde geçmiyor. Buna rağmen aşağıdakine benzer yazdığım bir çok kod çalışmadı.

ie.Document.getElementsByClassName("x-grid3-hd-checker")(1).Checked = True

For Each row_div In IE.document.getElementsByTagName("div")
            If row_div.className = "x-grid3-hd-checker" Then
            row_div.Checked = True
            row_div.Click
            End If
        Next

Bildiğiniz bir yöntem varsa yazabilirseniz çok sevinirim.

 

[bmutlu966]

Bir yorumu olan yok mu acaba?

 

[yunus788]

Web sitesini ve tıklamak istediğiniz bölümü belirtirseniz yardımcı olmak daha kolay olur.

 

[bmutlu966]

Web sitesi E- Fatura portalı ve şifreli giriş olduğu için link veremiyorum. Ancak gerekli alanların kodlarını ilk mesajımda ve resimlerde belirtmiştim.

 

[Mehmet Şahin]

Merhaba,

row_div.Checked = True

kodundan önce,

row_div.unselectable="off"

gibi birşey deneyebiliyor musunuz?

 

[bmutlu966]

Çalışmadı

Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdSHow As Long) As Long

Sub E_Fatura_portali()


On Error Resume Next
    
    Set IE = CreateObject("internetexplorer.application")
    ShowWindow IE.hWnd, 3
    
    With IE
        .navigate "https://portal.isisbilisim.com.tr/Login.aspx"
        .Visible = True
        Do While .readyState <> 4: DoEvents: Loop
        .document.getElementById("txtUserName").Value = [B8].Value
        .document.getElementById("txtPassword").Value = [B9].Value

'Giris tusuna basilincaya kadar bekler
    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until

    '.document.getElementById("ibGiris").Click' giris

'GELEN FATURALAR
    .navigate "https://portal.isisbilisim.com.tr/Pages/Inbox/ReceivedInvoiceList.aspx"
    Do While IE.readyState = 4: DoEvents: Loop   'Do While

  Application.Wait (Now + TimeValue("0:00:08"))

'CHECK ATMA
  
   For Each row_div In .document.getElementsByTagName("div")
            If row_div.className = "x-grid3-hd-checker" Then
            row_div.unselectable = "off"
            row_div.Checked = True
            row_div.Click
            End If
        Next
    
    
End With
  
Set IE = Nothing

End Sub

 

[Mehmet Şahin]

Merhaba,

row_div.unselectable = "off"

ifadesini
aktif ve pasif yaparak aşağıdaki kodu
dener misiniz?

   For Each row_div In .document.getElementsByTagName("div")
            If row_div.className = "x-grid3-hd-checker" Then
            row_div.unselectable = "off"
            row_div.Checked = True
            row_div.FireEvent ("onclick")
            While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
            exit for
            End If
        Next

 

[bmutlu966]

Maalesef çalışmadı.

Manuel olarak checkbox a tıkladığımda

<div class="x-grid3-hd-inner x-grid3-hd-checker" unselectable="on" style="" id="ext-gen755">

şeklindeki class satırı

<div class="x-grid3-hd-inner x-grid3-hd-checker x-grid3-hd-checker-on" unselectable="on" style="" id="ext-gen755">

şeklinde değişiyor. Buradan bir şey çıkartabilir miyiz bilemiyorum.

 

[bmutlu966]

Sanırım olay checkbox ın unselectable özelliği ile ilgili bir durum.

aşağıdakileri de denedim olmadı.

Call Replace$(.document.getElementClassName("x-grid3-hd-inner x-grid3-hd-checker").innerHTML, "unselectable=""on""", "unselectable=""off""")
Call .document.getElementClassName("x-grid3-hd-inner x-grid3-hd-checker").setAttribute("unselectable", "off")

 

[Mehmet Şahin]

Çalışma zamanı içinde, nesneleri watch window penceresinde inceleyip, çözümü kendiniz bulabilirsiniz. Sgk ve İşkur sayfaları ile çok uğraştım.
Bazı incelemeler gerçekten sabır ve dikkat istiyor. Umarım çözersiniz, iyi çalışmalar.

 

[bmutlu966]

İlginiz için teşekkürler. Bu sitede buraya gelinceye kadar birçok bölümü çözdüm. Burada takıldım. Bazen ara verip farklı bir gözle bakmak gerekiyor.

 

[bmutlu966]

Sayın @Haluk bu konuda beni yönledirebileceğiniz veya araştırabileceğim bir yöntem var mı acaba?

 

[Haluk]

Deneme şansım olmadığı için birşey diyemeyeceğim ...

.

 

[bmutlu966]

Teşekkürler.

 

[excelokyanus500]

Geç oldu lakin farklı şekillerde denemekte fayda var.

Not düşmek için buraya yazıyorum.

IE.Document.Forms(0).All(""x-grid3-hd-checker").Value = "on"

Veya

for each element in IE.Document.getelementsbytagname("div")
    if element.getattribute("className") = " x-grid3-hd-checker " then
        Msgbox “Bulundu”
        Element.click
       Exit For

    end if
next

Veya

IE.Document.getElementByID("ext-gen850").click

Veya

IE.Document.getElementByID("ext-gen850").Checked = True

Veya

IE.Document.getElementsByClassName("x-grid3-hd-checker").Checked = True

Veya


Checkbox kontrol
Set CheckBox = IE.Document.getElementsByTagName("input")
    For Each idnumber In CheckBox
       ‘ If (idnumber.getAttribute("value") = idvalue) Then
            idnumber.Click
            Exit For
        ‘End If
 Next

 

[bmutlu966]

Geç oldu lakin farklı şekillerde denemekte fayda var.

Not düşmek için buraya yazıyorum.

IE.Document.Forms(0).All(""x-grid3-hd-checker").Value = "on"

Veya

for each element in IE.Document.getelementsbytagname("div")
    if element.getattribute("className") = " x-grid3-hd-checker " then
        Msgbox “Bulundu”
        Element.click
       Exit For

    end if
next

Veya

IE.Document.getElementByID("ext-gen850").click

Veya

IE.Document.getElementByID("ext-gen850").Checked = True

Veya

IE.Document.getElementsByClassName("x-grid3-hd-checker").Checked = True

Veya


Checkbox kontrol
Set CheckBox = IE.Document.getElementsByTagName("input")
    For Each idnumber In CheckBox
       ‘ If (idnumber.getAttribute("value") = idvalue) Then
            idnumber.Click
            Exit For
        ‘End If
Next

İlginiz için teşekkürler. Hepsini denedim yine tik atmadı. Aslında Class elementi buluyor. Ben sorunun

<div class="x-grid3-hd-inner x-grid3-hd-checker" unselectable="on" style="" id="ext-gen755">

satırındaki unselectable="on" satırının off durumuna getirilmesi olarak görmeye başladım.