Wenn der Schlüssel des Kontextmenü-Eintrages bzw. sein Anzeigename in der Registry umbenannt wurde, dann diesen im IE sofort aktualisiert anzeigen

Verwendet wird IE10 unter Windows 7 x32

Hallo,

ich möchte ein Kontextmenü-Eintrag einbauen, der je nach aktuellem Zustand z. B. "Deaktivieren" und "Aktivieren" heißen sollen. Wenn der Schlüssel in der Registry von "Deaktivieren" auf "Aktivieren" umbenannt und IE mit der Taste F5 aktualisiert wird, dann aktualisiert sich das Kontextmenü leider nicht mit, sodass der eigene Kontextmenü-Eintrag weiterhin als "Deaktivieren" angezeigt.

- Wie kann das Kontextmenü im Internet Explorer ohne IE-Neustart aktualisiert werden? Gibt es hierfür ein VB-Skript?

- Wie kann ein Symbol für eigene Kontextmenü-Einträge eingebaut werden?

Ich habe sehr viel recherchiert, aber nichts Relevantes war im Netz zu finden.

Wenn ich folgendes Skript von Desktop aus ausführe, dann wird das aktive Fenster von IE aktualisiert:

Wenn ich das Skript in einer htm-Datei einbaue und ihr Pfad in der Registry in Standard REG_SZ für den jeweiligen Kontextmenü-Eintrag einfüge, dann aktualisiert sich das IE-Fenster beim Aufruf des Eintrages über das Kontextmenü leider nicht. So sieht die htm-Datei aus:

Ansonsten andere Codes, z. B. zum Ausführen einer Datei, funktionieren dagegen:

Würde das Aktualisieren eventuell ohne RunAs möglich sein (also ohne UAC/Kontensteuerungsabfrage) und wie?


Vielen Dank für eure Hilfe

Gruß
Evinben

' IE_RefreshKrams.vbs  
' für %windir% korrekten Pfad einsetzen oder expandieren:  
set oShell = CreateObject("Shell.Application")  
set wshell = CreateObject("Wscript.shell")  
oShell.ShellExecute "%windir%\System32\RUNDLL32.EXE", "inetcpl.cpl, ShowLanguageDialog"  
wscript.sleep(100)
wShell.Sendkeys "{ENTER}"  
wscript.quit
 

Option Explicit
Dim objShell, colWindows, objWindow, objDoc

Set objShell = CreateObject("Shell.Application")  
Set colWindows = objShell.Windows
For Each objWindow In colWindows
  If InStr(1, objWindow.FullName, "iexplore.exe", vbTextCompare) Then  
    Set objDoc = objWindow.Document
    objDoc.Location.Reload(True)
    WScript.Sleep 500
    Set objDoc = Nothing
  End if
Next
Set objWindow = Nothing
Set colWindows = Nothing
Set objShell = Nothing

'Falls sich z. B. die Namen der Kontextmenü-Einträge in der Registrierung geändert haben, kann mit diesem Skript 
'der Explorer aktualisiert werden, um die neuen Namen anzuzeigen. 
'Diese Lösung wird insbesondere dann nützlich, wenn Einträge im Kontextmenü des Internet Explorers 
'hinzugefügt werden, die als Umschalter (Switcher) arbeiten. 
'D. h. der Eintrag heißt einmal z. B. "Flash Player deaktivieren" und einmal "Flash Player aktivieren". 
'Vor der hier gefundenen Lösung zur Aktualisierung von IE, waren die Einträge im Kontextmenü daher doppelt vorhanden,  
'was nicht nur mehr Platz genommen hat und auch sehr unübersichtlich war, sondern vor allem zur Verwirrung gestiftet hat,  
'da für den Anwender der Stand der letzten Aktion nicht immer bekannt war. 


'[content:207775#846821]