Makro ile e-Beyanname girişi

[ozkovlu]

Merhabalar;

https://ebeyanname.gib.gov.tr/index.html adresindeki "Giriş" butonuna tıklayıp,


Bir sonraki sayfadaki;
Kullanıcı Adı :
Parola :
Şifre :

Aşağıdaki Makro ile giriş yapmak için kodun neresinde değişiklik yapmam gerekiyor.

Sub eBeyannameGiris()

With CreateObject("internetexplorer.application")
  .Visible = True
  .navigate "https://ebeyanname.gib.gov.tr/giris.html"

   Do Until .ReadyState = 4: DoEvents: Loop
   Do While .busy: DoEvents: Loop

   .document.all.UserName.Value = 111111111# 'Kullanıcı Adı
   .document.all.password1.Value = 3 'Parola
   .document.all.password2.Value = 59966266 'Şifre

End With

End Sub

 

[Erdem Akdemir]

Konuyu tekrar gündeme getireyim.
İnternet explorer nesnesi ile nasıl yapabiliriz.

 

[Erdem Akdemir]

Merhaba,

Ekteki gibi bir dosya buldum ama sadece userform üzerinde çalışıyor.
URL işini ne yaptıysam çözemedim. Userform kullanmadan dosyayı nasıl çalıştırabiliriz.

Aşağıdaki satır ile şifre sayfasına giriş yapabildim ama gelen sayfada işlem yapamıyorum.

.Document.getElementById("buton").all.Item(0).Click

 

[Erdem Akdemir]

Merhabalar,

Aşağıdaki kod ile e-beyanname sistemine giriş yapabilirsiniz.
Giriş bilgileri A1,B1,C1 hücrelerinde olmalıdır.

Sub eBeyannameGiris()
    'Shell "taskkill /f /im iexplore*"
   
Set ie = CreateObject("internetexplorer.application")

With ie
  .Visible = True
  .navigate "https://ebeyanname.gib.gov.tr/giris.html"

   Do Until .ReadyState = 4: DoEvents: Loop
   Do While .Busy: DoEvents: Loop
 
  .Document.getElementById("buton").all.Item(0).Click

Application.Wait (Now + TimeValue("00:00:02"))

For x = 1 To 3

deg = Cells(1, x)

For i = 1 To Len(deg)

SendKeys VBA.Mid(deg, i, 1), True

Next i

SendKeys "{TAB}", True

Next x

End With

Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "{ENTER}", True

End Sub

 

[masuk500]

merhaba
bu kod e beyannameye giriş yapamıyorum

 

[masuk500]

Merhabalar,

Aşağıdaki kod ile e-beyanname sistemine giriş yapabilirsiniz.
Giriş bilgileri A1,B1,C1 hücrelerinde olmalıdır.

Sub eBeyannameGiris()
    'Shell "taskkill /f /im iexplore*"
  
Set ie = CreateObject("internetexplorer.application")

With ie
  .Visible = True
  .navigate "https://ebeyanname.gib.gov.tr/giris.html"

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

  .Document.getElementById("buton").all.Item(0).Click

Application.Wait (Now + TimeValue("00:00:02"))

For x = 1 To 3

deg = Cells(1, x)

For i = 1 To Len(deg)

SendKeys VBA.Mid(deg, i, 1), True

Next i

SendKeys "{TAB}", True

Next x

End With

Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "{ENTER}", True

End Sub

 

[masuk500]

merhaba
aşağıdaki kod ile e beyanname yi açıyorum ancak kullanıcı kodu parola ve şifreyi ilgili yerlere ekleyemiyorum.


Private Sub CommandButton2_Click()
On Error Resume Next
Dim b, c, d As Integer
Dim a As String
Dim url As String
Dim objIE As SHDocVw.InternetExplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection
a = Sayfa7.Cells(1, 2) 'https://ebeyanname.gib.gov.tr/index.html
b = Sayfa7.Cells(1, 1) 'kullanıcı kodu
c = Sayfa7.Cells(2, 1) 'parola
d = Sayfa7.Cells(3, 1) 'şifre
Set objIE = New SHDocVw.InternetExplorer
With objIE
.Navigate a
.Visible = 1
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
Application.Wait (Now + TimeValue("00:00:02"))
Set HTMLdoc = .Document
HTMLdoc.getElementById("buton").all.Item(0).Click
HTMLdoc.getElementById("username").innerText = b
HTMLdoc.getElementById("password2").innerText = c
HTMLdoc.getElementById("password1").innerText = d
HTMLdoc.getElementById("inputt").all.Item(0).Click
End With
'objIE.Quit
End Sub

 

[burcin_end_muh]

bu konu hakkında bir çözüm var mı? açılan yeni pencereye kullanıcıadı ve şifre değerleri girilmiyor

 

[metin_0606]

bu konu hakkında bir çözüm var mı? açılan yeni pencereye kullanıcıadı ve şifre değerleri girilmiyor

Bu çalışmayı netten bulmuştum umarım işinizi görür

 

[spacebar]

Bu çalışmayı netten bulmuştum umarım işinizi görür

ilginize teşekkürler ama çalışmadı. şifre neden userforma yazılmış ki. userformda düzeltseniz bile yeni şifreleri çalıştırmıyor.

 

[NADİR YILDIZ]

sayın spacebar
makroda yazılı şifreler oraya kendi şifrelerinizi girmeyi denedinizmi

iyi çalışmalar

 

[spacebar]

Nadir Bey denedim. kendi şifrelerimi yazıp çalıştırdığımda yine 1111 şifresi geldi. kaydettim kapattım. tekrar açtım. yine sonuç değişmedi.

 

[metin_0606]

Nadir Bey denedim. kendi şifrelerimi yazıp çalıştırdığımda yine 1111 şifresi geldi. kaydettim kapattım. tekrar açtım. yine sonuç değişmedi.

Değerleri çift tırnak içinde yazıp deneyiniz Örneğin "12345678" bun gibi

 

[burcin_end_muh]

Bu çalışmayı netten bulmuştum umarım işinizi görür

çok teşekkürler, ancak bu uygulamayı niçin userform içinde yapıldığını tam anlayamadım. içerideki diğer seçmeleri nasıl yapabileceğimiz konusunda fikriniz var mı?