软件注册DLL思路

最新推荐文章于 2023-02-24 15:10:57 发布

月下赏禅

最新推荐文章于 2023-02-24 15:10:57 发布

阅读量515

点赞数

分类专栏：编程

编程专栏收录该内容

38 篇文章 0 订阅

订阅专栏

.版本 2
.支持库 eAPI
.支持库 dp1
.支持库 EXMLParser
.支持库 internet

.程序集程序集1
.程序集变量 cpu信息, CPU信息
.程序集变量分割包, 文本型, , "0"
.程序集变量数据储存, 文本型

.子程序 _启动子程序, 整数型, 公开, 请在本子程序中放置动态链接库初始化代码

数据储存＝接口_硬件信息 ()
处理事件 ()
分割包＝分割文本 (数据储存, “|”, )
处理事件 ()
WP初始数据库 (“ht” ＋ “tp://w” ＋ “ww.b” ＋ “oby” ＋ “cn.com/my_vip/WP” ＋ “asp3.asp”, “user” ＋ “vip.asp”)
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 返回值被忽略。

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

.子程序接口_硬件信息, 文本型, 公开, '取硬件信息
.局部变量硬盘特征字, 长整数型
.局部变量 CPU序号, 文本型
.局部变量取本机名称, 文本型
.局部变量返回文本, 文本型
.局部变量最后注册码, 文本型

硬盘特征字＝取硬盘特征字 ()
CPU序号＝取文本左边 (cpu信息.序列号, 17)
返回文本＝到文本 (硬盘特征字 × 1987) ＋ CPU序号
返回文本＝子文本替换 (返回文本, “-”, “1020763500”, , 1, 真)
返回文本＝取数据摘要 (到字节集 (返回文本))
返回文本＝到大写 (取数据摘要 (到字节集 (返回文本)))
最后注册码＝返回文本
返回文本＝接口_查询注册码 (返回文本)
返回 (最后注册码＋ “|” ＋返回文本)

.子程序接口_查询注册码, 文本型, 公开, 取回消息
.参数返回文本, 文本型
.局部变量 xml, XML树

xml.导入 (HTTP读文件 (#URL ＋返回文本＋ “.xml”))
返回文本＝ xml.取属性值文本 (“硬件信息/客户资料”, “身份证号码”, ) ＋ “|” ＋ xml.取属性值文本 (“硬件信息/客户资料”, “姓名”, ) ＋ “|” ＋ xml.取属性值文本 (“硬件信息/客户资料”, “联系电话”, ) ＋ “|” ＋ xml.取属性值文本 (“硬件信息/客户资料”, “QQ”, )
处理事件 ()
返回 (返回文本)

.子程序接口_验证, 文本型, 公开
.参数是否, 逻辑型
.局部变量 Sql, 文本型
.局部变量合计, 文本型
.局部变量值, 文本型
.局部变量有效, 文本型

WP加强查询 (“select * from sys where server='有效'”)
.如果真 (WP取记录内容 (1, 1) ≠ “有效”)
    返回 (“失败”)
    结束 ()
.如果真结束
.如果真 (是否＝真)
    Sql ＝ “select * from users where name='” ＋分割包 [1] ＋ “'”
    WP加强查询 (Sql)
    处理事件 ()
    .如果真 (WP取记录数 () ≠ 1)
        处理事件 ()
        WP加强查询 (Sql)
        .如果真 (WP取记录数 () ≠ 1)
            .如果真 (WP新增记录 (“users”, “name”, 分割包 [1]) ≠ 1)
                Sql ＝ “INSERT INTO users (name,regdate,ip,yp) VALUES ('” ＋分割包 [1] ＋ “','” ＋到文本 (WP取服务器时间 ()) ＋ “','” ＋ WP取当前IP () ＋ “','” ＋到文本 (取硬盘特征字 ()) ＋ “')”
                .如果真 (WP执行SQL (Sql) ≠ 1)
                    Sql ＝ “INSERT INTO users (name,regdate,ip,yp) VALUES ('” ＋分割包 [1] ＋ “','” ＋到文本 (WP取服务器时间 ()) ＋ “','” ＋ WP取当前IP () ＋ “','” ＋到文本 (取硬盘特征字 ()) ＋ “')”
                    WP执行SQL (Sql)
                .如果真结束

.如果真结束

        .如果真结束
        处理事件 ()
    .如果真结束
    合计＝到大写 (取数据摘要 (到字节集 (分割包 [3] ＋分割包 [2]))) ＋到大写 (取数据摘要 (到字节集 (分割包 [4] ＋分割包 [5]))) ＋到大写 (取数据摘要 (到字节集 (分割包 [1])))
    处理事件 ()
    值＝ WP取记录内容 (1, 3)
    处理事件 ()
    有效＝ WP取记录内容 (1, 4)
    处理事件 ()
    .如果真 (有效＝ “有效”)
        .如果真 (合计 ≠ 值)
            返回 (“失败”)
            结束 ()

.如果真结束

.如果真结束
返回 (“成功”)

.子程序接口_消息, 文本型, 公开
.局部变量消息, 文本型

WP加强查询 (“select * from ad where 开启='开启'”)
.如果真 (WP取记录内容 (1, 4) ＝ “开启”)
消息＝ WP取记录内容 (1, 1) ＋ “|” ＋ WP取记录内容 (1, 3) ＋ “|” ＋ WP取记录内容 (1, 2)
返回 (消息)
.如果真结束
返回 (“假”)

.子程序接口_注册是否, 逻辑型, 公开
.局部变量有效, 文本型
.局部变量合计, 文本型
.局部变量值, 文本型
.局部变量 Sql, 文本型

Sql ＝ “select * from users where name='” ＋分割包 [1] ＋ “'”
WP加强查询 (Sql)
合计＝到大写 (取数据摘要 (到字节集 (分割包 [3] ＋分割包 [2]))) ＋到大写 (取数据摘要 (到字节集 (分割包 [4] ＋分割包 [5]))) ＋到大写 (取数据摘要 (到字节集 (分割包 [1])))
值＝ WP取记录内容 (1, 3)
.如果真 (合计 ≠ 值)
返回 (假)
结束 ()
.如果真结束
返回 (真)

.子程序接口_版本, 文本型, 公开
.参数版本, 文本型
.局部变量 a, 文本型

WP加强查询 (“select * from sys where 版本='” ＋版本＋ “'”)
a ＝ WP取记录内容 (1, 2)
返回 (a)

收藏于 2010-11-15