internet sayfasına giriş

[mozdem]

merhabalar, aşağıdaki kod bloğunu bir vbs uzantılı dosyada kullanıyorum. Ancak Girmek istediğim web sitesinin giriş buton ismi olmadığından excelde makrolar ile SendKeys komutunda TAB ve ENTER özellğini kullanarak giriyorum. Ancak VBS uzantılı bir dosya yaptığımda nasıl gireceğim bilmiyorum. Yardımlarınızı bekliyorum..
Teşekkürler

Set uygulama = CreateObject("internetexplorer.application")
With uygulama
.Visible = True
.navigate "http://hrs.sagliknet.saglik.gov.tr/HRS/pages/kurum.jsp"
Do While .ReadyState <> 4: Loop
End With

        
        With uygulama.Document.all
            .ssousername.Value = "deneme"
            .Password.Value = "deneme"
        End With

'****************************************
'ShowWindow uygulama.hwnd, 3
'SendKeys "{TAB}"
'SendKeys "{TAB}", True
'SendKeys "{ENTER}", True

 

[mozdem]

Güncel, Yardımlarınızı bekliyorum.
Teşekkürler.

 

[Haluk]

End With satırından sonra, aşağıdakini ilave edin...

uygulama.document.forms(0).submit

 

[mozdem]

Teşekkür

End With satırından sonra, aşağıdakini ilave edin...

uygulama.document.forms(0).submit

Çok Teşekkür ederim. Bu soruyu çevremde yazılım ile uğraşan kişilerede sordum ancak, olumsuz cevap aldığım için ümidimi kaybetmiştim.
Tekrar Çok teşekkür ederim.


Ek bir soru:yukarıdaki kod işledikten ve sayfa açılınca aşağı yazacağım yeni kodların çalışması için ya sayfa açılınca kodlar çalışmasın, yada excelde olduğu gibi belli bir süre beklemesi için

Application.Wait Now + TimeValue("00:00:15")

buna benzer bir kod.
Ne yazabilirim.
Tekrar teşekkürler

 

[Haluk]

wscript.sleep 5000

5000 kısmını değiştirebilirsiniz.

Veya, önceki kodlarınızdaki gibi IE'nin ReadyState'ini kontrol edebilirsiniz.

 

[mozdem]

wscript.sleep 5000

5000 kısmını değiştirebilirsiniz.

Veya, önceki kodlarınızdaki gibi IE'nin ReadyState'ini kontrol edebilirsiniz.

Haluk bey çok teşekkür ederim. Aslında aynı kodu yazmıştım fakat hata vermişti. sizin kodu kopyalayınca anladımki kod satırında harf hatası yapmışım.
Çok çok teşekkürler.