İnteraktif Vergi dairesine otomatik giriş

Proiss88 · 9 Mart 2020

interaktif vergi dairesi https://ivd.gib.gov.tr/ adresine girip kullanıcı kodu ve şifreyi otomatik yazan bir uygulama yapmak istiyorum.
a1 kullanıcı kodu b1 şifre olabilir. kendim yapmaya çalıştım fakat site açılınca farlı bir pencere açılıyor "İnteraktif Vergi Dairesi uygulamamızı 5 soru ile değerlendirmek için tıklayınız" ve esas işlem yapılacak siteyi pasife alıyor.
yardımlarınızı rica ediyorum
teşekkür ederim

NADİR YILDIZ · 9 Mart 2020

bende gib e-arşive giriş yapacak bir uygulama istiyorum.

muratboz06 · 10 Mart 2020

Kod:

Sub InteraktifVergiDairesiGiris()
    
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    Dim URL As String
    Dim URL2 As String
    Dim TcNo As String
    Dim Sifre As String
    TcNo = "TC Numaranızı yazınız."
    Sifre = "Şifrenizi yazınız."
    URL1 = "https://giris.turkiye.gov.tr/Giris/gir"
    URL2 = "https://www.turkiye.gov.tr/gib-ivd"
    
    IE.Visible = True
    IE.Navigate URL1
    Do While IE.ReadyState <> READYSTATE_COMPLETE
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    IE.Document.getElementById("tridField").Value = TcNo
    IE.Document.getElementById("egpField").Value = Sifre
    Set Button = IE.Document.getElementsByClassName("submitButton")
    Button(0).Click
    Application.Wait (Now + TimeValue("0:00:10"))
    
    IE.Navigate URL2
    Do While IE.ReadyState <> READYSTATE_COMPLETE
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    Set Button = IE.Document.getElementsByClassName("ssoLink")
    Button(0).Click
    Set IE = Nothing
    
End Sub

E-devlet üzerinden giriş yapabilirsiniz.

Proiss88 · 10 Mart 2020

muratboz06' Alıntı:

Kod:

Sub InteraktifVergiDairesiGiris()
   
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    Dim URL As String
    Dim URL2 As String
    Dim TcNo As String
    Dim Sifre As String
    TcNo = "TC Numaranızı yazınız."
    Sifre = "Şifrenizi yazınız."
    URL1 = "https://giris.turkiye.gov.tr/Giris/gir"
    URL2 = "https://www.turkiye.gov.tr/gib-ivd"
   
    IE.Visible = True
    IE.Navigate URL1
    Do While IE.ReadyState <> READYSTATE_COMPLETE
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    IE.Document.getElementById("tridField").Value = TcNo
    IE.Document.getElementById("egpField").Value = Sifre
    Set Button = IE.Document.getElementsByClassName("submitButton")
    Button(0).Click
    Application.Wait (Now + TimeValue("0:00:10"))
   
    IE.Navigate URL2
    Do While IE.ReadyState <> READYSTATE_COMPLETE
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    Set Button = IE.Document.getElementsByClassName("ssoLink")
    Button(0).Click
    Set IE = Nothing
   
End Sub

E-devlet üzerinden giriş yapabilirsiniz.

emeğiniz için çok teşekkür ederim sistem güzel çalışıyor fakat ben firmalar için kullanacağım onun için e devlet olmaz direk girebilmem lazım

tugrulakkoyun · 11 Mart 2020

emeğinize teşekkür ederim. e devlet ile giriş için tc yi şifreyi koda yazmayıpta hücreden alabilir miyiz? örneğin a1 tc b1 şifre

muratboz06 · 11 Mart 2020

TC ve Şifrenin olduğu sayfanın ismi diyelim ki DENEME olsun.
Yukarıdaki kodda ilgili ala aşağıdaki gibi olması gerekir.

TcNo = Sheets("DENEME").Range("A1").Value
Sifre = Sheets("DENEME").Range("B1").Value

tugrulakkoyun · 11 Mart 2020

Do While IE.ReadyState <> READYSTATE_COMPLETE
bu satır hata veriyor üstadım

muratboz06 · 11 Mart 2020

TcNo ve Şifrenin DENEME sayfasında olduğunu varsayarsak;

Kod:

Sub InteraktifVergiDairesiGiris()
  
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    Dim URL As String
    Dim URL2 As String
    Dim TcNo As String
    Dim Sifre As String
    TcNo = Sheets("DENEME").Range("A1").Value
    Sifre = Sheets("DENEME").Range("B1").Value
    URL1 = "https://giris.turkiye.gov.tr/Giris/gir"
    URL2 = "https://www.turkiye.gov.tr/gib-ivd"
    
    IE.Visible = True
    IE.Navigate URL1
    
    Do While IE.Busy
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    
    IE.Document.getElementById("tridField").Value = TcNo
    IE.Document.getElementById("egpField").Value = Sifre
    Set Button = IE.Document.getElementsByClassName("submitButton")
    Button(0).Click
    Application.Wait (Now + TimeValue("0:00:10"))
  
    IE.Navigate URL2
     Do While IE.Busy
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    
    Set Button = IE.Document.getElementsByClassName("ssoLink")
    Button(0).Click
    
    Set IE = Nothing
  
End Sub

tugrulakkoyun · 11 Mart 2020

oldu hocam çok teşekkür ederim.

spacebar · 30 Mart 2020

günaydın. kodlar explorer'da çalışıyordu bir sorun yoktu ama şimdi çalışmıyor. şifremi chrome da denedim bir sorun yok. acaba bu kodları chrome olarak nasıl düzenleyebiliriz. teşekkürler...

muratboz06 · 30 Mart 2020

Yukarıdaki kodu biraz önce denedim çalışıyor.
Aşağıdaki kod DENEME sayfasında A1 hücresinden TC numarasını, B1 hücresinden de şifreyi almaktadır.
Tc ve şifreyi doğrudan koda yazarak deneyiniz. İlgili satırları şu şekilde değiştiriniz.
TcNo = "Tc numaranız" 'çift tırnak içinde yazılmalıdır
Sifre = "Sifreniz" 'çift tırnak içinde yazılmalıdır

Kod:

Sub InteraktifVergiDairesiGiris()
 
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    Dim URL As String
    Dim URL2 As String
    Dim TcNo As String
    Dim Sifre As String
    TcNo = Sheets("DENEME").Range("A1").Value
    Sifre = Sheets("DENEME").Range("B1").Value
    URL1 = "https://giris.turkiye.gov.tr/Giris/gir"
    URL2 = "https://www.turkiye.gov.tr/gib-ivd"
    
    IE.Visible = True
    IE.Navigate URL1
    
    Do While IE.Busy
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    
    IE.Document.getElementById("tridField").Value = TcNo
    IE.Document.getElementById("egpField").Value = Sifre
    Set Button = IE.Document.getElementsByClassName("submitButton")
    Button(0).Click
    Application.Wait (Now + TimeValue("0:00:10"))
 
    IE.Navigate URL2
     Do While IE.Busy
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    
    Set Button = IE.Document.getElementsByClassName("ssoLink")
    Button(0).Click
    
    Set IE = Nothing
 
End Sub

spacebar · 30 Mart 2020

üstad merhaba. e-devlete giriyor. interaktif vergi dairesine kadar sorun yok. "uygulamaya git" tıklayınca sayfa yükleniyor diye bekliyor. sayfayı açmıyor. excel den bağımsız denedim. yine çalışmıyor. explorer da bir sorun var. chrome çevirme imkanı varmı acaba. ilginize teşekkür ederim.

muratboz06 · 30 Mart 2020

Merhaba,
Chromdan giriş için (Chrome 80.xxx.xxx) versiyonunda denenmiştir.)

1- Selenium 2.0.9.0 versiyonunu indirip kurunuz. ( https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe )
2- Chrome webdriver indirip indirip ( https://chromedriver.storage.googleapis.com/80.0.3987.106/chromedriver_win32.zip )
3. zip içindeki chromedriver.exe dosyasını 1 sıra nolu exenin kurulumunun yapıldığı klasörün içine kopyalayınız.
4. Excel VBA da Tools>References den Selenium Type Library i aktif ediniz.
5. Kod daha da geliştirebilir. Bende ilk defa yaptım.

Kod:

Private obj As New Selenium.ChromeDriver

Sub InterAktifVergiDairesiGir()
    obj.Get "https://giris.turkiye.gov.tr/Giris/gir"
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.FindElementById("tridField").SendKeys ("TCNO YAZINIZ")
    obj.FindElementById("egpField").SendKeys ("ŞİFRE YAZINIZ")
    obj.FindElementByClass("submitButton").Click
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.Get "https://www.turkiye.gov.tr/gib-ivd"
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.FindElementByClass("ssoLink").Click
End Sub

Sub InterAktifVergiDairesiÇık()
    obj.Quit
End Sub

spacebar · 30 Mart 2020

üstad uyguluyorum şimdi. teşekkürler. ellerinize sağlık.

tugrulakkoyun · 3 Nisan 2020

Muratboz üstadım bunu tc kimlik noyu texbox2 şifreyi texbox4 den almak için ne yapmam lazım. choreme uyumlu yapmak için.?

muratboz06 · 3 Nisan 2020

Kod:

Sub InterAktifVergiDairesiGir()
    obj.Get "https://giris.turkiye.gov.tr/Giris/gir"
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.FindElementById("tridField").SendKeys TextBox2.Value
    obj.FindElementById("egpField").SendKeys TextBox4.Value
    obj.FindElementByClass("submitButton").Click
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.Get "https://www.turkiye.gov.tr/gib-ivd"
    While obj.ExecuteScript("return document.readyState") <> "complete"
        obj.Wait (5000)
    Wend
    obj.FindElementByClass("ssoLink").Click
End Sub

tugrulakkoyun · 8 Nisan 2020

Ben kurulumu mu yanlış yaptım anlamıyorum. bir türlü çözemedim. selenium indirdim aktif hale getirdim Chrome webdriver indirdim. bunu mu yanlış yaptım acaba.? Chrome webdriver ı nereye kopyalamam lazım ki.

muratboz06 · 8 Nisan 2020

Chrome webdriverı Selenium'u kurduğunuz klasörün içine kopyalayacaksınız. Selenium klasörü içerisinde zaten chrome webdriver var (eski sürüm) fakat sizdeki mevcut chrome ile uyumlu olmayacağı için yeni sürümünü indirip, selenium klasörünün içine kopyalıyoruz.

hkn27excel · 6 Şubat 2021

Ne olursunuz şu İnter aktif Vergi Dairesine E devlet olmaksızın Giriş yapmak istiyorum bir turlu yapamadım kaç tane yaptım ama bunu yapamadım. E devletten geçis yaptıra biliyorum Fakat buradan olmuyor direk giriş için ...

hkn27excel · 15 Şubat 2021

hkn27excel' Alıntı:
Ne olursunuz şu İnter aktif Vergi Dairesine E devlet olmaksızın Giriş yapmak istiyorum bir turlu yapamadım kaç tane yaptım ama bunu yapamadım. E devletten geçis yaptıra biliyorum Fakat buradan olmuyor direk giriş için ...

ALLAH İÇİN BİTANE CEVAP GELMEMİŞ

AMA BEN HALLETTİM LİSTEDEN HANGİ MUŞTERİ ADINA GELİRSEN AKTİF OLAN HÜCRENİN ŞİFRESİNİ KUL KODUNU GİRİYOR VEDE GÜVENLİK KODUNU BİLE SORMADAN DİREKT İNTERAKTİF VERGİ DAİRESİNE GİRİYOR....

SİZDEN BİRŞEY GELMESİN .. ALLAH RAZI OLSUN SİZE KALIRSA İŞİMİZ VAY HALİMİZE . )

İnteraktif Vergi dairesine otomatik giriş

Proiss88

NADİR YILDIZ

muratboz06

Destek Ekibi

Proiss88

tugrulakkoyun

muratboz06

Destek Ekibi

tugrulakkoyun

muratboz06

Destek Ekibi

tugrulakkoyun

spacebar

muratboz06

Destek Ekibi

spacebar

muratboz06

Destek Ekibi

spacebar

tugrulakkoyun

muratboz06

Destek Ekibi

tugrulakkoyun

muratboz06

Destek Ekibi

hkn27excel

hkn27excel