怎么让换代理后立刻生效??

[lpmko3]

怎么让换代理后立刻生效?? 这是换代理的函数,谢谢了

Public Sub ProxySettings(ByRef strAddress As String, ByRef intSwitch As Short)

Dim strKey As String

strKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"

'Set Proxy Enabled Or Disable

' 1 = Enable , 0 = Disable

With CreateObject("WScript.Shell")

.RegWrite(strKey & "\ProxyEnable", intSwitch, "REG_DWORD")

.RegWrite(strKey & "\ProxyServer", strAddress, "REG_SZ")

End With

End Sub

[lpmko3]

我是在软件里加了个游览器,想自动换代理,这样可以吗\?