X
xsh123
Unregistered / Unconfirmed
GUEST, unregistred user!
VB的程序,在这请教,不好意思.
Private Sub WebBrowser1_DownloadComplete()
'页面下载完毕
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text4.Text = objhtml.htmltext
End If
End Sub
TEXT4.TEXT即为IE源文件,现在有如下两个问题:
1.如果网页为框架结构时,Set objhtml = doc.body.createtextrange()报错.
2.如果将取的源文件修改后存为HTML格式,有乱码.
请高手指教.分不够的话,尽管开口!!!!!!!!
Private Sub WebBrowser1_DownloadComplete()
'页面下载完毕
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text4.Text = objhtml.htmltext
End If
End Sub
TEXT4.TEXT即为IE源文件,现在有如下两个问题:
1.如果网页为框架结构时,Set objhtml = doc.body.createtextrange()报错.
2.如果将取的源文件修改后存为HTML格式,有乱码.
请高手指教.分不够的话,尽管开口!!!!!!!!