易语言调用大漠插件例子

yh3215 · 发表于 2018-2-8 16:56:20

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

变量名	类型	静态	数组	备注
当前版本	文本型			当前插件的版本号,如果更换插件,必须修改这个值
注册码	文本型			收费用户的注册码,在大漠插件网站后台获取
dm_ret	整数型

当前版本＝ “3.1220” ' 换版本必须改这个
注册码＝ “xxx” ' 免费用户不用理这个
' 步骤1. 把资源里打包的大漠插件释放出来，文件名改一下,避免和别人的冲突.
. ' 如果 (写到文件 (取运行目录 () ＋ “\dm_xx.dll”, #大漠件) ＝假)
' 信息框 (“写入文件失败,检测是否被别的程序占用”, 0, )
' 结束 ()

' 步骤2. 注册插件到系统
' 运行 (“regsvr32 dm_xx.dll -s”, 真, )
' 步骤3. 创建对象

如果 (dm.创建 (“dm.dmsoft”, ) ＝假)

信息框 (“创建对象失败,检查是否注册成功”, 0, )

结束 ()

' 步骤4. 检查版本号

如果 (dm.文本方法 (“ver”, ) ≠ 当前版本)

信息框 (“插件版本错误”, 0, )

结束 ()

' 步骤5. 收费用户注册插件如果是免费用户，可以略过这个步骤
' dm_ret ＝ dm.数值方法 (“Reg”, 注册码, “”)
. ' 如果 (dm_ret ≠ 1)
' 信息框 (“注册失败,返回值是” ＋到文本 (dm_ret), 0, )
' 结束 ()

' 步骤6. 收费用户可能会用到保护盾. 如果用不到这个盾,可以略过这个步骤
' dm_ret ＝ dm.数值方法 (“DmGuard”, 1, “xxx”)
. ' 如果 (dm_ret ≠ 1)
' 信息框 (“开启保护盾失败”, 0, )
' 结束 ()

' OK,到这里插件已经可以正常使用了。下面来演示线程里如何使用插件.

.版本 2<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 当前版本, 文本型, , , 当前插件的版本号,如果更换插件,必须修改这个值<br />
.局部变量 注册码, 文本型, , , 收费用户的注册码,在大漠插件网站后台获取<br />
.局部变量 dm_ret, 整数型<br />
<br />
当前版本 ＝ “3.1220”  ' 换版本必须改这个<br />
注册码 ＝ “xxx”  ' 免费用户不用理这个<br />
<br />
' 步骤1. 把资源里打包的大漠插件释放出来，文件名改一下,避免和别人的冲突.<br />
.' 如果 (写到文件 (取运行目录 () ＋ “\dm_xx.dll”, #大漠件) ＝ 假)<br />
    ' 信息框 (“写入文件失败,检测是否被别的程序占用”, 0, )<br />
    ' 结束 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 步骤2. 注册插件到系统<br />
' 运行 (“regsvr32 dm_xx.dll -s”, 真, )<br />
<br />
' 步骤3. 创建对象<br />
.如果 (dm.创建 (“dm.dmsoft”, ) ＝ 假)<br />
    信息框 (“创建对象失败,检查是否注册成功”, 0, )<br />
    结束 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 步骤4. 检查版本号<br />
.如果 (dm.文本方法 (“ver”, ) ≠ 当前版本)<br />
    信息框 (“插件版本错误”, 0, )<br />
    结束 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 步骤5. 收费用户注册插件  如果是免费用户，可以略过这个步骤<br />
' dm_ret ＝ dm.数值方法 (“Reg”, 注册码, “”)<br />
.' 如果 (dm_ret ≠ 1)<br />
    ' 信息框 (“注册失败,返回值是” ＋ 到文本 (dm_ret), 0, )<br />
    ' 结束 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 步骤6. 收费用户可能会用到保护盾. 如果用不到这个盾,可以略过这个步骤<br />
' dm_ret ＝ dm.数值方法 (“DmGuard”, 1, “xxx”)<br />
.' 如果 (dm_ret ≠ 1)<br />
    ' 信息框 (“开启保护盾失败”, 0, )<br />
    ' 结束 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' OK,到这里插件已经可以正常使用了。 下面来演示线程里如何使用插件.

调用例子.e (859.67 KB, 下载次数: 1514)

yangjia255 · 发表于 2024-5-1 21:35:33

感谢分享，最近正在学习

yangjia255 · 发表于 2024-5-1 21:35:16

开始学习学习

chikho · 发表于 2024-2-5 23:00:14

下载观摩一下

chikho · 发表于 2024-2-5 23:00:00

开始学习学习

181912068 · 发表于 2022-2-13 23:39:27

谢谢分享.

pypypy · 发表于 2022-1-6 15:06:18

看蒙了，最近越来越不懂了

pypypy · 发表于 2022-1-5 18:46:38

谢谢楼主分享

guairen · 发表于 2022-1-5 08:24:16

挖坟挖坟挖坟

guairen · 发表于 2022-1-5 08:23:48

6666666666666

shiyue十月 · 发表于 2021-12-27 10:20:11

6666666666666

		自动登录	找回密码
密码			注册

[易语言纯源码] 易语言调用大漠插件例子

点评

浏览过的版块