web sorgularını sıra ile çalıştırmak

[harziyan]

formuma bir web sayfası yerleştirdi. butonlara da sırası ile önce web sayfasınıaç, şifre gir, sonraki sayfaya geç, sonraki sayfaya geç gibisinden kodlar yerleştirdim. bütün bu işlemleri ayrı butonlarla yapıyorum. tek butonla bu işi çözeyim dedim. şu şekilde bir sorunla karşılaştım.

örneğin web sayfasını aç ve şifre gir kodlarını birleştirdiğimde sayfa açılmadan şifre gir kodu da aktif hale geldiğinden hata verdi. ben istiyorum ki şifre girme kodu, web sayfasının sifre girme bölümü açıldıktan sonra çalışsın. yani önce web sayfası açılsın daha sonra şifre girme bölümü aktif hale gelsin ve sonra şifre gir kodu çalışsın. acep nasıl yapılabilir (veya yapılabilr mi)?

Private Sub çksaç_Click()
WebBrowser1.Navigate (çksadresi.Value)
şifre.Enabled = True
End Sub

Private Sub şifre_click()
Set nm = WebBrowser1.Document.all.Item("username")
nm.Value = "deneme"
Set ps = WebBrowser1.Document.all.Item("password")
ps.Value = "deneme"
Set gir = WebBrowser1.Document.all.Item("cmdlogin")
gir.Click
sorgu.Enabled = True
End Sub

 

[Levent Menteşoğlu]

Bununla ilgili hazır bir komut varmı bilmiyorum ama, önce sayfanın açılmasını bekleyip ondan sonra diğer komutların çalışması sağlanabilir bunun içinde araya bir bekleme komutu ilave edilebilir, örneğin aşağıdaki satır 5 sn bekleme sağlar.

Application.Wait Now + TimeValue("00:00:05")

Yada webbrowserin uygun bir olayına bir kod yazılabilir. (WebBrowser1_NavigateComplete2 gibi)

 

[harziyan]

Yada webbrowserin uygun bir olayına bir kod yazılabilir. (WebBrowser1_NavigateComplete2 gibi)

birinci söylediğiniz yöntem işimi görebilir. ikinci yöntem için de biraz açıklama yaparsanız sevinirim.

 

[Haluk]

Internet Explorer (IE)' nin ReadyState özelliğini kontrol ederek yapabilirsiniz ...

http://www.excel.web.tr/showthread.php?t=16877

 

[harziyan]

bakalım becerebilecek miyiz?