• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İnteraktif Vergi dairesine otomatik giriş

  • Konbuyu başlatan Konbuyu başlatan Proiss88
  • Başlangıç tarihi Başlangıç tarihi
P

Proiss88

Katılım
8 Kasım 2019
Mesajlar
2
Excel Vers. ve Dili
vba
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
 
bende gib e-arşive giriş yapacak bir uygulama istiyorum.
 
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.
 
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.
Genişletmek için tıkla ...

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
 
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
 
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
 
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
 
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...
 
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
 
ü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.
 
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
 
üstad uyguluyorum şimdi. teşekkürler. ellerinize sağlık.
 
Muratboz üstadım bunu tc kimlik noyu texbox2 şifreyi texbox4 den almak için ne yapmam lazım. choreme uyumlu yapmak için.?
 
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
 
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.
 
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.
 
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' 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 ...
Genişletmek için tıkla ...

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 . )
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst