SGK Otomatik Giriş

[umit1907]

Merhabalar,

SGK e-bildirge ve bazı SGK sitelerinde otomatik giriş formu doldurmak için ekteki çalışma belki arkadaşların işine yarayabilir.

 

[mydestek]

Merhabalar,

SGK e-bildirge ve bazı SGK sitelerinde otomatik giriş formu doldurmak için ekteki çalışma belki arkadaşların işine yarayabilir.

Otomatik giriş sağlamamakta.
Başka test eden oldu mu?
Bilgi giriş alanları doldurmuyor.

 

[mydestek]

Bu hali ile bende çalıştı.

Private Sub giris_Click()
On Error Resume Next
If firmasec.Value = "" Or firmasec.Value = "Kayıtlı Kullanıcı Bilgisi Yok'" Then Exit Sub
Set Syf = Sheets("ssk")
isubeadres = Syf.Range("h" & firmasec.ListIndex + 3)

     
Set Syf = Sheets("ssk")
a1 = Syf.Range("c" & firmasec.ListIndex + 3)
a2 = Syf.Range("d" & firmasec.ListIndex + 3)
a3 = Syf.Range("e" & firmasec.ListIndex + 3)
a4 = Syf.Range("f" & firmasec.ListIndex + 3)


Set IE = New InternetExplorer
     IE.Visible = True
     IE.Width = "800"
     IE.Height = "650"
     IE.Top = "35"
     IE.Left = "191"
     IE.Navigate isubeadres
10
Do Until IE.ReadyState <> 4: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop

[COLOR="SeaGreen"]IE.Document.all.j_username.Value = a1
IE.Document.all.j_password.Value = a2
IE.Document.all.isyeri_sifre.Value = a3
IE.Document.all.isyeri_kod.Value = a4[/COLOR]

i = i + 1
If i < 2 Then GoTo 10

End Sub

 

[umit1907]

Elinize Sağlık.

 

[hsanclk]

YENİLENEN SAFYA LİNKLERİNİ EKLEYİNCE GİRİŞ BİLGİLERİNİ ATMIYOR ÇOK GÜZEL İŞ GÖRÜYOR AMA GÜNCEL DEĞİL RİCA ETSEM GÜNCEL HALİNİ PAYLAŞIRMISINIZ

 

[spacebar]

merhabalar. aşağıdaki dosyaları denermisin. elimde şifre yok. o yüzden deneyemiyorum.bir yıldır giriş yapmadığım için güncelliği konusunda bilgim yok. deneyip haber verirsen sevinirim.

 

[denese]

Merhaba Sayın spacebar,

ŞİRKET-SGK dosyasında vergi dairesi girişini denemedim. Her iki dosyada da SGK otomatik girişler hatasız. Elinize sağlık. SGK Otomatik Giriş dosyasında sayfa koruması var. Şifreyi de paylaşabilir misiniz.

 

[spacebar]

sayın denese günaydın. şifreyi bilmiyorum. çalışmayı ben hazırlamadım. yine bu siteden indirmiştim. iyi hafta sonları dilerim.

 

[furkanbirlik]

explorer değilde chrome için değiştirmek istediğimde nasıl bir düzenleme yapmam gerek"ŞİRKET-SGK" dosyası için

 

[Burhan TAMA]

explorer değilde chrome için değiştirmek istediğimde nasıl bir düzenleme yapmam gerek"ŞİRKET-SGK" dosyası için

Selenium ile deneme yapmanı önerecektir herkes.

Farklı bir metot önerisi olan olurs abende ilgilendiğimi belirtmek istiyorum.