求助：设置好代理IP后，怎样判断能否连上Internet - VB6论坛

楼主

已结贴√ 问题点数：20 回复次数：3

求助：设置好代理IP后，怎样判断能否连上Internet

RT，程序已经用InternetSetOption设置好代理IP。但是我应该怎样来判断设置后能否连上Internet ？

程序代码：

Function SetProxy(ProxyIP As String) As Integer
    Dim options As INTERNET_PROXY_INFO
    options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    options.lpszProxy = ProxyIP
    options.lpszProxyBypass = ""
    SetProxy = InternetSetOption(0, INTERNET_OPTION_PROXY, options, LenB(options))      '返回0或1
End Function

找了好多相关的函数也没有什么头绪！

搜索更多相关主题的帖子: Internet　

第 2 楼

得分:0

谢谢大家的回复
其实用PING的话我也想过，可以把PING出来的结果保存起来，然后程序自动处理结果。
但是大型些的网站，它们会有防止你多次经常PING的可能，甚至是不允许PING的。
以前我用PING写过相关的程序，开始的时候还好好的，压力测试过后，几乎是显示：100% LOSS。
所以才没有考虑用PING。
但是想用API函数的话，又暂时没有发现合适的
所以才来向大家求助！

第 3 楼

得分:0

谢谢版主的回复，其实我思路也大概是这样，不过我API不太熟悉，
所以我不知道该用什么函数来实现这些内容比较好。

[ 本帖最后由 seafish011 于 2013-12-9 22:45 编辑 ]

第 4 楼

得分:0

以下是引用风吹过b在2013-12-10 11:46:27的发言：

连接，使用 winsock 控件。
使用 TCP 方式。
1、连接对方主机，80端口。标记状态，开定时器计时。
2、定时器超时，发出超时信息，如果状态是连接。或者连接报错。那第一条错误。
3、连接成功后，把请求首页的 HTTP 标准代理封包发给服务器。标记状态，开定时器计时。
4、定时器超时，发出超时信息，如果状态是已发送请求。或者连接报错。那么第二条错误。
5、收到返回的内容。先读 HTTP封包头，如果不是 200 标志，第三条错误。
再读 HTTP 封包内容，找到标题的那个标签，解出标题来，与所期望的字符串比较，如果不包含，第三条错误。
6、返回的内容，判断正确，标志代理测试成功。

整个过程，不使用 API ，只使用一个控件。
当然，你要使用API，不使用控件，也行，使用的是 SOCK 部分的API 。这个我没用过。

原来winsock还可以这样用。先结贴，不明再开新贴。谢谢回复！