第二步：使用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）
暂无评论。