************************************************************ IE 拡張メニューインストーラ ■手書きブログ用カスタムカラー保存・復帰 ■著作権その他 このプログラムはフリーです。どうぞ自由に御使用ください。 著作権は作者である私(lightbox)が保有しています。 また、本ソフトを運用した結果については、作者は一切責任を 負えせんのでご了承ください。 ************************************************************ ******** ●ここを変更● ******** Dim WshShell,RegName,strSwf,strWork,objstr Set WshShell = CreateObject("WScript.Shell") RegName = "−★手書きブログ用カスタムカラー保存・復帰" ' ************************************************* ' ウインドウサイズ ' ************************************************* window.dialogWidth = "400px" window.dialogHeight = "450px" ' window.dialogTop = "100px" window.dialogLeft = (window.screen.width/2)&"px" Dim pageType pageType = "VEditPallet" strLocation = external.menuArguments.location if instr(strLocation,"VEditPallet") = 0 then document.write "<"&"STYLE type=""text/css"">" document.write ".update { display:none; }" document.write "<"&"/STYLE>" pageType = "VEditBlog" end if if instr(strLocation,"VCreateDot") <> 0 then pageType = "Heart" end if if pageType <> "Hear" then on error resume next strSwf = external.menuArguments.document.getElementById("ColorButton").innerHTML on error goto 0 if instr(strSwf,"OProfile2") <> 0 then pageType = "OProfile2" end if if instr(strSwf,"OEditLink2") <> 0 then pageType = "OEditLink2" end if if instr(strSwf,"OProfileD0_2") <> 0 then pageType = "OProfileD0_2" end if if instr(strSwf,"OProfileD1_2") <> 0 then pageType = "OProfileD1_2" end if if instr(strSwf,"OEditTitle2") <> 0 then pageType = "OEditTitle2" end if if instr(strSwf,"OEditPartsMain2") <> 0 then pageType = "OEditPartsMain2" end if if instr(strSwf,"OEditPartsSide2") <> 0 then pageType = "OEditPartsSide2" end if if instr(strSwf,"OEditBlogParts2") <> 0 then pageType = "OEditBlogParts2" end if if instr(strSwf,"OEditDefaultComment2") <> 0 then pageType = "OEditDefaultComment2" end if if instr(strSwf,"OComment") <> 0 then pageType = "OComment" end if if instr(strSwf,"OEditMessage") <> 0 then pageType = "OEditMessage" end if end if on error resume next ExecuteGlobal "function dummy(): end function" on error goto 0 手書きブログ専用 カスタムパレットツール

※ 本体の色見本も変更されます
※ 設定するまで変更はされません





( 設定している必要はありません )








ページ(0が最初) 
]]>