因为不懂技术，不知道还有更精简直接的方法不？请指教。
我的这个方法是从那个快速引用（BBCODE）和VBS修改综合而来。
论坛灌水时，经常有想在当前页面复制一段文字后直接回帖的时候。这个右键就是实现此目的。
1、假设 D:\Opera\profile\vbs\op_enter_ctrl.vbs 如下：
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{enter}"
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{enter}"
2、在menu.ini的[Hotclick Popup Menu]下添加：
Item, 快速回帖 = Go to Page,"javascript:(function(){var s=window.getSelection().toString();s=s;var fs=document.getElementsByTagName('form');var f;var tArea=0;for(var i=fs.length-1;i>=0;i--){f=fs[i];for(var j=f.elements.length-1;j>=0;j--){var el=f.elements[j];if(el.name){if(el.tagName == 'TEXTAREA'){tArea=1;break;}}}if(tArea){break;}}if(el&&el.tagName=='TEXTAREA'){el.value+=s+'\r\n';el.select();el.focus();var r=document.selection.createRange();r.collapse(false);r.select();}})()",,,"no"" & Delay, 100 & Execute program , "D:\Opera\profile\vbs\op_enter_ctrl.vbs"
Item, 快速回帖后关闭页面 = Go to Page,"javascript:(function(){var s=window.getSelection().toString();s=s;var fs=document.getElementsByTagName('form');var f;var tArea=0;for(var i=fs.length-1;i>=0;i--){f=fs[i];for(var j=f.elements.length-1;j>=0;j--){var el=f.elements[j];if(el.name){if(el.tagName == 'TEXTAREA'){tArea=1;break;}}}if(tArea){break;}}if(el&&el.tagName=='TEXTAREA'){el.value+=s+'\r\n';el.select();el.focus();var r=document.selection.createRange();r.collapse(false);r.select();}})()",,,"no" & Delay, 100 & Execute program , "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 2000 & Close Page & Switch to next page
3、http://bbs.operachina.com/viewtopic.php?f=30&t=45273
根据这个帖子继续，右键也可以这样。
在menu.ini的[Hotclick Popup Menu]下添加：
Item, 快速回帖 = copy & delay, 200 & Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}" & delay, 200 & paste & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs"
Item, 快速回帖后关闭页面 = copy & delay, 200 & Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}" & delay, 200 & paste & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1500 & Close Page & Switch to next page
Item, 快速回帖后到论坛首页 = copy & delay, 200 & Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}" & delay, 200 & paste & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1000 & Go to parent directory
Item, 快速回帖后关闭页面 = copy & delay, 200 & Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}" & delay, 200 & paste & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1500 & Close Page & Switch to next page
Item, 快速回帖后到论坛首页 = copy & delay, 200 & Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}" & delay, 200 & paste & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1000 & Go to parent directory
或者：
Item, 快速回帖 = Go to Page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].value+=document.getSelection();ta[ta.length-1].focus();}",,,"no" & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs"
Item, 快速回帖后关闭页面 = Go to Page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].value+=document.getSelection();ta[ta.length-1].focus();}",,,"no" & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1500 & Close Page & Switch to next page
Item, 快速回帖后到论坛首页 = Go to Page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].value+=document.getSelection();ta[ta.length-1].focus();}",,,"no" & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1000 & Go to parent directory
Item, 快速回帖后关闭页面 = Go to Page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].value+=document.getSelection();ta[ta.length-1].focus();}",,,"no" & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1500 & Close Page & Switch to next page
Item, 快速回帖后到论坛首页 = Go to Page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].value+=document.getSelection();ta[ta.length-1].focus();}",,,"no" & delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs" & Delay, 1000 & Go to parent directory
4、如果从其它处复制后直接在当前页面提交。
右键代码(menu.ini的[Document Popup Menu]下添加)：
Item, 快速回帖 = Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}", 1, "快速回帖", "no" & Delay, 200 & Paste & Delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs"
按钮代码：
Button, "快速回帖"="Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}", 1, "快速回帖", "no" & Delay, 200 & Paste & Delay, 200 & Execute program, "D:\Opera\profile\vbs\op_enter_ctrl.vbs", "快速回帖", "no""
注：相应路径的修改请注意。
