Private Sub Start_Click()
Dim strFormData As String
strFormData = "value=" & Rnd(100)
Inet1.AccessType = 2
Inet1.Proxy = Combo1.List(Combo1.ListIndex)
Combo1.ListIndex = Combo1.ListIndex + 1
Inet1.Execute URL.Text, "POST", strFormData, "Content-Type: application/x-www-form-urlencoded "
Do Until Inet1.StillExecuting = False Start.Enabled = False
DoEvents
Loop
'Start.Enabled = True
'Inet1.Cancel 'WebBrowser1.Navigate URL.Text
End Sub
这是我用inet控件 使用它的代理功能来访问一个网站,可以循环使用代理。我每次只使用一个访问没有问题,网页记录代理ip,但是我做成自动更换代理的话,循环访问那个叶面,网页还是纪录第一个代理ip,请问怎么回事?是不是和缓存有关?
Dim strFormData As String
strFormData = "value=" & Rnd(100)
Inet1.AccessType = 2
Inet1.Proxy = Combo1.List(Combo1.ListIndex)
Combo1.ListIndex = Combo1.ListIndex + 1
Inet1.Execute URL.Text, "POST", strFormData, "Content-Type: application/x-www-form-urlencoded "
Do Until Inet1.StillExecuting = False Start.Enabled = False
DoEvents
Loop
'Start.Enabled = True
'Inet1.Cancel 'WebBrowser1.Navigate URL.Text
End Sub
这是我用inet控件 使用它的代理功能来访问一个网站,可以循环使用代理。我每次只使用一个访问没有问题,网页记录代理ip,但是我做成自动更换代理的话,循环访问那个叶面,网页还是纪录第一个代理ip,请问怎么回事?是不是和缓存有关?
等待0.几秒后再发送下一个数据
我还问一下 ,用代理访问网页,网页应该没有办法记录到原始IP把?