1.VB获取网页源码中的网网页网址

VB获取网页源码中的网址

       你好，(由于问题情境不充足，页源源码溯源码海关标）这里假设你通过 Winsock 控件或 Internet Control 控件成功地获取网页源码并存储入变量 strCode 中。网网页x96源码

       然后可以参考以下思路：

       ' 注：该程序只能作为获取静态网页类型(*.htm/*.html)文件的页源源码Thinkphp宠物APP源码链接。以下代码最好放入一个独立的网网页犀浦源码头函数中：

       Dim l As Long, j As Long, lLen As Long

       Dim strTmp As String, strTmp2 As String

       Dim strLink As String, strLinkList As String

       Dim bErr As Boolean

       lLen = Len(strCode)

       strTmp = LCase(strCode)

       l = InStr(1, strTmp, "http://")

       Do While l <> 0

        For j = l + 7 To lLen - 1

        strTmp2 = Mid(strTmp, j, 5)

        If strTmp2 = ".html" Then ' 命中

        strLink = Mid(strTmp, l, j - l + 5)

        ElseIf strTmp2 Like ".htm?" ' 命中

        strLink = Mid(strTmp, l, j - l + 4)

        End If

        Exit For

        Next

        If Len(strLink) Then

        strLinkList = strLinkList & strLink & vbNewLine

        strLink = Empty

        Else ' 未命中

        MsgBox "提示：该网页存在无效链接。",页源源码相亲网站html源码 vbCritical, "注意"

        '-----------------------------

        ' TODO: 如果要继续分析，则不编写代码

        ' 如果直接退出，网网页则加入:

        ' bErr = True

        ' Exit Do

        '-----------------------------

        End If

        l = InStr(l + 7,页源源码 strTmp, "http://")

       Loop

       If bErr Then

        MsgBox "程序运行时发生错误。",网网页 vbExclamation, "提示"

       End If