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

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

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 --------------------编程问答-------------------- 我是在软件里加了个游览器,想自动换代理,这样可以吗\?

补充：.NET技术 ,  VB.NET