vb编程语言读取网页源码（vb如何获取当前IE中打开的网页源代码）

本文目录

• vb如何获取当前IE中打开的网页源代码
• 如何用VB提取本网页的源代码
• 如何用vb.net获取网页源代码
• vb 快速的取得网页源码和提取其中内容
• VB 获取网页源代码（成功后给分50）
• VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢

vb如何获取当前IE中打开的网页源代码

在窗体内加入控件text1(Multiline=true,scrollbars=2),timer1(interval=1000)，然后在代码区复制下面代码，运行，即可在text1内实时显示当前IE中打开的网页源代码：Option ExplicitDim oShellApp, oShellAppWindows, oWinDim UrlLst As StringPrivate Sub Timer1_Timer() Set oShellApp = CreateObject("Shell.Application") Set oShellAppWindows = oShellApp.Windows For Each oWin In oShellAppWindows If LCase(TypeName(oWin.document)) = "htmldocument" Then If InStr(1, UrlLst, oWin.locationurl, vbTextCompare) = 0 Then UrlLst = UrlLst & oWin.locationurl & "," Text1.Text = oWin.document.body.innerHTML Me.Caption = oWin.locationname End If End If NextEnd Sub

如何用VB提取本网页的源代码

Private Sub Form_Load()***隐藏网址***Text1.Multiline=True ’把Text1设置为多行显示，不然会很卡End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Text1.Text = WebBrowser1.Document.documentElement.outerHTML ’网页加载完成后，将网页源码保存到Text1End Sub

如何用vb.net获取网页源代码

使用webbrowser控件来加载网页，然后再PrivateSubWebBrowser1_DocumentCompleted下通过使用WebBrowser1.Document.Body.InnerHtml来获取网页的源代码，或使用WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者正则表达式来精确获取到你所需的数据。

vb 快速的取得网页源码和提取其中内容

如下函数可以实现你要的功能：Function TestRegExp(ByVal myString$, ByVal myPattern$, Optional myMark$ = "gimt", Optional myRepString$)If myString = "" Or myPattern = "" ThenTestRegExp = ""Debug.Print "数据不能为空"Exit FunctionEnd If ’Create objects. Dim objRegExp As RegExp Dim objMatch As Match Dim colMatches As MatchCollection Dim RetStr As String Set objRegExp = New RegExp ’ 正则式 objRegExp.Pattern = myPattern ’IIf(InStr(myPattern, "s") 《》 0, "", myPattern) ’ 是否区分大小写 objRegExp.IgnoreCase = IIf(InStr(LCase$(myMark), "i") 》 0, True, False) ’ 是否全局 objRegExp.Global = IIf(InStr(LCase$(myMark), "g") 》 0, True, False) ’ 是否换行 objRegExp.MultiLine = IIf(InStr(LCase$(myMark), "m") 》 0, True, False) If objRegExp.Test(myString) Then If InStr(myMark, "r") 》 0 Then Debug.Print "正在替换" RetStr = objRegExp.Replace(myString, myRepString) Debug.Print IIf(RetStr 《》 "", "替换结果" & Left(RetStr, 10), "没搜索到可替换字符") Else Debug.Print "正在搜索" Set colMatches = objRegExp.Execute(myString) ’ Execute search. ’MsgBox colMatches.Count For Each objMatch In colMatches ’ Iterate Matches collection. ’RetStr = RetStr & objMatch.FirstIndex RetStr = RetStr & objMatch.Value & vbCrLf Next Debug.Print IIf(RetStr 《》 "", "搜索结果" & Left(RetStr, 10), "没搜索到匹配结果") End If Else RetStr = "" Debug.Print "没找到任何匹配结果,请检查正则式的是否正确" End If TestRegExp = RetStrEnd Function

VB 获取网页源代码（成功后给分50）

Private Function GetHtmlStr$(StrUrl$) ’获取源码 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", StrUrl, False XmlHttp.send stime = Now ’获取当前时间 While XmlHttp.ReadyState 《》 4 DoEvents ntime = Now ’获取循环时间 If DateDiff("s", stime, ntime) 》 3 Then GetHtmlStr = "": Exit Function ’判断超出3秒即超时退出过程 Wend GetHtmlStr = StrConv(XmlHttp.Responsebody, vbUnicode) Set XmlHttp = NothingEnd Function

VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢

1、提取：用这个vb小程序可以！

2、网页显示(必须先用上面程序将源码保存为txt，并且在打开窗口里选择该txt文件！)：

拖进一个webbrowser1，一个commondialog1，一个command1.

Private  Sub Command1_Click()

CommonDialog1.ShowOpen

WebBrowser1.Navigate (CommonDialog1.FileName)

End Sub