Sonuç bulana kadar döngü kurmak

[acar6783]

Merhabalar,
Aşağıdaki kodlarda nerede hta yapıyor olabilirim?
web browser işleminde ilk başta Set gen1007
tanımlamanadığı için kod hataya düşüyor fakat belirli bir süre (internet hızınagöre ) sonra bu set tanımı gerçekleşiyor.

İşte burada ben bir döngü kurup set olayı gerçekleşene kadar beklemeliyim.Tabi buna süre de ekleyebilirim sonrasında.

X = 0
 Do Until gen1007 <> Empty
  On Error GoTo atla
  X = X + 1
 Set gen1007 = HTML.querySelector("input[id=gen__1007]")
atla:
 Loop

not:
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
bu ve benzeri kodlar işe yaramıyor.

 

[veyselemre]

Selenium da kullandığım kodlar uyarlamayı deneyin.

      t = Timer
        Do
            DoEvents
            On Error Resume Next
            Set arama = .FindElementByXPath("//*[@id='side']/div[1]/div/label/div/div[2]")
            On Error GoTo 0
            If Timer - t = 10 Then Exit Do
        Loop While arama Is Nothing

 

[acar6783]

Selenium da kullandığım kodlar uyarlamayı deneyin.

      t = Timer
        Do
            DoEvents
            On Error Resume Next
            Set arama = .FindElementByXPath("//*[@id='side']/div[1]/div/label/div/div[2]")
            On Error GoTo 0
            If Timer - t = 10 Then Exit Do
        Loop While arama Is Nothing

denedim fakat işaretli satırda hata aldım. Daha önce de benzer bir kod denemiştim fakat başarılı olamamıştım.
Son care foruma yazmak istedim. Yöntem doğru fakat bir yerde atlıyoruz sanırım

Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
  Set HTML = IE.Document
t = Timer
        Do
            DoEvents
            On Error Resume Next
            Set arama = HTML.querySelector("input[id=gen__1007]")
            On Error GoTo 0
            If Timer - t = 10 Then Exit Do
        Loop While arama Is Nothing

 

[acar6783]

arama = ""
t = Timer
        Do
            DoEvents
            On Error Resume Next
            Set arama = HTML.querySelector("input[id=gen__1007]")
            On Error GoTo 0
            If Timer - t = 10 Then Exit Do
        Loop While arama = ""

Sanırım bu şekilde oldu test edip bilgi vereceğim