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

Question

比如我用下面这个函数去下载网页源码,我想通过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

Answer 1

    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

Answer 2

XMLHTTP基本上可以抛弃了，改用WinHttp吧。

Answer 3

这个我有做过，多线程加自动换代理IP，就相当于一台电脑上同时插了30，50条宽带线一样
我QQ1085992075

Answer 4

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

Answer 5

我是看人家说xmlhttp速度快,winhttp没用过,我去学习下. 那看来winhttp使用代理蛮方便的? 多谢!!