小弟我想用代理,不断变换ip去下载网页源码,要如何个方法呢?因为它那个网站如果发现访问多的话会拒绝你访问

我想用代理,不断变换ip去下载网页源码,要怎么个方法呢?因为它那个网站如果发现访问多的话会拒绝你访问
比如我用下面这个函数去下载网页源码,我想通过http代理去使用这个函数,要怎么办?我搜网上好像很少讲使用代理的例子,在vb这么悠久的历史长河中都这么少例子?

Private Function getHtmlStr(strUrl As String) As String

On Error Resume Next

    Dim XmlHttp As Object

    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

    XmlHttp.Open "GET", strUrl, False

    XmlHttp.send

    getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode)

    Set XmlHttp = Nothing

End Function

------解决方案--------------------
    Set XML = New WinHttpRequest
    XML.SetProxy 2, "127.0.0.1:8080", ""
    XML.Option(6) = False
    XML.Option(4) = 13056
    XML.Open "GET", URL
    XML.Send
------解决方案--------------------

引用:

Quote: 引用:

    Set XML = New WinHttpRequest
    XML.SetProxy 2, "127.0.0.1:8080", ""
    XML.Option(6) = False
    XML.Option(4) = 13056
    XML.Open "GET", URL
    XML.Send

多谢!!没用过winhttp,没太懂.它这个源码得来如何保存到比如text1呢?
要去学习下winhttp.谢谢!

用法和XMLHTTP几乎一样