快速引用如何修改成快速粘贴呢? - 查看主题

最后由龙2009 编辑于 2009-06-28 13:36，总共编辑了 2 次

Button17, "快速引用"="Go to page, "javascript:{ta = window.document.getElementsByTagName('textarea'); ta[ta.length-1].value += '[quote]'+document.getSelection()+'[/quote]\n'; ta[ta.length-1].focus();}", 1, "快速引用", "Note Web""

怎么改成快速粘贴啊?

是已经在别的网页中复制了文本以后,要OP读取实现粘贴,就是说做成一个按钮,点一下就实现了粘贴功能,不用快捷键和右键粘贴,儿是用这个按钮来实现.

比如在A网页中复制了一段文字,然后我想点这个按钮粘贴到另外一个网页中去.

不太懂楼主的意思，快速引用的作用就是，把选择的内容粘贴到回复框里啊？
为什么要改成快速粘贴，那不是多此一举吗？
不知道你想表达的意思是不是想 “用鼠标选中文本后，自动实现复制并粘贴”，如果是这样的看这里http://bbs.operachina.com/viewtopic.php?f=41&t=43804，我也像高手请教过这个问题。

yuanziyou 写道:不太懂楼主的意思，快速引用的作用就是，把选择的内容粘贴到回复框里啊？
为什么要改成快速粘贴，那不是多此一举吗？
不知道你想表达的意思是不是想 “用鼠标选中文本后，自动实现复制并粘贴”，如果是这样的看这里http://bbs.operachina.com/viewtopic.php?f=41&t=43804，我也像高手请教过这个问题。

不是的这个按钮已经实现了自动实现复制并粘贴,
但是这个仅仅是对网页上选择的文字进行操作.有的时候我需要在外部文本里面复制出来就不行了.

我想要的是自动粘贴剪切板的内容.

就是我在外部文本复制的东西可以自动粘贴到文本框中

看昨天的帖子啊
viewtopic.php?f=30&t=45230
改JS我没办法

不过有另一种办法：

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{end}"
WScript.Sleep 200
WshShell.SendKeys "{tab}"
WScript.Sleep 200
WshShell.SendKeys "^v"
WScript.Sleep 200
WshShell.SendKeys "^{enter}"
WScript.Sleep 1500
WshShell.SendKeys "+z"

麻烦之处是不同的论坛得做不同的修改。

18green 写道:看昨天的帖子啊
viewtopic.php?f=30&t=45230
改JS我没办法

不过有另一种办法：
Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{end}" WScript.Sleep 200 WshShell.SendKeys "{tab}" WScript.Sleep 200 WshShell.SendKeys "^v" WScript.Sleep 200 WshShell.SendKeys "^{enter}" WScript.Sleep 1500 WshShell.SendKeys "+z"

呵呵这样做很麻烦, ,我是用上面的代码并且同时运行前几天研究的那个vb一块执行.

但是我不怎么想用vb
想用JS的可以实现后台操作. 免得老对我的QQ聊天造成伤害啊..

打了一个字给我发出去了...........

ddbb不是已经说了么？
如果你真要用vbs来执行的话还不如直接ahk或au3
可以指定特定窗口

opera本身是不能往剪切板里发送东西的.....他只有读取的功能.....能用在opera里的JS里.....

选择文字然后复制到剪切板单纯用JS在opera里是不可能的.......

如果说一定要用只能是调用flash里的COPY功能.....

或者是调用其他软件

最后由 18green 编辑于 2009-05-12 18:36，总共编辑了 4 次

自动聚焦到回复框

Item, "闪到回复框"="Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}""

然后再加上一个粘贴和发送就行了，加了一个VBS。

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{enter}"

最后按钮写法是：

button19, "闪回"="Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}",1, & delay, 200 & paste & delay, 200 & Execute program, "D:\Program Files\opera 10\optools\vbs\huitie.vbs", "闪", "闪""

这样就可以了。自动粘贴剪贴板内容并回复。 :2:

应该是JS跟VBS中间衔接的语法问题吧？请教

○○○○○○○○○╭╭╮╮╮灌水╭╭╭╮╮○○○○
○○○○○○○○○╰╰ ╮╮灌水╭╭ ╯╯○○○○○
○○○○○○○○○○○○○╰╮╭╯○○○○○○○○
○○◥█◣◢█◤○○○○○○╮╭○○○○○○○○○
○○○◥██◤○○○○◢█████◣○○○○○○○
○○○○◥█◣○○○◢███████◣○○○○○○
○○○○○██◣○◢███████●█◣○○○○○
○○○○○████████灌水嚕████○○○○○
○○○○○◥██████████████○○○○○
○ ﹏﹏﹏﹏~◥████████████◤﹏﹏﹏﹏○

成功了，不谢，呵呵，修改在9楼。不过还是没明白原来不行的原因。
:2:

我记得以前mk做过一个类似的工具吧，文本用的。

18green 写道:自动聚焦到回复框
Item, "闪到回复框"="Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}""
然后再加上一个粘贴和发送就行了，加了一个VBS。
Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "^{enter}"
最后按钮写法是：
button19, "闪回"="Go to page, "javascript:{ta=document.getElementsByTagName('textarea');ta[ta.length-1].focus();}",1, & delay, 200 & paste & delay, 200 & Execute program, "D:\Program Files\opera 10\optools\vbs\huitie.vbs", "闪", "闪""

这样就可以了。自动粘贴剪贴板内容并回复。

哈哈我早就这样做了,
但是vb会对全部的窗口执行我聊QQ 老妨碍我
因为我执行了几次提交..