E-okula devamsızlık kaydı

Eğer bu işi VFP ile yapıyorsan öncelikle bir forma htmlviewer yerleştir verdiğin sayfaya erişimi bu nesne üzerinden yaptıktan sonra  aşağıdaki kod senin sayfadaki butona tıklamanı sağlar.

Local loDocument

loDocument = Thisform.htmlviewer.Object.Document

ElementCol = loDocument.getElementsByTagName("INPUT")

 

For Each btninput In ElementCol  

    If btninput.Value = "Submit"

        btninput.Click()

        Exit

    Endif

Next

Aynı şekilde ilgili satıra check koymak içinde benzer bir metodla şunu yapabilirsin;

loDocument.All("dgListe__ctl2_chkYarimGun").Value = "True"

Html sayfanın kaynak koduna bakınca listelenen öğrenciler ctl2,ctl3 gibi id ler alıyor.
bu mantığı kodla oluşturup sayfada yukarıdaki yolla değişiklikler yapabilirsin.

www.denbil.com/e-okul.html
sayfasında Kaydet butonu var.
foxpro ile kodla bu botunu click yaptıramadım.
Halbuki aynı yerde bulunan Listele butonunda işlem gerçekleşiyor.
Bu konuda bilgisi olanlardan yardım bekliyorum.

Forumda geçmişte bu konu ile ilgilenen Antepli var. Mesaj attım ama dönüş yapmadı. Antepli'nin iletişim bilgilerini bilen arkadaşlar varsa smentes at denbil.com a yazarlarsa memnun olurum.

abi selam formu takip etmekte biraz sıkıntım var yogunluktan ben e okul devamsızlıklarını attırıyorum ama sınıf seçmeli degilde ögrenci bazlı hareket ederek yaptım örnek olarak kodu buraya yazıyorum sınıf bazında degil öğrenci bazında attırıyorum daha rahat oluyor hiç problemsiz çalışıyor şuanda   aşagıda kodları veriyorum anlaşıla bilsindiye biraz açıklamalı yazdım 

****normal devamsızlık ların girildigi adres

lnTimeOut =60
lnOldSecond = Seconds()

THISFORM._Web.Navigate("http://e-okul.meb.gov.tr/OrtaOgretim/ogr/OOG02012.aspx")
THISFORM._Web.Refresh()

DO While THISFORM._Web.Busy && bağlanana kadar bekle
  If Seconds() - lnOldSecond > lnTimeOut
    Exit
  EndIf
  Inkey(0.5)
ENDDO

THISFORM._Web.Refresh()

M_ARANO=ALLTRIM(STR(OGRNO))  &&&& NUNU ÖGRENCİ KARTI VEYA DEVAMSIZLIKLARIN TUTULDUGU YERDEN ALDIRIYORUM

    With THISFORM._Web.Document.Forms("form1")
        .OGRMenu1_txtTC.value=M_ARANO
        .OGRMenu1_btnAra.click()
    ENDWITH

    GUN=ALLTRIM(STR(DAY(TARIH)))
    AY=ALLTRIM(STR(MONTH(TARIH)))
    YIL=ALLTRIM(STR(YEAR(TARIH)))

    M_TARIH=GUN+"/"+AY+"/"+YIL

   
       
    M_NEDEN=ALLTRIM(TURU)

    ***** TAM GÜN GELMEDİ *******
*    M_NEDEN="D"

*    M_NEDEN="SY"
   
*    M_NEDEN="ÖY"

   
     With THISFORM._Web.Document.Forms("form1")
      .Us_tarih1_txtTarihGiris.value=M_TARIH
      .ddlNedeni.value=M_NEDEN
      .hiddenKaydet.value= "Kaydet"
      .submit()
     ENDWITH

    *********************** ÖZÜRLÜ DEVAMSIZLIK **************

******THISFORM._Web.Navigate("http://e-okul.meb.gov.tr/OrtaOgretim/ogr/OOG02013.aspx")

***bu adresten aynı şekilde yaptırıyorum