Private Function GetProxy() As String
Dim sBuffer As String
Dim nPos As Long
Const IE_SETTINGS = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
sBuffer = RegKeyValue(HKEY_CURRENT_USER, IE_SETTINGS, "AutoConfigURL")
If LenB(sBuffer) Then
If StrComp(Left$(sBuffer, 7), "http://", vbTextCompare) Then
sBuffer = "http://" & sBuffer
End If
If LenB(sBuffer) Then
nPos = InStr(1, sBuffer, "PROXY ")
sBuffer = Mid$(sBuffer, nPos + 6)
nPos = InStr(1, sBuffer, """")
sBuffer = Trim(Left$(sBuffer, nPos - 1))
If Right$(sBuffer, 1) = ";" Then
sBuffer = Left$(sBuffer, Len(sBuffer) - 1)
End If
GetProxy = sBuffer
End If
ElseIf RegKeyValue(HKEY_CURRENT_USER, IE_SETTINGS, "ProxyEnable") = 1 Then
sBuffer = RegKeyValue(HKEY_CURRENT_USER, IE_SETTINGS, "ProxyServer")
If LenB(sBuffer) Then
nPos = InStr(1, sBuffer, "http=")
If nPos Then
sBuffer = Mid$(sBuffer, nPos + 5)
nPos = InStr(1, sBuffer, ";")
sBuffer = Left$(sBuffer, nPos - 1)
End If
If StrComp(Left$(sBuffer, 7), "http://", vbTextCompare) Then
GetProxy = "http://" & sBuffer
Else
GetProxy = sBuffer
End If
End If
End If
End Function