Pokud zvolíte v Internet Exploreru položku Zobrazit zdroj, standardně se spustí Poznámkový blok se zdrojovým textem stránky. Jak to změnit?
Pokud zvolíte v Internet Exploreru položku Zobrazit zdroj, standardně se spustí Poznámkový blok se zdrojovým textem stránky. Místo něj si můžete nastavit třeba svůj vlastní HTML editor. Problém je ale v tom, že Internet Explorer špatně předává dlouhé názvy souborů tomuto zvolenému programu, nedává je totiž do uvozovek a jiné programy tomu špatně rozumí. Je na to třeba tedy jít trochu oklikou a ty uvozovky si tam přidělat.
Nejprve je třeba navštívit registry. Přejděte do klíče
HKEY_LOCAL_MACHINE\Software \Microsoft\Internet Explorer
a v něm vytvořte nový klíč View Source Editor, ve kterém opět vytvoříte nový klíč Editor Name. Výchozí hodnotu v klíči
HKEY_LOCAL_MACHINE\Software \Microsoft\Internet Explorer \View Source Editor\Editor Name
potom nastavte na C:\Windows\VSOURCE.VBS. Můžete zde uvést libovolný spustitelný program, nicméně pro přidání uvozovek využijeme služeb Windows Scripting Hostu. Do poznámkového bloku zkopírujte následující zdrojový kód a uložte jej do složky Windows pod jménem VSOURCE.VBS.
'VSOURCE.VBS
'David Candy davidc@sia.net.au
'lokalizace a zjednodušení: Tomáš Holčík
'
' Zde uveďte jméno programu s případnými parametry
ProgName="C:\Program Files\Accessories\WORDPAD.EXE"
On Error Resume Next
Dim Sh
Set Sh = WScript.CreateObject("WScript.Shell")
Dim Ag
Set Ag = Wscript.Arguments
ReportErrors "vytváření objektů"
For x=0 to Ag.Count -1
CmdLine=CmdLine & Ag(x) & " "
Next
CmdLine = Chr(34) & CmdLine & Chr(34)
CmdLine = Chr(34) & ProgName & Chr(34) & " " & CmdLine
sh.run CmdLine
ReportErrors "spouštění programu"
Sub ReportErrors(strModuleName)
If err.number<>0 then Msgbox "Chyba při " & strModuleName _
& ". Chyba " & err.number& " - " & err.description & " type" ,_
vbCritical + vbOKOnly, "Chyba"
Err.clear
End Sub
Není třeba systém restartovat, změny se promítnou okamžitě. Například s uvedeným WordPadem to funguje spolehlivě.
