欢迎来到皮皮网网站!

【服务器租用网站源码】【许愿墙源码下载】【免安装影视源码】vb winsock 网页源码_vbs获取网页源码

时间:2024-12-26 03:11:29 来源:hadoop hdfs 源码

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

vb winsock 网页源码_vbs获取网页源码

VB获取网页源码中的网址

       你好,(由于问题情境不充足,页源源码服务器租用网站源码)这里假设你通过 Winsock 控件或 Internet Control 控件成功地获取网页源码并存储入变量 strCode 中。网网页许愿墙源码下载

       然后可以参考以下思路:

       ' 注:该程序只能作为获取静态网页类型(*.htm/*.html)文件的页源源码免安装影视源码链接。以下代码最好放入一个独立的网网页电销后台源码函数中:

       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 "提示:该网页存在无效链接。",页源源码aspcms 自适应 源码 vbCritical, "注意"

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

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

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

        ' bErr = True

        ' Exit Do

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

        End If

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

       Loop

       If bErr Then

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

       End If

更多相关资讯请点击【热点】频道>>>