Yardım SGK uygulamalarına otomatik giriş

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 = "ExcelTurkey Forum - Excel, Excel Makro, Excel Fonksiyon, Excel Formül, Excel soru ve çözümleri"

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

Sub SGKBORÇSORGUEKDERS()
    Set xd = CreateObject("internetexplorer.application")
    With xd
        .navigate "Kullanıcı Giriş Ekranı"
        .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 "T.C. Sosyal Güvenlik Kurumu"
        .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 "Vizite Giriş Sistemi"
        .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