木子屋
 

标题: 按键精灵8插件开发示例

作者: dnawo

日期: 2010-09-28 02:57 PM

分类: Win编程

内容: 第一步：在按键精灵8安装目录下打开source文件夹，找到"QMPlugin插件制作模版(VB 6.0).zip"并解压；
第二步：使用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
第四步：在属性窗口中修改类模块(MyPlugin.cls)名称：
第五步：在VB6.0文件菜单下选择生成dll，保存为"Mzwu.dll"；
第六步：将Mzwu.dll复制到按键精灵8安装目录下的plugin文件夹中，重新打开精灵，在插件命令库中就可以看到它了：
调用示例
复制内容到剪贴板 程序代码MessageBox Plugin.Mzwu.GetInfo()
MessageBox Plugin.Mzwu.GetUrl(2618)

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.063 ms

标题: 按键精灵8插件开发示例

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.063 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.063 ms