我想用代理,不断变换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

7 个解决方案

#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

#2

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

#3

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

#4

引用 1 楼 bakw 的回复:

    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.谢谢!

#5

引用 2 楼 vbload 的回复:

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

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

#6

引用 3 楼 xiaoyao961 的回复:

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

谢谢大侠!这个厉害了

#7

引用 4 楼 ehjpq881166 的回复:

Quote: 引用 1 楼 bakw 的回复:

    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几乎一样