Web sayfasındaki BASKETBOLA Tıklama.

[Orion1]

Merhaba.
Aşağıdaki yazdığım kodlarla web sitesindeki BASKETBOL a tıklamak istiyorum.
Link:
http://betistuta.com/OAF.aspx

#If Win64 Then
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If

Sub iddia59()
Dim URL As String
Dim i As Long
Dim ie As Object, t, l, chk_ulke, chk_tumu, chk_tkm, chk_lig
Dim x As Variant, sh As Worksheet, k
'On Error Resume Next
Range("A:A").Clear
URL = "http://betistuta.com/OAF.aspx"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
.Visible = 1
ShowWindow ie.hwnd, 6
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Application.Wait (Now + TimeValue("00:00:03"))
'Set k = ie.Document.getElementsByTagName("table").Item(2)
'Set k = ie.Document.getElementbyid("a.ct100_MainContentFull_Menu1_1.ct100_MainContentFull_Menu1_3")
End With
End Sub

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Sub iddia59()
  Dim URL As String
  Dim i As Long
  Dim ie As Object, t, l, chk_ulke, chk_tumu, chk_tkm, chk_lig
  Dim x As Variant, sh As Worksheet, k
  'On Error Resume Next

  Range("A:A").Clear
  URL = "http://betistuta.com/OAF.aspx"
  Set ie = CreateObject("InternetExplorer.Application")
  With ie
    .Navigate URL
    .Visible = 1
    ShowWindow ie.hwnd, 6
    Do Until ie.ReadyState = 4: DoEvents: Loop
    Do While ie.Busy: DoEvents: Loop
    Application.Wait (Now + TimeValue("00:00:03"))

    Set objCollection = ie.document.getElementsByTagName("a")
    i = 0
    Do While i < objCollection.Length
       If objCollection(i).innertext = "Basketbol" Then
          objCollection(i).Click
          Application.Wait Now + TimeSerial(0, 0, 3)
          Exit Do
        End If
        i = i + 1
    Loop
  End With
End Sub

 

[Orion1]

Sayın asri oldu.
Teşekkür ederim.
Aşağıdaki a yı nasıl buldunuz?

Set objCollection = ie.document.getElementsByTagName("a")

 

[Asri]

Sayın asri oldu.
Teşekkür ederim.
Aşağıdaki a yı nasıl buldunuz?

Set objCollection = ie.document.getElementsByTagName("a")

Tıklanacak bilgi hangi HTML tagı arasında ise ona göre yazılır.

<td style="white-space:nowrap;">[SIZE=5][B]<a[/B] [/SIZE]class="ctl00_MainContentFull_Menu1_1 ctl00_MainContentFull_Menu1_3" href="OAB.aspx">Basketbol[SIZE=5][B]</a>[/B][/SIZE]</td>

 

[Orion1]

Tıklanacak bilgi hangi HTML tagı arasında ise ona göre yazılır.

<td style="white-space:nowrap;">[SIZE=5][B]<a[/B] [/SIZE]class="ctl00_MainContentFull_Menu1_1 ctl00_MainContentFull_Menu1_3" href="OAB.aspx">Basketbol[SIZE=5][B]</a>[/B][/SIZE]</td>

Sayın asri,Teşekkür ederim.

 

[Erdem Akdemir]

Merhaba,

href adresinde yazan "OAB.aspx" kısmını aşağıdaki gibi değiştirir ve tekrar Navigate yaparak'ta başlıklara tıklayabilirsiniz.

"http://betistuta.com/OAF.aspx"

 

[Orion1]

Merhaba,

href adresinde yazan "OAB.aspx" kısmını aşağıdaki gibi değiştirir ve tekrar Navigate yaparak'ta başlıklara tıklayabilirsiniz.

"http://betistuta.com/OAF.aspx"

Sayın kuvari;
Açıklamanız için teşekkür ederim.