SGK Çıkış

[Prostar]

SGK işten ayrılış sayfasında şu kodları yazdığımda

Sub SGK()
ADRES = "http://uyg.sgk.gov.tr/SigortaliTescil/jsp/istenAyrilis.jsp"
Set Uygulama = CreateObject("InternetExplorer.Application")
With Uygulama
  .Visible = True
  .Navigate ADRES
  Do While .ReadyState <> 4: Loop
 With .Document.All
  .TCKNo.Value = "51206402536"
  .tx_TekIsCikTarGG.Value = "22"
  .tx_TekIsCikTarAA.Value = "10"
  .tx_TekIsCikTarYY.Value = "2012"
  .button1.Click
 End With
 End With
End Sub

Bu sayfa açılıyor.


Açılan bu sayfadaki Cadde bölümüne : Atatürk Caddesi yazdırmak istiyorum. Ancak bu sayfaya

Sub VeriGonder()
ADRES = "http://uyg.sgk.gov.tr/SigortaliTescil/amp/sigortaliTescilAction"
Set Uygulama = CreateObject("InternetExplorer.Application")
With Uygulama
  .Visible = True
  .Navigate ADRES
  Do While .ReadyState <> 4: Loop
 With .Document.All
  .tx_Cadde = "Cadde Adı"
 End With
 End With
End Sub

Gibi bir kodla veri gönderemedim. Çünkü bu sayfa yeniden oluşturulmamalı, yani ben oluşan bu sayfaya nasıl veri gönderebilirim, bu sayfayı bir nesne olarak ele almak ve veri göndermek mümkün müdür?

 

[Zeki Gürsoy]

Merhaba,
Butona basılıp resimdeki görüntü geldikten sonra koda devam etmelisiniz. Yani yeni yeni bir prosedur çalıştırmayın.

Eğer bir süre sonra veri göndermeniz gerekiyorsa, "Uygulama" isimli değişkeni modul düzeyinde (en üstte) tanımlayın. Böylelikle değişkeni nothing yapmadığını sürece ve dosya açık olduğu sürece Uygulama.document... şeklinde her zaman kullanabilirsiniz...

 

[Prostar]

Global Uygulama
Sub Calis()
Uygulama = CreateObject("InternetExplorer.Application")
ADRES = "http://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"
Uygulama.Navigate ADRES
End Sub

Değişkeni yukarıdaki gibi tanımladım ama hata aldım.