关于下载的问题

Question

我想用vb实现对网页的下载，并且将网页的原码保存到本地。我试了几次都不好用，因为我的知识点不够多，所以，请教各位大侠帮忙！

Answer 1

这是网页下载的功能
使用webbrowser
webbrowser.excewb olecmdid_saveas,olecmdexecopt_promptuser
if err.number<>0 then
msgbox "无法保存"
end if

Answer 2

加入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

Answer 3

[email protected]多谢了！！！！！！

Answer 4

webbrowser   请教大侠，这个是？？？

Answer 5

这是网页下载的功能
使用webbrowser
webbrowser.excewb olecmdid_saveas,olecmdexecopt_promptuser
if err.number<>0 then
msgbox "无法保存"
end if
我知道了 （webbrowser）
但什么时候，执行这部分代码呢？