SGK UYGULAMALARI

[Ercan_ÇELİKOĞLU]

Sub SGKBORÇSORGU()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://uyg.sgk.gov.tr/IsverenBorcSorgu/borc/donemselBorc.action"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.userLogin_basvuru_tcKimlikNo.Value = "10101011010"
.document.all.userLogin_basvuru_isyeriKodu.Value = "1"
.document.all.userLogin_basvuru_sistemSifre.Value = "11111"
.document.all.userLogin_basvuru_isyeriSifre.Value = "22222"
End With
End Sub
t
Bu kod sayesinde excel sayfasına eklenen herhangi bir butonla sgk borç sorgulama uygulamasına otomatik giriş yapıyorum
ancak asıl istediğim
https://ebildirge.sgk.gov.tr/EBildirgeV2 e-bildirge uygulaması ile
https://uyg.sgk.gov.tr/vizite/welcome.do sgk e-vizite uygulamaları içinde kullanmak istiyorum
Altın üyeniz değilim maalesef ama çok yardımlarınızı gördüm umarım bu konuya da bir çözüm bulunur
saygılarımla.

 

[Trilenium]

Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://ebildirge.sgk.gov.tr/EBildirgeV2"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.kullaniciIlkKontrollerGiris_username.Value = "10101011010"
.document.all.kullaniciIlkKontrollerGiris_isyeri_kod.Value = "1"
.document.all.kullaniciIlkKontrollerGiris_password.Value = "11111"
.document.all.kullaniciIlkKontrollerGiris_isyeri_sifre.Value = "22222"



End With

 

[Ercan_ÇELİKOĞLU]

Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://ebildirge.sgk.gov.tr/EBildirgeV2"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.kullaniciIlkKontrollerGiris_username.Value = "10101011010"
.document.all.kullaniciIlkKontrollerGiris_isyeri_kod.Value = "1"
.document.all.kullaniciIlkKontrollerGiris_password.Value = "11111"
.document.all.kullaniciIlkKontrollerGiris_isyeri_sifre.Value = "22222"



End With

Cevabınız için teşekkür ederim peki
https://uyg.sgk.gov.tr/vizite/welcome.do sgk e-vizite uygulaması için nasıl olmalı

 

[Ercan_ÇELİKOĞLU]

Sub OpenEdge()
Dim edgePath As String
Dim edgeUrl As String

' Set the path to Microsoft Edge executable file
edgePath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"

' Set the URL that you want to open in Microsoft Edge
edgeUrl = "https://www.excel.web.tr/"

' Open Microsoft Edge with the specified URL
Shell edgePath & " " & edgeUrl, vbNormalFocus
End Sub

yukarıda verdiğim kodla microsoft edge açılıyor
ancak benim istediğim
Sub SGKBORÇSORGUEKDERS()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://uyg.sgk.gov.tr/IsverenBorcSorgu/borc/donemselBorc.action"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.userLogin_basvuru_tcKimlikNo.Value = "1111111111"
.document.all.userLogin_basvuru_isyeriKodu.Value = "1"
.document.all.userLogin_basvuru_sistemSifre.Value = "111111"
.document.all.userLogin_basvuru_isyeriSifre.Value = "111111"
End With
End Sub
Sub SGKV2EKDERS()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://ebildirge.sgk.gov.tr/EBildirgeV2"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.kullaniciIlkKontrollerGiris_username.Value = "11111111111"
.document.all.kullaniciIlkKontrollerGiris_isyeri_kod.Value = "1"
.document.all.kullaniciIlkKontrollerGiris_password.Value = "111111"
.document.all.kullaniciIlkKontrollerGiris_isyeri_sifre.Value = "111111"
End With
End Sub

Sub VİZİTEEKDERS()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://uyg.sgk.gov.tr/vizite/welcome.do"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.kullaniciAdi.Value = "11111111111"
.document.all.isyeriKodu.Value = "1"
.document.all.isyeriSifresi.Value = "111111"

End With
End Sub
bu kodlarla butona makro atadığımda explorer yerine microsoft edge ile açmasını sağlamak
saygılarımla.