求教高手:求取一份vb保存网页的源代码,谢谢!!!!!!

Question

求教高手:求取一份vb(下载)保存网页的源代码(包括上面的图片等一起保存),谢谢!!!!!!

Answer 1

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER

Answer 2

当然，如果不想使用WebBrowser控件，而是用Inet，那么还需要分析网页内容，非常麻烦。建议用WebBrowser控件（可以设Visible=False，在DocumentComplete事件里面调用上述代码。

Answer 3

Public Function inetrun(Inet1 As Inet, URL As String) As Boolean
On Error GoTo err:
Dim bValidate() As Byte
Inet1.URL = URL
bValidate() = Inet1.OpenURL(Inet1.URL, icByteArray)
Open "C:\temp.txt" For Binary As #1    '保存至文件
    Put #1, , bValidate()
    Close
    inetrun = True
    Exit Function   
err:
Inet1.Cancel
inetrun = False
End Function'调用
If inetrun(Inet1, addrof) Then
'处理的代码加在这里
end if

Answer 4

下载文件固然不难，难就难在正确分析文件。（虽然看上去挺简单的，可是实在是很麻烦；不如用WebBrowser来得干脆）

Answer 5

谢谢各位帮助！！！！求教pigpag：
如何用WebBrowser，帮助协议下好吗，谢谢！！！！

Answer 6

如何引用部件，我在短消息里说了。现在说说怎么使用Webbrowser下载页面。使用Webbrowser.Navigate这个方法可以指定URL，如：Webbrowser1.Navigate "www.csdn.net"
由于保存网页必须在整个页面下载完成之后才能进行，一般将这类操作放在Webbrowser_DocumentComplete事件里面，当然，也可以用Timer监控Webbrowser.Busy属性确定其是否在工作，从而了解下载是否在进行之中。一些简单的使用功能可以通过方法名得知，比如Webbrowser.GoHome Webbrowser.GoSearch等等，功能一目了然。而一些高级的功能——比如打印页面、保存页面、打开属性窗口、一些高级设置等，往往使用Webbrowser.ExecWB方法。方法的编号一般使用常数，可以在对象浏览器中查找OLECMDID_开头的常数，常数名往往提示了这个方法的作用。简单的“帮助”——新建一个窗体，在“新建窗体”对话框中选择“Web 浏览器”，VB6会自动创建一个具有基本浏览功能的浏览器窗口。你可以慢慢研究。有关对Document对象的操作，查阅MSDN或者Dreamweaver HTML Reference相应篇章。关于HTML TAG的帮助，可以到国际HTML标准官方网站上或Dreamweaver HTML TAG Reference获取信息（MSDN上也应该有）