如何得到本机上网的代理服务器的ip以及端口

添加两个Label
Const HKEY_CURRENT_USER = -2147483647#
'打开一个主键
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( ByVal_
 hKey As Long,ByVal lpSubKey As String,ByRef phkResult As Long ) As Long 
'关闭一个主键
Private Declare Function RegCloseKey Lib "advapi32.dll"(ByVal hKey As Long ) As Long 
'查询一个键值
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
ByRef lpType As Long, ByVal lpData As Any, ByRef lpcbData As Long ) As LongPrivate Sub Form_Load()
dim lngKeyHandle as Long , lngValueType As Long, lngLength As Long
dim strValue as String
dim strValues() as String
Call RegOpenKey(HKEY_CURRENT_USER, "\SoftWare\MicroSoft\Windows\CurrentVersion\Internet Settings", lngKeyHandle)
strValue = Space(255)
lngLength = 255
Call RegQueryValueEx(lngKeyHandle, "ProxyServer", 0, lngValueType, strValue, lngLength)
if strValue<>"" then
strValues=split(strValue,":")
Label1.caption="代理IP为:"&strValues(0)
Label2.caption="断口为:"&strValues(1)
else
msgbox "本机没有设置代理IP!"
end if
Call RegCloseKey(lngKeyHandle)
End Sub附上:
由于本人现在在上班,程序无法测试.程序有错的地方还请包涵