VB调用代理IP的问题

把txt文件读入数组ips
dim n as integer
dim ips()

private sub Form_Load()
n=-1
'读入ip
end sub

private sub Command1_Click()
n = (n + 1) mod ubound(ips)
msgbox ips(n)
end sub

可以用一个list
点击一个添加到web中

WebBrowser控件使用的设置就是IE的设置,可以通过修改注册表修改系统默认的代理服务器

Public Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String
'返回值说明:返回一个设置的中文说明.
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(IP) 'ip地址
strSubnetMask = Array(NM) '