*基于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