vfp9写的爬虫前段，基于webbrowser

*基于xmlhttp不能正确获取js动态加载的数据

CLEAR ALL
CLEAR

PUBLIC zform

zform = CREATEOBJECT([myform])
zform.go("http://chart.icaile.com/sd11x5.php")

DEFINE CLASS myform as Form
ADD OBJECT oweb as webbrowser
ADD OBJECT otimer as timer with interval=1000 ,enabled=.t.
html = ""
PROCEDURE go
LPARAMETERS url
thisform.oweb.navigate2(url)
ENDPROC
PROCEDURE otimer.timer
LOCAL zz
zz = null
TRY
zz = thisform.oweb.object.Document.getElementById("fixedtable")

IF AT("class=chart-bg-kjhm>**</TD>" ,zz.outerHTML) == 0

thisform.otimer.Enabled = .f.
thisform.html = zz.outerHTML
thisform.deal(thisform.html)
DOEVENTS force
endif

CATCH to oe
?"error" ,oe.message,oe.LineContents
endtry
ENDPROC

PROCEDURE deal
LPARAMETERS html
_cliptext = thisform.html
?"ok"
thisform.Release

ENDPROC
ENDDEFINE

DEFINE CLASS webbrowser as olecontrol
oleclass="Shell.Explorer.2"
olelcid=1033
Silent = .t.
ENDDEFINE