通过编程更改Internet Explorer代理，包括密码，而无需在vb.net中重新启动ie

有可能吗

我知道这样做的一个方法是更改注册表。然而，必须有更好的方法

共享子启用Proxy1（）

端接头

这样做有两个缺点

我需要重新启动internet explorer

我需要通过直接操作windows来更改代理的用户名和密码

我想要一种更好更直接的方法。有什么办法吗？

导入Microsoft.Win32
Imports Microsoft.Win32
Public Class ProxySetting
    Public Function IsProxyEnabled() As Boolean
        Try
            Dim Regs As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
            If Regs.GetValue("ProxyEnable") <> Nothing Then
                If Regs.GetValue("ProxyEnable").ToString() = "0" Then
                    Return False
                Else
                    Return True
                End If
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function GetProxyServer() As String
        Try
            Dim Regs As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
            If Regs.GetValue("ProxyServer") <> Nothing Then
                Return Regs.GetValue("ProxyServer").ToString()
            Else
                Return ""
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Sub DisableProxy()
        Dim regKey As RegistryKey
        Try
            regKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
            regKey.SetValue("ProxyEnable", False, RegistryValueKind.DWord)
            regKey.Close()
        Catch ex As Exception

        End Try
    End Sub

    Public Sub SetProxy(ByVal ServerName As String, ByVal port As Integer)
        Try
            Dim regkey1 As RegistryKey
            regkey1 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
            regkey1.SetValue("ProxyServer", ServerName + ":" + port.ToString(), RegistryValueKind.Unknown)
            regkey1.SetValue("ProxyEnable", True, RegistryValueKind.DWord)
            regkey1.Close()
        Catch ex As Exception

        End Try
    End Sub

End Class

公共类代理设置
公共函数IsProxyEnabled（）为布尔值
尝试
Dim Regs As RegistryKey=Registry.CurrentUser.CreateSubKey（“软件\Microsoft\Windows\CurrentVersion\Internet设置”，RegistryKeyPermissionCheck.ReadWriteSubTree）
如果Regs.GetValue（“ProxyEnable”）为空，则
如果Regs.GetValue（“ProxyEnable”）.ToString（）为“0”，则
返回错误
其他的
返回真值
如果结束
其他的
返回错误
如果结束
特例
返回错误
结束尝试
端函数
公共函数GetProxyServer（）作为字符串
尝试
Dim Regs As RegistryKey=Registry.CurrentUser.CreateSubKey（“软件\Microsoft\Windows\CurrentVersion\Internet设置”，RegistryKeyPermissionCheck.ReadWriteSubTree）
如果Regs.GetValue（“ProxyServer”）为空，则
返回Regs.GetValue（“ProxyServer”）.ToString（）
其他的
返回“”
如果结束
特例
返回“”
结束尝试
端函数
公共子禁用代理（）
Dim regKey作为注册表项
尝试
regKey=Registry.CurrentUser.CreateSubKey（“软件\Microsoft\Windows\CurrentVersion\Internet设置”，True）
SetValue（“ProxyEnable”，False，RegistryValueKind.DWord）
regKey.Close（）
特例
结束尝试
端接头
Public Sub SetProxy（ByVal服务器名为字符串，ByVal端口为整数）
尝试
将注册表项1设置为注册表项
regkey1=Registry.CurrentUser.CreateSubKey（“软件\Microsoft\Windows\CurrentVersion\Internet设置”，True）
regkey1.SetValue（“ProxyServer”，ServerName+：“+port.ToString（），RegistryValueKind.Unknown）
regkey1.SetValue（“ProxyEnable”，True，RegistryValueKind.DWord）
regkey1.Close（）
特例
结束尝试
端接头
末级

系统范围的代理？为什么当前vb.net需要重新启动？ie代理。ie必须重新启动。很抱歉，标题应该是通过编程更改Internet Explorer代理，包括密码，而不在vb.NET中重新启动ie。请添加一些说明。

regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)

regKey.SetValue("ProxyEnable", False, Microsoft.Win32.RegistryValueKind.DWord)

regKey.Close()

Imports Microsoft.Win32
Public Class ProxySetting
    Public Function IsProxyEnabled() As Boolean
        Try
            Dim Regs As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
            If Regs.GetValue("ProxyEnable") <> Nothing Then
                If Regs.GetValue("ProxyEnable").ToString() = "0" Then
                    Return False
                Else
                    Return True
                End If
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function GetProxyServer() As String
        Try
            Dim Regs As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
            If Regs.GetValue("ProxyServer") <> Nothing Then
                Return Regs.GetValue("ProxyServer").ToString()
            Else
                Return ""
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Sub DisableProxy()
        Dim regKey As RegistryKey
        Try
            regKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
            regKey.SetValue("ProxyEnable", False, RegistryValueKind.DWord)
            regKey.Close()
        Catch ex As Exception

        End Try
    End Sub

    Public Sub SetProxy(ByVal ServerName As String, ByVal port As Integer)
        Try
            Dim regkey1 As RegistryKey
            regkey1 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
            regkey1.SetValue("ProxyServer", ServerName + ":" + port.ToString(), RegistryValueKind.Unknown)
            regkey1.SetValue("ProxyEnable", True, RegistryValueKind.DWord)
            regkey1.Close()
        Catch ex As Exception

        End Try
    End Sub

End Class