king_stiven
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 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;"; | Мне надо, чтоб ссылка передавалась в мою программу, в данном случае *.bat файл, необязательно данный макрос, любой макрос. | Всего записей: 2229 | Зарегистр. 17-07-2006 | Отправлено: 08:32 04-03-2013 | Исправлено: king_stiven, 08:33 04-03-2013 |
|