求助：关于设置IE代理 续 再求教 sunshinebean

写注册表的话是局域网才可以的吧
InternetSetOption可以的
Private Function SetProxy(ByVal Proxy As String)
Dim Options As INTERNET_PROXY_INFO
Options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
Options.lpszProxy = Proxy
Options.lpszProxyBypass = ""
InternetSetOption 0, INTERNET_OPTION_PROXY, Options, LenB(Options)
InternetSetOption INTERNET_OPTION_SETTINGS_CHANGED, 0, 0, 0
End Function
为啥这段只对Webbrower有效，IE还是无效啊