Inet.OpenURL(strURL)的速度慢一些加入timer,commandbutton,text private sub command1_click() webbrowser1.navigate http://www.sohu.com/ timer1.enabled=true end subprivate sub timer1_timer() dim doc,objhtml as object dim i as integer dim strhtml as stringif not webbrowser1.busy then set doc=webbrowser1.document i=0 set objhtml=doc.body.createtextrange() if not isnull(objhtml) then text1.text=objhtml.htmltext end if timer1.enabled=false end if end sub
private sub command1_click()
webbrowser1.navigate http://www.sohu.com/
timer1.enabled=true
end subprivate sub timer1_timer()
dim doc,objhtml as object
dim i as integer
dim strhtml as stringif not webbrowser1.busy then
set doc=webbrowser1.document
i=0
set objhtml=doc.body.createtextrange()
if not isnull(objhtml) then
text1.text=objhtml.htmltext
end if
timer1.enabled=false
end if
end sub