IE11 になって、開発者ツールからのソースエディタの変更が見当たらないようなんですが、過去のツールを書き直して用意しました。もちろん、レジストリを直接書き換えても OK です。
全て VBScript のみで実行しています。ですから、ウインドウの表示が、現在表示しているウインドウに隠れたりするので注意して下さい。 ieSrcEditor.wsf をエクスプローラから実行すると、ファイルを参照するダイアログが開きます。内部のコードは以下のようになっていますが、必要な関数等はインターネット上に保存して使用しています。ここでは、ローカルのファイルを開いてパスを取得する為に、InternetExplorer.Application を使用しているのですが、その部分のみ ieSrcEditor.wsf に関数記述しました。 アンインストールは、uninstall.reg をエクスプローラから実行します。内部は、Microsoft の仕様によるレジストリエントリの削除記述となっています。ですから、実際削除を行うのは、regedit.exe です。
<JOB>
<COMMENT>
************************************************************
WEB WSH 実行スケルトン
************************************************************
</COMMENT>
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' 管理者として実行を強制する
Set obj = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
obj.ShellExecute "wscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1
Wscript.Quit
end if
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "wmiReg.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )
' **********************************************************
' エディタ選択
' **********************************************************
strValue = OpenLocalFileName
if strValue = "" then
Wscript.Quit
end if
' **********************************************************
' レジストリ
' **********************************************************
strPath = "SOFTWARE\Microsoft\Internet Explorer\View Source Editor\Editor Name"
Call WMIRegCreateKey( HKEY_LOCAL_MACHINE, strPath )
strValue = Dd( strValue )
Call WMIRegSetStringValue( HKEY_LOCAL_MACHINE, strPath, Empty, strValue )
MsgOk( strValue & " を IE のソースエディタとして登録しました" )
Function OpenLocalFileName( )
Call GetObj( "IEDocument", "InternetExplorer.Application" )
IEDocument.Navigate( ScriptDir( ) & "\local.htm" )
IEDocument.document.getElementsByTagName("BODY")(0).innerHTML = "<input id=FilePath type=file>"
IEDocument.document.getElementById("FilePath").click
if IEDocument.document.getElementById("FilePath").value = "" then
OpenLocalFileName = ""
IEDocument.Quit
Set IEDocument = Nothing
Exit Function
end if
OpenLocalFileName = IEDocument.document.getElementById("FilePath").value
IEDocument.Quit
Set IEDocument = Nothing
End Function
</SCRIPT>
</JOB>
|
|
【IEの最新記事】
- IE11 で『安全だとマークされていないActiveX』を使用可能にして実行可能な Windows 処理のサンプル
- IE11 で VBScript を使う場合の注意事項 ( 古い社内アプリ移行時必見 )
- いまさらですが、IE9 を含むそれ以前の URL の QueryString の解釈のバグ
- IE で URL に username:password を含めて基本認証を可能にするには
- IE11 の 互換表示機能に関するいくつかの問題
- IE : URLに使用可能な文字数
- IE11 でドキュメントモードを変更して IE8 として VBscript から jQuery にアクセスする
- IE11 で、ソースマップを使用して圧縮された JavaScript のコードを圧縮する前の状態でデバッグする
- IE のポップアップブロックの設定を最強にすると、_blank のリンクは CTRLとALT キーを押しながらクリックする必要があります
- IEの設定 : 混在したコンテンツ(HTTPS ページに HTTP の IFRAME や スクリプト)を表示すると、『このページにはセキュリティで保護されているコンテンツのみ表示されます』とブラウザ下..
- IEによる JavaScriptのセキュリティ上の制限とその解除
- IEの設定 : 信頼済みサイトに移動する時にダイアログを表示しないようにする
- IE11で、古いコードを IE8 のエミュレート時のみで起こる酷いバグ( option.text に文字列をセットするとリストボックスが選択できなくなります )
- IE11 : 実行済みのページのソースをクリップボードにコピーする
- IE8 までは、ブロック要素でなくても『page-break-after』は動作してました。というか、正式ドキュメントにそう書いてあります。
- Internet Explorer 用のセキュリティ更新プログラム (2965111) / あの IE の不始末の完全対応です
- IE の不始末の回避策( IEの深刻なゼロデイ脆弱性 )
- IE の全く役に立たない『閉じたタブをもう一度開く』
- IE11 の URL の最大長はあいかわらず 2083 でした。他のブラウザは三万超えているのに・・・
- IE11 では、バージョンベクタが動作しないので結構困った事です
