Sanal click

[Nedim]

Merhaba;

Buton tıklama ile ilgili çokça konu açılmış ama hiç biri ile çözüm bulamadım.
Görseldeki Next butonuna tıklama gerçekleştirmek istiyorum ama maalesef yapamadım.
Class "s-pagination-item-next-button" sabit sadece Href içindeki bilgiler her seferinde farklı geliyor. 


Next butonuna tıklamayı nasıl yapabilirim?

        IDoc.Close;
        I := 0;
        aDIVtags := IDoc.All.Tags('div');
        IDivSay := IDoc.Body.All.Tags('div').Length;
        while I < IDivSay do
        begin
          aClassName := aDIVtags.Item(I).ClassName;
          if SameText(aClassName, 'a-text-center-s-pagination-container') then
          begin
            aTableRows := aDIVtags.Item(I).All.Tags['span'];
            for iRow := 0 to aTableRows.Length - 1 do
            begin
              aTableCols := aTableRows.Item(iRow).All.Tags['a'];
              for iCol := 0 to aTableCols.Length - 1 do
              begin
                if SameText(aTableCols.Item(iCol).ClassName, 's-pagination-item-next-button') then // Link Next
                begin
                  SearchBoxHavuz.Text := BreakOff(aTableCols.Item(iCol).Href + 'about:', 'about:', 'about:');
                  ShowMessage(aTableCols.Item(iCol).InnerTEXT);
                  Sleep(3750);
                  I := 0;
                  Exit;           
                end;

[mrmarman]

Link Next dediğiniz yerde NEXT butonu geldiğini teyit edebiliyorsanız

Kod: (Select All)

aTableCols.Item(iCol).Click;

denediniz mi ?