Question

用VB如何做个代理服务器检测程序

比如我有个192.168.1.100:3128的web代理服务器，我在客户机上想用Vb做个代理服务器检测程序，比如这个程序连接到代理服务器如果能打开baidu就提示代理服务器可用，如果不能打开baidu就提示代理服务器不可用。请问如何用vb做 最好完整代码谢谢

Answer 1

可以用Inet控件来实现：思路，让Inet用代理访问百度并获取源代码，如果能从源代码找到百度之类的字眼就可以了。
方法：
工程-添加部件-找到microsoft internet transfer control 6.0
private sub form_load()
inet1.Proxy="192.168.1.100:3128"
dim temp as string
temp=inet1.openurl("www.baidu.com")
if instr(temp,"百度")>0 then
'有效
else
'无效
end if
end sub