Visual Basic Code zum Verhindern der Weiterleitung vom IE zu Edge

Microsoft leitet Sie vom Internet Explorer zum Microsoft Edge Browser um, weil dieser Browser mit modernen Websites kompatibel ist.

Es gibt jedoch Situationen, in denen man eine solche Weiterleitung nicht will. Falls dies der Fall ist, kann diese Weiterleitung mit folgendem Code verhindert werden:

Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean
 
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function
 
ErrHandler:
  RegWrite = False
End Function

Die Funktion wird folgendermaßen aufgerufen:

d = RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Edge\IEToEdge\RedirectionMode", 0, "REG_DWORD")

Will man die Weiterleitung wieder einschalten will, setzt man den Parameter einfach wieder auf 1:

d = RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Edge\IEToEdge\RedirectionMode", 1, "REG_DWORD")