(22/12/2020, 12:02)Vahap5244 yazdı: 2- Ayrıca bu bilgileri İnternet Explorer ile de göndermek istiyorum. Burada da internet explorer a geçiyorum ancak kullanıcı adı ve şifre kısımlarını almıyor. Module bir yanlışlık mı yaptım acaba.SSKişkazasıebildirge fonksiyonunu aşağıdaki gibi düzenleyip dener misiniz?
ben deneme amaçlı saçma şeyler yazdım siz gerekli değişiklikleri yaparsınız
Sub SSKişkazasıebildirge()
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "https://kesenek.sgk.gov.tr/IsvBildirimFormu/welcome.do"
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
.Document.getElementById("kullaniciAdi").Value = "12345688888" '[H5]
.Document.getElementById("isyeriKodu").Value = "12365" '[I5]
.Document.getElementById("isyeriSifresi").Value = "12365" '[J5]
End With
End Sub
