主题：请教如何获取网页源码？

论坛里有个例子，但好像和下面VB获取的源码信息不一致，请教下。

Function 获取网页源码(网站,提交类型,提交参数,字符串开始特征,字符串结束特征)

    '网站: 字符串,例-> "www点baidu点com"

    '提交类型: "POST" 或者 "GET"

    '提交参数: 例-> search=QQ&QQ=304834484

    '字符串开始特征: 例-> "<title>"

    '字符串结束特征: 例-> "</title>"

    Dim 出现位置:出现位置=0

    Dim 结束位置:结束位置=0

    Dim 返回源码:返回源码=""

    Set Http=createobject("Msxml2.XMLHTTP")

    Http.open 提交类型, 网站, False

    If UCase(提交类型)="POST" Then

        Http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

    End If

    Http.Send (提交参数)

    返回源码=Trim(Http.responseText)

    If 字符串开始特征<>"" and  字符串结束特征<>"" Then

        出现位置=Instr(1,返回源码,字符串开始特征)

        If 出现位置<>0 Then

                 结束位置=Instr(出现位置,返回源码,字符串结束特征)

            获取网页源码=Mid(返回源码,出现位置+Len(字符串开始特征),结束位置-出现位置-Len(字符串开始特征))

        Else

            获取网页源码=False

        End If

    Else

        获取网页源码=返回源码

    End If

    Set Http=Nothing

End Function