dijital vergi dairesine giriş

[adsoft]

merhaba dijital vergi dairesinde şifre kullanarak excellde giriş yapmak istiyorum

Dijital Vergi Dairesi

Dijital Vergi Dairesi

dijital.gib.gov.tr

link açıldığında
sağ üst köşe "kullanıcı girişi " butonuna tıklanacak

yukardaki açılan sayfada aşağıya doğru gelindiğinde excellde
a1= kullanıcı kodu
b1 = şifre
doğrulama kodunu ben manuel girerim orda kalsın istiyorum yardımcı olursanız sevinirim

 

[adsoft]

yardım edecek kimse yok mu lütfen acill

 

[oguzgun]

yardım edecek kimse yok mu lütfen acill

Merhaba sizin için bir örnek yaptım excel de sendkey kullanılmıştır. Selenium da kullanabilirsiniz.

Sub vGiris()
Dim KullaniciAdi As String
Dim linkAdresi As String

KullaniciAdi = Sheets("Sayfa1").Range("A2").Copy
linkAdresi = Range("C2").Value

ActiveWorkbook.FollowHyperlink Address:=linkAdresi
Application.Wait (Now + TimeValue("00:00:5"))

Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("^+V", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))

End Sub

 

[ermanusta]

Merhaba sizin için bir örnek yaptım excel de sendkey kullanılmıştır. Selenium da kullanabilirsiniz.

Sub vGiris()
Dim KullaniciAdi As String
Dim linkAdresi As String

KullaniciAdi = Sheets("Sayfa1").Range("A2").Copy
linkAdresi = Range("C2").Value

ActiveWorkbook.FollowHyperlink Address:=linkAdresi
Application.Wait (Now + TimeValue("00:00:5"))

Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("^+V", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
'Application.Wait (Now + TimeValue("00:00:02"))

End Sub

bu kodda
Application.Wait (Now + TimeValue("00:00:02"))
yerine başka bir kod kullanabilirmiyiz? yani send key değilde click yapmak istediğimizde yeni sayfanını açılmasını beklemek için manuel bir zaman yerine sayfa açılana kadar bekleme yapabilirmiyiz?