• 0

[VB.NET] Setting Internet Explorer Proxy Settings


Question

I have this plugin-based application where one of the plugins, it's supposed to change IE proxy settings. I'm doing this via registry, and all the values are changed according to the real settings. The keys/values I changed are the ones that IE changes when you enable/disable the proxy server as I took screenshots of both the registry states, before and after applying a proxy server.

However, this is not really working. As I said, the values change (to enable or disable depending on what we want) but the checkbox on Internet Explorer settings doesn't change. Well, if the proxy is really enabled and I want to disable it, it works, the checkbox is unmarked, but if the checkbox is not marked and I try to enable it with my code, all values change but the checkbox remains unchecked.

Here's the code:

Public Sub EnableProxy()
		If objHost.DirectConnection = False Then
			Dim regKey As RegistryKey

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

			regKey.SetValue("ProxyEnable", True, RegistryValueKind.DWord)
			regKey.SetValue("ProxyServer", objHost.ProxyAddress.ToString + ":" + objHost.ProxyPort.ToString, RegistryValueKind.String)

			If objHost.BypassLocal Then
				regKey.SetValue("ProxyOverride", "<local>", RegistryValueKind.String)
			Else
				regKey.DeleteValue("ProxyOverride", False)
			End If

			regKey.Close()
		Else
			MessageBox.Show("Networkcher is currently not configured to use a proxy server. " + ControlChars.CrLf + _
							"Please open Network Switcher settings dialog and configure the proxy server.", "Missing proxy settings", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
		End If
	End Sub

	Public Sub DisableProxy()
		Dim regKey As RegistryKey

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

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

		regKey.Close()
	End Sub

I would really appreciate any help on this...

3 answers to this question

Recommended Posts

  • 0
  Nazgulled said:
I have this plugin-based application where one of the plugins, it's supposed to change IE proxy settings. I'm doing this via registry, and all the values are changed according to the real settings. The keys/values I changed are the ones that IE changes when you enable/disable the proxy server as I took screenshots of both the registry states, before and after applying a proxy server.

However, this is not really working. As I said, the values change (to enable or disable depending on what we want) but the checkbox on Internet Explorer settings doesn't change. Well, if the proxy is really enabled and I want to disable it, it works, the checkbox is unmarked, but if the checkbox is not marked and I try to enable it with my code, all values change but the checkbox remains unchecked.

Here's the code:

Public Sub EnableProxy()
		If objHost.DirectConnection = False Then
			Dim regKey As RegistryKey

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

			regKey.SetValue("ProxyEnable", True, RegistryValueKind.DWord)
			regKey.SetValue("ProxyServer", objHost.ProxyAddress.ToString + ":" + objHost.ProxyPort.ToString, RegistryValueKind.String)

			If objHost.BypassLocal Then
				regKey.SetValue("ProxyOverride", "<local>", RegistryValueKind.String)
			Else
				regKey.DeleteValue("ProxyOverride", False)
			End If

			regKey.Close()
		Else
			MessageBox.Show("Networkcher is currently not configured to use a proxy server. " + ControlChars.CrLf + _
							"Please open Network Switcher settings dialog and configure the proxy server.", "Missing proxy settings", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
		End If
	End Sub

	Public Sub DisableProxy()
		Dim regKey As RegistryKey

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

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

		regKey.Close()
	End Sub

I would really appreciate any help on this...

Are you restarting internet explorer before checking for the check box?

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • It's Intel-based, but I configured one of these yesterday with a Snapdragon X processor and found that it heats up just as much as Intel processors. There's no point in using a Snapdragon X processor unless it's fanless, like the Snapdragon 8cx.
    • Good stuff Brave. Hopefully MS respects user choice with this. They don't have a great track record but time will tell.
    • Yes. A search on Bing would have explained it.
    • As someone who regularly has to go through the OOBE for the Mini PCs I review, I can confirm that this "Windows Update failed" thing happens even on newly installed systems. I had it last week until I left it on overnight and only then did it somehow magically fix itself and applied the update, this was after wasting a full day of resetting, clearing Windows Update cache (following Microsoft recommendations). Microsoft needs to stop this BS of releasing (at best) beta quality features and updates. They need to go back to using Patch Tuesday for bugs and security fixes, and annual Service Packs to introduce fully tested new features into the OS. The 21H1, 21H2, 22H2, 23H2, 24H2 style updates are just a poor excuse of rolled up features released up to and in between these updates, and even then some of the announced features don't get enabled for end users? What is preventing my 24H2 AMD 9950X3D, X870E system from displaying the Phone Link panel in the Start menu, for example?
    • RIP Prince... for over 50 years you entertained us, brought us musicians that wowed the masses... you brought us into your home, your world and your loving insanity for life itself. You'll never be truly gone, because you'll be with us for the rest of our own lives.
  • Recent Achievements

    • Week One Done
      SmileWorks Dental earned a badge
      Week One Done
    • Community Regular
      vZeroG went up a rank
      Community Regular
    • Collaborator
      Snake Doc earned a badge
      Collaborator
    • Week One Done
      Snake Doc earned a badge
      Week One Done
    • One Month Later
      Johnny Mrkvička earned a badge
      One Month Later
  • Popular Contributors

    1. 1
      +primortal
      583
    2. 2
      Michael Scrip
      199
    3. 3
      ATLien_0
      196
    4. 4
      +FloatingFatMan
      129
    5. 5
      Xenon
      123
  • Tell a friend

    Love Neowin? Tell a friend!