如何获取 WebBrower 控件中当前打开页的全部HTML代码

664email 2004-09-23 08:55:48

如题

...全文

175 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

jam021 2004-10-20

打赏
举报

关注,帮你顶!

TechnoFantasy 2004-10-19

打赏
举报

利用IPersist接口可以实现保存HTML到文件:
http://blog.joycode.com/technofantasy/archive/2004/02/22/13491.aspx

664email 2004-10-19

打赏
举报

WebBrowser1.Document.body.innerHTML 得到的只是 Body部分

Text2.Text = Inet1.OpenURL(Text1.Text) 的话又要花双倍时间,不能在 Webbrower里直接获取吗

hhjjhjhj 2004-09-24

打赏
举报

'引用Microsoft Internet Controls
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Command1_Click()
Dim IEwin As ShellWindows
Dim IE As InternetExplorer
Me.Visible = False
MsgBox "请点击一个IE窗口"
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Set IEwin = New ShellWindows
For Each IE In IEwin
If IE.hWnd = GetForegroundWindow() Then
Exit For

End If
Next
MsgBox IE.Document.body.innerHTML
End
End Sub

嗷嗷叫的老马 2004-09-24

打赏
举报

我只知道在浏览器的地址栏里输view-source:再跟网址就会弹出源代码在一个记事本里

至于怎样让程序得到,我就不知道了

希望对你有帮助

JKGF 2004-09-24

打赏
举报

Private Sub Command1_Click()
If Text1.Text <> "" Then
WebBrowser1.Navigate2 Text1.Text
WebBrowser1.Visible = True
Text2.Visible = False
End If
End Sub

Private Sub Command2_Click()
Text2.Visible = True
Text2.Text = Inet1.OpenURL(Text1.Text)
WebBrowser1.Visible = False
End Sub

BlueBeer 2004-09-24