Soru Kullanıcı Adı ve Şifre VBA

[shhnyldrr]

Merhaba,

ekteki dosyada açılan userformda ;

Kullanıcı Adı ve Ek:
Sistem Şifresi:
İşyeri Şifresi:

textbox'a dolduran kullanıcının Sağ üst köşede yer alan E-Bildirge butonuna tıkladıktan sonra kullanıcının bilgilerinin açılan explorer sayfasındaki veriler ile otomatik doldurulacak şeklinde ayarlanması konusunda desteklerinizi rica ederim.

 

[bmutlu966]

Deneyiniz.

Private Sub CommandButtonEBILDIRGE_Click()
    Dim ie As Object
    Dim objElement As Object
    Dim objCollection As Object
    Dim i As Integer
    
 Set ie = CreateObject("internetexplorer.application")
    
    With ie
        .navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
        .Visible = True
        Do While .readyState <> 4: DoEvents: Loop
 

  Set elements = .document.getElementsByTagName("input")
    For Each element In elements
        If element.Name = "j_username" Then
        element.Value = UserForm2.TextBoxKADI
    End If
    Next
  
 Set elements = .document.getElementsByTagName("input")
    For Each element In elements
        If element.Name = "j_password" Then
        element.Value = UserForm2.TextBoxSSIFRE
    End If
    Next
  
  Set elements = .document.getElementsByTagName("input")
    For Each element In elements
        If element.Name = "isyeri_sifre" Then
        element.Value = UserForm2.TextBoxISIFRE
    End If
    Next
    
   End With
End Sub

 

[shhnyldrr]

çok teşekkürler deneyeceğim. emeğinize sağlık

 

[shhnyldrr]

Deneyiniz.

Private Sub CommandButtonEBILDIRGE_Click()
    Dim ie As Object
    Dim objElement As Object
    Dim objCollection As Object
    Dim i As Integer
    
 Set ie = CreateObject("internetexplorer.application")
    
    With ie
        .navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
        .Visible = True
        Do While .readyState <> 4: DoEvents: Loop
 

  Set elements = .document.getElementsByTagName("input")
    For Each element In elements
        If element.Name = "j_username" Then
        element.Value = UserForm2.TextBoxKADI
    End If
    Next
  
 Set elements = .document.getElementsByTagName("input")
    For Each element In elements
        If element.Name = "j_password" Then
        element.Value = UserForm2.TextBoxSSIFRE
    End If
    Next
  
  Set elements = .document.getElementsByTagName("input")
    For Each element In elements
        If element.Name = "isyeri_sifre" Then
        element.Value = UserForm2.TextBoxISIFRE
    End If
    Next
    
   End With
End Sub

çalışmadı bmutlu bey

 

[bmutlu966]

Bende çalışıyor.

SGK sayfası açıldıktan sonra sayfa üzerine mouse ile sağ click yapıp açılan menüden View source ya basıp sitenin kodlarını açın.



Yukarıda sarı ile işaretlediğim bölümleri kontrol edin. Yukarıda yazdığım kodlarla bu alanları karşılaştırın.

 

[shhnyldrr]

Ekli dosyayı görüntüle 238449

Bende çalışıyor.

SGK sayfası açıldıktan sonra sayfa üzerine mouse ile sağ click yapıp açılan menüden View source ya basıp sitenin kodlarını açın.

Ekli dosyayı görüntüle 238450

Yukarıda sarı ile işaretlediğim bölümleri kontrol edin. Yukarıda yazdığım kodlarla bu alanları karşılaştırın.

Tekrar merhaba, göndermiş olduğunuz dosyada butonlar çalışmıyor malesef, Destekleriniz için teşekkür ederim

 

[shhnyldrr]

Tekrar merhaba, göndermiş olduğunuz dosyada butonlar çalışmıyor malesef, Destekleriniz için teşekkür ederim

Teşekkürler son düzenleme ile dosya çalıştı. Destekleriniz için teşekkür ederim