上找到使用rftControl控件保存webbrowse文本 txtHtml是RichTextBox
txtHTML.Text = WebBrowser1.document.body.innerText
´flag :rsftext 保存为txt文件
![](/icons/67026dou.gif)
txtHTML.saveFile strtmp, rtfText
将其name属性设置为web
Private Sub Command1_Click
![](/icons/67026kh.gif)
web.Navigate \"\"
End Sub
Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = web.Document
For Each i In doc.All
msgbox typename(i)
Text1.Text = Text1.text & vbclrf & i.innertext
Next
End sub
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
转载
´引用 Microsoft HTML Object Library
Dim oDoc As HTMLDocument
Dim oElement As Object
Dim oTxtRgn As Object
Dim sSelectedText As String
Set oDoc = WebBrowser1.Document´获得文档对象
Set oElement = oDoc.getElementById(\"T1\")´获得ID=\"T1\"
![](/icons/67026de.gif)
Set oTxtRgn = oDoc.selection.createRange´获得文档当前正选择
![](/icons/67026de.gif)
sSelectedText = oTxtRgn.Text´选择区域文本赋值
oElement.Focus´\"T1\"对象获得焦点
oElement.Select´全选对象\"T1\"
Debug.Pr
![](/icons/67026int.gif)
上面这段儿还附送了其他功能
![](/icons/67026dou.gif)
![](/icons/67026dou2.gif)
![](/icons/67026yi.gif)
Dim oDoc As Object
Dim oTxtRgn As Object
Dim sSelectedHTML As String
Set oDoc = WebBrowser1.Document ´获得文档对象
Set oTxtRgn = oDoc.selection.createRange ´获得文档当前正选择
![](/icons/67026de.gif)
sSelectedHTML = oTxtRgn.htmlText ´选择区域文本赋值
Text1.Text=sSelectedHTML ´文本框显示抓取得HTML源码
......´或者继续分析源码
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
我用WebBrowser取得网页源码
![](/icons/67026dou.gif)
![](/icons/67026dou.gif)
Private Sub Command1_Click
![](/icons/67026kh.gif)
WebBrowser1.Navigate \"\"
End Sub
Private Sub WebBrowser1_DownloadComplete
![](/icons/67026kh.gif)
´页面下载完毕
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange
![](/icons/67026kh.gif)
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
End Sub
我用WebBrowser取得网页源码
![](/icons/67026dou.gif)
![](/icons/67026dou.gif)
提示:实时
![](/icons/67026cuowu.gif)
可能是没有下载完所致
![](/icons/67026dou.gif)
Private Sub WebBrowser1_DownloadComplete
![](/icons/67026kh.gif)
![](/icons/67026if.gif)
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange
![](/icons/67026kh.gif)
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
end
![](/icons/67026if.gif)
End Sub
你要得网页源码用 xmlhttp比较好
先引用 msxml
Dim x As New MSXML2.XMLHTTP
x.open \"get\", \"\", False
x.send
MsgBox StrConv(x.responseBody, vbUnicode)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
我在网上找到使用rftControl控件保存webbrowse文本 txtHtml是RichTextBox
txtHTML.Text = WebBrowser1.document.body.innerText
´flag :rsftext 保存为txt文件
![](/icons/67026dou.gif)
txtHTML.saveFile strtmp, rtfText
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
Private Sub WebBrowser1_DownloadComplete
![](/icons/67026kh.gif)
Dim objHtml As Object
´下载完成时状态栏显示“Link Finished”
Set objHtml = Me.WebBrowser1.Document.Body.Createtextrange
![](/icons/67026kh.gif)
If Not IsNull(objHtml) Then
Text1.Text = objHtml.htmltext
End If
End Sub
使用inetControl控件
Source1 = Inet1.OpenURL(\"\")
If Source1 <> \"\" Then
RichTextBox1.Text = Source1
Me.Inet1.Cancel
Else
Source = MsgBox(\"Source code is not available.\", vbInformation, \"Source Code\")
End If
Private Sub Command1_Click
![](/icons/67026kh.gif)
Text1.Text = WebBrowser1.Document.body.innerHTML
End Sub
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
加入timer,commandbutton,text
private sub command1_click
![](/icons/67026kh.gif)
webbrowser1.navigate
timer1.enabled=true
end sub
private sub timer1_timer
![](/icons/67026kh.gif)
dim doc,objhtml as object
dim i as
![](/icons/67026int.gif)
dim strhtml as
![](/icons/67026string.gif)
![](/icons/67026if.gif)
![](/icons/67026set.gif)
i=0
![](/icons/67026set.gif)
![](/icons/67026kh.gif)
![](/icons/67026if.gif)
text1.text=objhtml.htmltext
end
![](/icons/67026if.gif)
timer1.enabled=false
end
![](/icons/67026if.gif)
end sub
Dim doc, objhtml As Object
If Not webbrowser1.Busy Then
Set doc = webbrowser1.Document
Set objhtml = doc.body.createtextrange
![](/icons/67026kh.gif)
If Not IsNull(objhtml) Then
text1.text=objhtml.htmltext
End If
Set doc = Nothing
Set objhtml = Nothing
End If
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
或者试试用InternetReadFile
![](/icons/67026dou.gif)
Option Explicit
Private Declare Function InternetOpen Lib \"wininet.dll\" Alias \"InternetOpenA\" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
ByVal sProxyName As String, ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib \"wininet.dll\" Alias \"InternetOpenUrlA\" ( _
ByVal hInternetSession As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib \"wininet.dll\" ( _
ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib \"wininet.dll\" ( _
ByVal hInet As Long) As Integer
Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000
Dim s
Private Function GetUrlFile(stUrl As String) As String
Dim lgInternet As Long, lgSession As Long
Dim stBuf As String * 1024
Dim inRes As Integer
Dim lgRet As Long
Dim stTotal As String
stTotal = vbNullString
lgSession = InternetOpen(\"VBTagEdit\", 1, vbNullString, vbNullString, 0)
If lgSession Then
lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _
0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
If lgInternet Then
Do
inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)
stTotal = stTotal & Mid$(stBuf, 1, lgRet)
Loop While (lgRet <> 0)
End If
inRes = InternetCloseHandle(lgInternet)
End If
GetUrlFile = stTotal
End Function
Private Sub Command1_Click
![](/icons/67026kh.gif)
Text1.Text = GetUrlFile(\"\")
End Sub
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
Set vDoc = WebBrowser1.Document
´获取网页
![](/icons/67026de.gif)
For Each o In vDoc.All
DoEvents
htmlpage = htmlpage & o.innerHTML
Next
然后用写 2进制文件
![](/icons/67026de.gif)
![](/icons/67026de.gif)
![](/icons/67026dou2.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
![](/icons/67026dd.gif)
最新评论