皮皮网

1.如何用vb得到网页的源码源代码
2.VB如何获取webbrowser源码指定文本
3.VB中的WebBrowser1

如何用vb得到网页的源代码

       1 先加载网页：

       Private Sub Form_Load()

        WebBrowser1.Navigate "/question/.html"

       End Sub

       2 加载完成后取字符串到文本框:

       Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        Dim doc As Object, objhtml As Object

        Dim strhtml As String

        On Error GoTo errorsub

        Me.Caption = WebBrowser1.LocationName & " 加载完成"

        If MaxWebNum <= 0 Then

        Set doc = WebBrowser1.Document

        Set objhtml = doc.body.createtextrange()

        If Not IsNull(objhtml) Then

        strhtml = WebBrowser1.Document.body.innertext

        Text1.Text = strhtml

        End If

        End If

        Exit Sub

       errorsub:

        Text1.Text = "错误！！源码爬虫源码java！源码报价源码后台密码"

       End Sub

VB如何获取webbrowser源码指定文本

       Private Sub Form_Load()

       Dim html As String

       html = "<li><em>经验值</em></li><li><em>金币数</em></li>"

       ExpeValue = FindFirstGroup("<em>经验值</em>(\d+)</li>",源码 html)

       CoinValue = FindFirstGroup("<em>金币数</em>(\d+)</li>", html)

       MsgBox "经验值为" & ExpeValue

       MsgBox "金币值为" & CoinValue

       End Sub

       Private Function FindFirstGroup(pattern As String, src As String) As String

       Dim re As RegExp

       Set re = New RegExp

       With re

       .pattern = pattern

       Set Matches = .Execute(src)

       If Matches.Count = 0 Then

       FindFirstGroup = ""

       Else

       FindFirstGroup = Matches(0).SubMatches(0)

       End If

       End With

       End Function

VB中的WebBrowser1

       è¯•è¯•è¿™ä¸ªåŠžæ³•ï¼š

       å»ºç«‹ä¸€ä¸ªwb(0),Visible=False

        (WB是WebBrowser控件数组——只要设置它的Index=0还有Visible=False即可）

       ä»£ç æ˜¯ï¼š

       Sub InitWB(Optional Update As Boolean=False)

        If Update Then Unload(wb(1))

        Load wb(1)

        wb(1).visible = true

        wb(1).left = 0

        wb(1).top = 0

        wb(1).width =

        wb(1).height = '初始化它的尺寸坐标 你自己写

        '如果还有其他属性设置这里加上

       End Sub

       Private Sub Form_Load()

        InitWB

       End Sub

       å¦‚果要更新，调用语句Call InitWB(true)

       è¿™æ ·åº”该是可以的。

       ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼

       å»ºç«‹ä¸€ä¸ªWebrowser1,命名为wb，设置他的属性index=0

       ç„¶åŽç”¨ä¸Šé¢ä»£ç 