Son 3 konuda da aynı kodları kullanmam gerekti))Bir fonksiyon yazın ve kodların arasına yerleştirin.
Kod:
Public Sub Bekle(süre As Double)
Dim baslama
baslama = Timer
Do While Timer < baslama + süre
DoEvents
Loop
End SubKod:
Private Sub Komut84_Click()
WebBrowser1.Navigate2 "https://kps.nvi.gov.tr/Mernis.KPS.Web.UI/QueryResidanceAddressFromIdentificationNumber.aspx"
End Sub
bekle(4)
Private Sub Komut83_Click()
WebBrowser1.Document.All("inputList_ctl01_input0").Value = Me.TC
WebBrowser1.Document.All("ctlList").Click
End Sub
bekle(5)
Private Sub Komut87_Click()
WebBrowser1.Document.getElementById("Grid_ctl02_Imagebutton1").Click
End SubBu arada belirteyim ki daha önce buna benzer bir çalışmayı daha farklı bir şekilde yapmıştım. Webden gelen veriyi bir metin kutusuna gönderdim ve o metin kutusunun sıfır ya da null özelliği kalmadığından bu durumu kullanarak if...then ile diğer eylemi başlattım. Sanıyorum tc kimlik doğrulama ile ilgili bir örnekti. Aile hekimliği sayfasını kullanmıştım. "Eskisi çalışmaz" diye arayabilirsiniz.
Kolay gelsin.
