用vb检测本地Proxy名称及用户名,自动输入密码,并测试连接外网是否成功

问题描述：

本人公司使用代理服务器上外网.我想用vb写一个程序达到功能如下:
设置Proxy名称,
设定用户名及密码,
然后测试是否可以连接外网
最好提供源代码,提供解决方案也可.
hmkikikaki:
你的回答是在建立Proxy服务器.
无聊耍耍酷:
你的回答只是测试是否可连接Internet,并没有与Proxy相关内容
谢谢各位!
我要的有点像QQ的代理服务器设定画面
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/vb%5Fkoushuilong/abpic/item/11faa195c7650340d1135e9f.jpg

问题解答：

用VB来实现proxy的源码:

http://www.mzko.cn/down/20063/18780.htm

'检测网络是否连接成功
Option Explicit
Private Sub cmd1_Click()

cmd1.Enabled = False
txStatus.Text = ""
If Len(Inet1.OpenURL("http://www.zist.edu.cn")) <> 0 Or _
Len(Inet1.OpenURL("http://www.hao123.com")) <> 0 Then
txStatus.Text = "这台计算机已经连接Internet成功。"
Else
txStatus.Text = "这台计算机还没有连接到Internet"
End If
cmd1.Enabled = True

End Sub