Belgenet Diyanet Sitesinden Form Doldurma

  • Konuyu başlatan Konuyu başlatan okan32
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Tarihe göre sırala Oylamaya göre sırala
Yazdığınız link bende açılmıyor. linkin test olanı ile denedim.

VBA: 
Sub loginolmak()

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "https://belgenettest.diyanet.gov.tr/edys-web/"
ie.Visible = True

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

ie.Document.all.Item("eForm:txtEKullaniciAdi").Value = Range("C2") 'kullanıcı
ie.Document.all("loginESifre").Value = Range("D2") 'şifre
ie.Document.all("eForm:egirisYapButton").Click

End Sub
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst