Makro ile internet sayfalarındaki fonksiyonları çalıştırmak

[serkandemirci]

Function AlanKontrolveKayit()
dim frm
set frm = document.forms("Form1")

if (frm.ddlSinifiSubesi.value = "-1") then
UyariMesaji = UyariMesaji & "Sınıfı / Şubesi Alanı Boş Bırakılamaz. "& vbCrLf
end if
NumAlan frm.txtOkulNo.value,"Okul No",999999,1,False
'if (frm.ddlYabanciDil.value = "-1") then
' UyariMesaji = UyariMesaji & "Kurum Tipi Alanı Boş Bırakılamaz. "& vbCrLf
'end if


if Len(UyariMesaji) <> 0 then
window.alert (UyariMesaji)
AlanKontrolveKayit = False
UyariMesaji = ""
exit function
else
if Beklet(13) then
frm.hiddenKaydet.value = "Kaydet"
AlanKontrolveKayit = true
frm.submit()
end if
end if
end function


Yukardaki kodlar&#305; macro ile nas&#305;l &#231;al&#305;&#351;t&#305;r&#305;r&#305;z

 

[serkandemirci]

cevap yok mu arkadaşlar

 

[serkandemirci]

sabırla cevabınızı bekliyorum

 

[serkandemirci]

LÜtfen Cevap ArkadaŞlar

 

[Levent Menteşoğlu]

Bence sorunuz yeterince açık değil ve anlaşılmıyor, bu sebeple cevap alamadığınızı düşünüyorum.

 

[serkandemirci]

hocam şöyle söyleyeyim bir web sayfasında bir resim var ve ona tıklayınca kaydetme işini yapıyor ben makro ile ona tıklatmayı beceremedim

bu bir buton olsa kolay idini yazdınızmı click olayı gerçekleşiyor resim olunca bir türlü tıklatamadım
makronun kadlarıda yukarda var daha nasıl anlatayım bilmiyorum hocam
nesnenin html kodlarınıda yazdım yukarıda aşağıdada mokroyu yazıyorum

Private Sub CommandButton2_Click()
Dim URL As String
Dim IE As Object, MyData(1 To 4) As String
URL = "http://e-okul.meb.gov.tr "
MyData(1) = Range("A2")
MyData(2) = Range("D2")
MyData(3) = Range("J2")
MyData(4) = Range("D2")

Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL
Do While .readyState <> 4: Loop
With .document.all
.txtTCKimlikNoGetir.Value = MyData(1)
.txtOkulNo.Value = MyData(2)
.ddlSinifiSubesi.Value = MyData(3)
Do While IE.readyState <> 4: Loop
End With
End With
IE.document.Forms(1).Elements("btnBilgiGetir").Click
IE.document.Forms(1).Elements(".........buraya ne yazacağımı bilmiyorum").Click
Set IE = Nothing
End Sub

 

[serkandemirci]

aşağıdada resmin html kodları yer alıyor

TD id=IOMToolbarActive1_kaydet_b width=25><IMG
onmouseover="this.src='../../images/toolimages/save_a.jpg'"
style="CURSOR: hand"
onclick="return AlanKontrolveKayit();"
onmouseout="this.src='../../images/toolimages/save.jpg'"
alt=Kaydet
src="e-Okul İlkÖğretim Uygulamaları_dosyalar/save.jpg"
border=0></TD>

 

[serkandemirci]

arkadaşlar yardım edin lütfen