如何用WebBrowser控件获得html网页完整源代码

Posted 2023-03-19

如何用WebBrowser控件获得html网页完整源代码
请高手指点
Set doc = WebBrowser1.Document
For Each i In doc.All
str1 = str1 & i.innerhtml & vbclrf
Next
Debug.Print str1

对象变量或with块变量未设置
指的是这一行 For Each i In doc.All
是不是要在模块里写什么啊。

Set doc = WebBrowser1.Document
For Each i In doc.All
str1 = str1 & i.innerhtml & vbclrf
Next
Debug.Print str1

你得等网页加载完毕才可以 参考技术A 用
控件.DocumentStream 属性
可以获得包含 HTML 源代码的流 参考技术B WebBrowser1.Document.body.innerhtml

如何用webbrowser控件获取html源文件

参考技术A procedure TForm1.Button1Click(Sender: TObject);

var
ole_index, oleObj: OleVariant;
i: integer;
begin
if WebBrowser1.Busy then Exit; //网页加载中，退出。
Memo1.Lines.Clear;
//获取主框架网址及网页源码
Memo1.Lines.Add(WebBrowser1.OleObject.document.url);
Memo1.Lines.Add(WebBrowser1.OleObject.document.documentElement.outerHTML);
Memo1.Lines.Add(' '); Memo1.Lines.Add(' '); //添加空行
//循环获取每一个子框架网址及网页源码
for i := 0 to WebBrowser1.OleObject.document.frames.length - 1 do
begin
ole_index := i;
oleObj := WebBrowser1.OleObject.document.frames.item(ole_index);
Memo1.Lines.Add(oleObj.document.url);
Memo1.Lines.Add(oleObj.document.documentElement.outerHtml);
Memo1.Lines.Add(' '); Memo1.Lines.Add(' '); //添加空行
end;
end; 参考技术B 是哪一种开发语言？
C#:
string s=webbrowser1.DocumentText;
Delphi:
s := webbrowser1.oleobject.document.body.innerhtml;本回答被提问者和网友采纳 参考技术C WebBrowser1.Document.documentElement.outerHTML 参考技术D srcTxt = WebBrowser1.Document.documentElement.outerHTML