Alex Tarantul
Код у меня написан в сообщении выше, просто скрыт под тегом, чтоб его просмотреть, надо отредактировать ссобщение, ещё раз дублирую:
Код: # K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# ---------- Microsoft Internet Explorer ---------------------------------------------------------------------------
#
# Dependencies : main.kmm (Go), sendto.kmm (menus)
# Resources : -
# Preferences : -
#
# ------------------------------------------------------------------------------------------------------------------
IE_OpenPage{
macroinfo=_("Open page in Internet Explorer");
$_IE_Open=$URL; &_IE_Open;
}
IE_OpenLink{
macroinfo=_("Open link in Internet Explorer");
$_IE_Open=$LinkURL; &_IE_Open;
}
IE_OpenImage{
macroinfo=_("Open image in Internet Explorer");
$_IE_Open=$ImageURL; &_IE_Open;
}
IE_OpenURL{
macroinfo=_("Open URL Bar contents in Internet Explorer");
$__text=$URLBAR; $__text==""?$__text=$URL:0;
$_IE_Open=$__text; &_IE_Open;
}
# ----- PRIVATE
_IE_Open{
# try to locate the Program Files directory:
$__data=readreg("HKLM","SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\ProgramFilesDir");
$__data==""?$__data="C:\\"._("Program Files"):0;
# fallback command line:
$_IE="\"".$__data."\\Internet Explorer\\iexplore.exe\" %1";
# try to get IE's command line from the registry:
$__data=readreg("HKCR","Applications\\iexplore.exe\\shell\\open\\command\\");
# catch invalid IE7 registry data:
index($__data,".")>index($__data,"%1")?$__data="":0;
$__data==""?0:$_IE=$__data; exec(sub("%1",urldecode($_IE_Open),$_IE));
}
_IE_BuildMenu{
index($macroModules,";SendTo;")>-1?&_IE_BuildMenu_SendTo:&_IE_BuildMenu_Default;
}
_IE_BuildMenu_Default{
$__m="Open In &Internet Explorer";
setmenu(DocumentOpenExternal,macro,$__m,IE_OpenPage);
setmenu(LinkOpenExternal,macro,$__m,IE_OpenLink);
#setmenu(ImageOpenExternal,macro,$__m,IE_OpenImage);
setmenu(_Go_Open,macro,$__m,IE_OpenURL);
}
_IE_BuildMenu_SendTo{
$__m="&Internet Explorer";
setmenu($_SendTo_Page,macro,$__m,IE_OpenPage);
setmenu($_SendTo_Link,macro,$__m,IE_OpenLink);
#setmenu($_SendTo_Image,macro,$__m,IE_OpenImage);
setmenu($_SendTo_URL,macro,$__m,IE_OpenURL);
}
_IE_SetAccels{
setaccel("CTRL ALT I","macros(IE_OpenPage)");
}
$OnInit=$OnInit."_IE_SetAccels;_IE_BuildMenu;";
# ------------------------------------------------------------------------------------------------------------------
$macroModules=$macroModules."IE;";
Код у меня написан в сообщении выше, просто скрыт под тегом, чтоб его просмотреть, надо отредактировать ссобщение, ещё раз дублирую:
Код: # K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# ---------- Microsoft Internet Explorer ---------------------------------------------------------------------------
#
# Dependencies : main.kmm (Go), sendto.kmm (menus)
# Resources : -
# Preferences : -
#
# ------------------------------------------------------------------------------------------------------------------
IE_OpenPage{
macroinfo=_("Open page in Internet Explorer");
$_IE_Open=$URL; &_IE_Open;
}
IE_OpenLink{
macroinfo=_("Open link in Internet Explorer");
$_IE_Open=$LinkURL; &_IE_Open;
}
IE_OpenImage{
macroinfo=_("Open image in Internet Explorer");
$_IE_Open=$ImageURL; &_IE_Open;
}
IE_OpenURL{
macroinfo=_("Open URL Bar contents in Internet Explorer");
$__text=$URLBAR; $__text==""?$__text=$URL:0;
$_IE_Open=$__text; &_IE_Open;
}
# ----- PRIVATE
_IE_Open{
# try to locate the Program Files directory:
$__data=readreg("HKLM","SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\ProgramFilesDir");
$__data==""?$__data="C:\\"._("Program Files"):0;
# fallback command line:
$_IE="\"".$__data."\\Internet Explorer\\iexplore.exe\" %1";
# try to get IE's command line from the registry:
$__data=readreg("HKCR","Applications\\iexplore.exe\\shell\\open\\command\\");
# catch invalid IE7 registry data:
index($__data,".")>index($__data,"%1")?$__data="":0;
$__data==""?0:$_IE=$__data; exec(sub("%1",urldecode($_IE_Open),$_IE));
}
_IE_BuildMenu{
index($macroModules,";SendTo;")>-1?&_IE_BuildMenu_SendTo:&_IE_BuildMenu_Default;
}
_IE_BuildMenu_Default{
$__m="Open In &Internet Explorer";
setmenu(DocumentOpenExternal,macro,$__m,IE_OpenPage);
setmenu(LinkOpenExternal,macro,$__m,IE_OpenLink);
#setmenu(ImageOpenExternal,macro,$__m,IE_OpenImage);
setmenu(_Go_Open,macro,$__m,IE_OpenURL);
}
_IE_BuildMenu_SendTo{
$__m="&Internet Explorer";
setmenu($_SendTo_Page,macro,$__m,IE_OpenPage);
setmenu($_SendTo_Link,macro,$__m,IE_OpenLink);
#setmenu($_SendTo_Image,macro,$__m,IE_OpenImage);
setmenu($_SendTo_URL,macro,$__m,IE_OpenURL);
}
_IE_SetAccels{
setaccel("CTRL ALT I","macros(IE_OpenPage)");
}
$OnInit=$OnInit."_IE_SetAccels;_IE_BuildMenu;";
# ------------------------------------------------------------------------------------------------------------------
$macroModules=$macroModules."IE;";
