VBA ile web sayfası komutları

[bmutlu966]

Arkadaşlar selam,

Bir web sitesinde bazı bilgiler indirmek istiyorum. Belli bir yere kadar geldim. Sitenin istediği kullanıcı ismi şifre gibi bilgileri aşağıdaki kodlarla girip sitenin ana sayfasına giriyorum. Burada sol tarafta aşağıdaki resimlerde gördüğünüz gibi Javascript ile kodlanmış menüler var. Bu menülere tıklama kodunu bir türlü beceremedim.

Aşağıda mouse ile Ödemeler butonuna geldiğimde yanda yine menüler açılıyor. Ödemeler butonunun link bilgileri de aşağıdaki gibi. Nasıl bir kod yazmalıyım ki buna tıklayabileyim.
Sanırım sayın @Asri bu konulara hakim olabilir. Yardımlarınızı bekliyorum.

Sub Web()

On Error Resume Next
Dim i As Long
Dim url, id, veri As String
Dim objIE As SHDocVw.InternetExplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim htmlinput As MSHTML.HTMLInputElement
Dim htmlcool As HTMLElementCollection

url = [B5]
id = [A10]

Set objIE = New SHDocVw.InternetExplorer

With objIE
    .navigate url
    .Visible = True
    Do While .readystate <> 4: DoEvents: Loop
    Application.Wait (Now + TimeValue("0:00:02"))

    Set HTMLdoc = .document
   
    HTMLdoc.getElementById("ctl00_c_CorporateIdentityTextBox").Value = [B8]
    HTMLdoc.getElementById("ctl00_c_CorporatePinTextBox").Value = [B9]
    HTMLdoc.getElementById("ctl00_c_CorporateUserNameTextBox").Value = [B10]
    HTMLdoc.getElementById("ctl00_c_CorporateLoginButton").Click
   
    Application.Wait (Now + TimeValue("0:00:20"))
   
    HTMLdoc.getElementById("ctl00_c_BtnLogin").Click
   
  'Ödemeler butonuna tiklama kodu
   
   
   


End With

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

Set objIE = Nothing
Set HTMLdoc = Nothing

End Sub

 

[bmutlu966]

Aslında Trafik ödemeleri /OGS/HGS menüsüne tıklamak istiyorum. Onun link kodları da aşağıdaki gibi.

<a href="javascript:;" class="icn-link" onclick="AsyncPost.Redirect('/Navigationcontroller.aspx?landingPage=true&amp;menuid=1258');" data-menu-id="1258"><i class="sub-icn icon-trafik-odemeleri"></i>Trafik Ödemeleri / OGS / HGS</a>
<i class="sub-icn icon-trafik-odemeleri"></i>
"Trafik Ödemeleri / OGS / HGS"
</a>

 

[askm]

Direkt HTMLdoc.getelementsbyclassname("icon-trafik-odemeleri")(0).click
Yapınca olur sanırım.

 

[bmutlu966]

Direkt HTMLdoc.getelementsbyclassname("icon-trafik-odemeleri")(0).click
Yapınca olur sanırım.

Maalesef olmadı. Sanırım aşağıdaki örneğe benzer bir kod gerekiyor. Denedim ama bir yerde hata yapıyorum sanırım.

Dim anc As HTMLAnchorElement
For Each anc In ie.document.getElementById("ctl00_cphMaster_Results").getElementsByTagName("a")
    If anc.href = "javascript:__doPostBack('ctl00$cphMaster$Results','ResultNumber$0')" Then
       anc.click
    End If
Next anc