上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
按键精灵8插件开发示例
编辑:dnawo 日期:2010-09-28
第一步：在按键精灵8安装目录下打开source文件夹，找到"QMPlugin插件制作模版(VB 6.0).zip"并解压；
第二步：使用Microsoft Visual Basic 6.0打开QMPlugin.vbp文件；
第三步：打开MyPlugin.cls，修改如下：
第四步：在属性窗口中修改类模块(MyPlugin.cls)名称：
第五步：在VB6.0文件菜单下选择生成dll，保存为"Mzwu.dll"；
第六步：将Mzwu.dll复制到按键精灵8安装目录下的plugin文件夹中，重新打开精灵，在插件命令库中就可以看到它了：
调用示例
第二步：使用Microsoft Visual Basic 6.0打开QMPlugin.vbp文件；
第三步：打开MyPlugin.cls，修改如下：
复制内容到剪贴板
程序代码
程序代码'私有函数
Private Function my_geturl(Id As Variant) As String
my_geturl = "http://www.mzwu.com/article.asp?id=" & Id
End Function
'公有方法,获取站点信息
Public Function GetInfo() As String
GetInfo = "名称：木子屋" & vbCrLf & "地址：http://www.mzwu.com/"
End Function
'公有方法,获取页面链接
Public Function GetUrl(Id As Variant) As String
GetUrl = my_geturl(Id)
End Function
'插件帮助信息(必需)
Public Function Get_Plugin_Description(ItemName As String) As String
Dim Description_Text As String
Description_Text = ""
Select Case ItemName
Case ""
Description_Text = "木子屋"
Case "GetInfo"
Description_Text = "获取站点信息"
Case "GetUrl"
Description_Text = "获取页面链接"
End Select
Get_Plugin_Description = Translate_Description(Description_Text)
End Function
'插件显示模板信息(必需)
Public Function Get_Plugin_Interpret_Template(ItemName As String) As String
Dim Description_Text As String
Description_Text = ""
Select Case ItemName
Case ""
Description_Text = "木子屋"
Case "GetInfo"
Description_Text = "获取站点信息"
Case "GetUrl"
Description_Text = "获取页面链接"
End Select
Get_Plugin_Interpret_Template = Translate_Description(Description_Text)
End Function
Private Function my_geturl(Id As Variant) As String
my_geturl = "http://www.mzwu.com/article.asp?id=" & Id
End Function
'公有方法,获取站点信息
Public Function GetInfo() As String
GetInfo = "名称：木子屋" & vbCrLf & "地址：http://www.mzwu.com/"
End Function
'公有方法,获取页面链接
Public Function GetUrl(Id As Variant) As String
GetUrl = my_geturl(Id)
End Function
'插件帮助信息(必需)
Public Function Get_Plugin_Description(ItemName As String) As String
Dim Description_Text As String
Description_Text = ""
Select Case ItemName
Case ""
Description_Text = "木子屋"
Case "GetInfo"
Description_Text = "获取站点信息"
Case "GetUrl"
Description_Text = "获取页面链接"
End Select
Get_Plugin_Description = Translate_Description(Description_Text)
End Function
'插件显示模板信息(必需)
Public Function Get_Plugin_Interpret_Template(ItemName As String) As String
Dim Description_Text As String
Description_Text = ""
Select Case ItemName
Case ""
Description_Text = "木子屋"
Case "GetInfo"
Description_Text = "获取站点信息"
Case "GetUrl"
Description_Text = "获取页面链接"
End Select
Get_Plugin_Interpret_Template = Translate_Description(Description_Text)
End Function
第四步：在属性窗口中修改类模块(MyPlugin.cls)名称：
第五步：在VB6.0文件菜单下选择生成dll，保存为"Mzwu.dll"；
第六步：将Mzwu.dll复制到按键精灵8安装目录下的plugin文件夹中，重新打开精灵，在插件命令库中就可以看到它了：
调用示例
复制内容到剪贴板 程序代码
程序代码MessageBox Plugin.Mzwu.GetInfo()
MessageBox Plugin.Mzwu.GetUrl(2618)
MessageBox Plugin.Mzwu.GetUrl(2618)
评论: 0 | 引用: 0 | 查看次数: 6811
发表评论
请登录后再发表评论！
