VFP 愛用者社區

[Patrick Wu]

最近 香港政府 宣布 台灣居民 赴港可免費上網登錄即可
後學要寫一個自動登錄基本資料的程式 如下:

_SCREEN.WindowState = 1
oIE = CREATEOBJECT("InternetExplorer.Application")

oIE.TOP = 0
oIE.LEFT = 0
oIE.Visible = .T.
oIE.Width = SysMetric(1)
oIE.Height = SysMetric(2) - SysMetric(9) - (SysMetric(13) * 2)

oIE.Navigate("http://eservices.immd.gov.hk/floodcontrol-gate/gate/RequestService?serviceId=par_reg&userLang=zh&userCountry=hk")

DO WHILE oIE.ReadyState <> 4 && (! oIE.Busy)
DoEvents
ENDDO

oIE.Document.getElementsByID("agreeNotice").Click
或
oIE.DOCUMENT.FORMS.PARRegForm.agreeNotice.Click

都無法偵測到 有請各先進指導了 謝謝