首 页 » 软件使用 » 给opera增加添加到qq表情功能

给opera增加添加到qq表情功能

[ 2008-02-14 08:00 | 浏览次数: 1次 | 0条评论 ]

通过以下vbs脚本即可添加qq表情


脚本内容:
‘此脚本给opera增加添加到QQ表情的功能
‘作者: hgyxb
‘主页: http://www.leruan.cn
‘完成日期: 2008.2.5
dim strUrl
If Wscript.Arguments.Count < 1 Then
MsgBox(“没有qq表情地址传进!”)
WScript.Quit
End If
Set objIE = CreateObject(“InternetExplorer.Application”)
objIE.visible=false

strUrl = Wscript.arguments.Item(0)
objIE.Navigate(strUrl)
While objIE.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until objIE.ReadyState=4

call AddtoQQFace(strUrl)
Sub AddtoQQFace(strUrl)
set activex= CreateObject(“QQCPHelper.CPAdder”)
if err<>0 then
MsgBox(“您未安装QQ或者本地的QQ文件已经被破坏!”)
else
‘ MsgBox(strUrl)
activex.AddCustomEmotion(strUrl)
end if
End Sub

将qqface.vbs(就是上面的内容)放到系统目录
在菜单配置文件中添加
[Image Link Popup Menu]
Item, “添加到qq表情”=Copy image address& Execute program, “qqface_.vbs”,”%c”
[Image Popup Menu]
Item, “添加到qq表情”=Copy image address& Execute program, “qqface_opera.vbs”,”%c”
即可

如果嫌麻烦,下面是用opera扩展工具做的安装文件

下载安装即可(需要opera扩展工具)

下载地址:

http://www.fs2you.com/files/a830b0bd-da0e-11dc-94ec-00142218fc6e/

您可以任意转载本文,但转载时请勿删除作者信息。
作者:hgyxbll,原文链接:http://shashanzhao.com/archives/620.html
上一篇: | 下一篇:

沙发为空,还不快枪?[点此发言]

目前还没有任何评论.