USE ? ALIAS kj1
SELECT kj1
DO WHILE !EOF()
thisform.text1.Value=kj1.使用域名
IF !kj1.yg
Thisform.Web1.Navigate2(kj1.使用域名)
DO WHILE Thisform.Web1.ReadyState != 4
IF thisform.urlok =.t.
thisform.urlok =.f.
EXIT
SELECT kj1
WAIT CLEAR
SKIP
LOOP
ENDIF
WAIT WINDOW "loading..." NOWAIT
ENDDO
WAIT CLEAR
thisform.web1.ExecWB(17,1)
odoc=thisform.web1.Document
oTxtRgn = oDoc.selection.createRange
sSelectedHTML = oTxtRgn.htmlText
thisform.edit1.Value=sSelectedHTML
na=AT("ICP",thisform.edit1.Text)
aa=SUBSTR(thisform.edit1.Text,na-2,18)
thisform.text2.Value=aa
SELECT kj1
REPLACE kj1.icp WITH aa
SKIP
ELSE
SKIP
ENDIF
ENDDO
|
