On error döngüsü kurma

[acar6783]

Kolay gelsin,

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

       On Error GoTo yeniden1

       ...kodlar

Yukarıdaki kodda ...kodlar yazan bölüm bazı durumlarda debug hatasına düşüyor. Debuga basıp tekrar kaldığı yerden çalıştırdığımda hatasız işlem devam ediyor.
Hata vermesinin sebebei bekleme süresinin 3 saniye yetmediği durumlarda oluşuyor.Saniyeyi uzatmayacağım. Alternatif olarak yetmediği durumlarda hata olduğunda yeniden1 yazan kodu ekledim fakat başarısız oldum. Alternatif öneriniz var mıdır?

 

[askm]

Bekleme süresini uzatın. Anlaşılan istenilen veri 3 sn de yüklenmiyor.

 

[acar6783]

Demiştim ama saniyeyi uzatmayacağım diye

 

[acar6783]

Yüklenen veri değilde internet sayfası %90 süre yetiyor ama arada debuga düşüyor. Hataya düşmesin fazla da beklemesin.Döngüsel oradaki kodlar tekrar çalışsın diye planlıyorum.
int sayfası yüklemesi için
While .Busy Or .readyState <> 4: DoEvents: Wend
Kodları var ama bu da işimi görmüyor.

 

[halit3]

kodların tamamını ekliyebilirmisiniz.

 

[askm]

Kodlarınızı ya da siteyi paylaşırsanız ie yöntemi ya da xmlhtml yöntemi ile çözüm olabilir belki.

 

[acar6783]

Kodlarım bu şekilde.
Siteye kullanıcı adı parola ile giriş yapıyor.
Sonra dropdown listeden 100adet olanı seviyor.
İndir butonuna basıp çıkan mesaja ok butonuna bastırıyorum.

Sub giriş2()
   
    Dim IE As Object
    Dim address As String
'On Error GoTo ErrMsg
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "https://*****"
       Application.Wait (Now + TimeValue("0:00:03"))
        .document.getElementsByTagName("INPUT")(0).Value = "*****"
        .document.getElementsByTagName("INPUT")(1).Value = "*****"
        .document.getElementsByTagName("BUTTON")(0).Click
        While .Busy Or .readyState <> 4: DoEvents: Wend
               
        .Navigate "https://******"
      'On Error Resume Next
    While .Busy Or .readyState <> 4: DoEvents: Wend

Set elem = .document.getElementsByName("inboxList_length")(0)
        Set myOpt = elem.getElementsByTagName("option")(3)
        myOpt.Selected = True
        Set chng = .document.createEvent("HTMLEvents")
        chng.initEvent "change", True, False
        myOpt.dispatchEvent chng
       
          Application.Wait (Now + TimeValue("0:00:10"))
     While .Busy Or .readyState <> 4: DoEvents: Wend
"""""""""""""""""""""""
      Set elems = .document.getElementsByClassName("iCheck-helper")
yeniden:
For Each e In elems
a = a + 1
If a > 1 Then
     e.Click
End If
If e.Click = False Then GoTo yeniden
Next e

  Application.Wait (Now + TimeValue("0:00:05"))
For Each B In .document.getElementsByTagName("a")
    If B.innerText = "PDF İndir" Then B.Click
        Next
     
     .document.getElementsByTagName("BUTTON")("btnAlertModalOk").Click
    End With

'ErrMsg:

'MsgBox "Hata:" & Err.Number & " ( " & Err.Description & " )"
'On Error GoTo çık
'IE.Quit: giriş
'çık:
Set IE = Nothing
End Sub

 

[halit3]

7 nolu mesajınızdaki bu kod yarine

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

bunu dene

Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop

 

[acar6783]

Denedim fakat sitenin yüklenmesi sanırım çok Zaman alıyor o yüzden burada takılıyor.
Yani sitede misal kullanıcı adı parola ekranı açılıyor fakat bu kod çalıştığında kodlar şifre girme kodlarına geçmiyor.

 

[halit3]

ie nin hangi sürümü yüklü internet explorer 11 yüklü olması lazım

 

[acar6783]

Aynen onu da güncellemek için baya uğraştım

 

[halit3]

bu durumda web sayfası adresi olmadan bir şey söylemek zor

 

[acar6783]

site giriş adresibu şekilde
https://i-donusum.com.tr/portal/

 

[halit3]

Kodlar ile ilgili F8 tuşunu adım adım ilerledim buraya kadar çok hızlı bir şekilde geldi.

Sub giriş2()

Dim IE As Object
Dim address As String
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "https://i-donusum.com.tr/portal/"
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop

.document.getElementsByTagName("INPUT")(0).Value = "deneme"
.document.getElementsByTagName("INPUT")(1).Value = "123456"
.document.getElementsByTagName("BUTTON")(0).Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend

devamını tabiki çalıştıramadım çünkü kullanıcı adı ve şifresi hatalı

işletim sistemi windows 8.1 64 bit ve ie explorer 11

 

[acar6783]

Ben de denedim fakat parola ekanı gelmesine rağmen sayfanın tamamen yüklenmesini bekliyor.

Kodlar arasına koşullar ekleyerek kodu tekrar ettiremezmiyiz?
İşyerimdeki pcde denemiştim kendimce olumlu sonuç aldım gibi .
Her bir işlemi ayrı bir modüle yazdım. Koşul koydum gerekli şartlar sağlanmazsa kod bir daha çalışsın diye.
Sağlıklı olur mu bilmem ama bu konuyu da ona istinaden açmıştım.

 

[halit3]

Eklediğim dosyaları indir ve rar dan çıkart ekran görüntüsünü ekledim F8 de çok hızlı çalışıyor.

 

[askm]

Siz en iyisi pdf dosyanın olduğu sayfanın kodlarını ya da sayfayı farklı kaydederek kendini buraya ekleyin. Pdf dosyasının arka kısımlarda linki varsa buton yerine direkt linkden dosya indirilir.

 

[acar6783]

Eklediğim dosyaları indir ve rar dan çıkart ekran görüntüsünü ekledim F8 de çok hızlı çalışıyor.

Dosya arşiv hasarlı uyarısı verdi.Kontrol edemedim.

 

[acar6783]

Siz en iyisi pdf dosyanın olduğu sayfanın kodlarını ya da sayfayı farklı kaydederek kendini buraya ekleyin. Pdf dosyasının arka kısımlarda linki varsa buton yerine direkt linkden dosya indirilir.

Ektetüm site içeriği mevcuttur

 

[halit3]

Dosya arşiv hasarlı uyarısı verdi.Kontrol edemedim.

rar dosyalarının ikisinide aynı yere indir ve rar'ın içinden dosyayı çıkartın.
ben eklemiş olduğum rar dosyalarını indirdim bir sıkıntı yok