易语言PHP网络验证

□黑玛蚁□

来看看，谢谢分享

雨寂

.版本 2

.程序集 程序集1
.程序集变量 是否已经注册, 逻辑型

.子程序 注册模块, , 公开
.参数 注册码

.如果 (注册码 ＝ 123)  ' 判断注册码的自己实现,这里只是举例
    是否已经注册 ＝ 真
.否则
    是否已经注册 ＝ 假
.如果结束


.子程序 普通功能, , 公开

.如果 (是否为调试版 ())
    信息框 (“调用 普通功能 成功”, 0, )
.否则
    .如果 (是否已经注册)
        信息框 (“调用 普通功能 成功”, 0, )
    .否则
        信息框 (“你的模块没有注册,只能使用调试版”, 0, )
    .如果结束

.如果结束


.子程序 高级功能, , 公开

.如果 (是否已经注册)
    信息框 (“你的模块没有注册,不能使用高级功能”, 0, )
.否则
    信息框 (“调用 高级功能 成功”, 0, )
.如果结束
.版本 2

.程序集 程序集1
.程序集变量 是否已经注册, 逻辑型

.子程序 注册模块, , 公开
.参数 注册码

.如果 (注册码 ＝ 123)  ' 判断注册码的自己实现,这里只是举例
    是否已经注册 ＝ 真
.否则
    是否已经注册 ＝ 假
.如果结束


.子程序 普通功能, , 公开

.如果 (是否为调试版 ())
    信息框 (“调用 普通功能 成功”, 0, )
.否则
    .如果 (是否已经注册)
        信息框 (“调用 普通功能 成功”, 0, )
    .否则
        信息框 (“你的模块没有注册,只能使用调试版”, 0, )
    .如果结束

.如果结束


.子程序 高级功能, , 公开

.如果 (是否已经注册)
    信息框 (“你的模块没有注册,不能使用高级功能”, 0, )
.否则
    信息框 (“调用 高级功能 成功”, 0, )
.如果结束

QQDHY

感谢楼主分享~~~{:3_244:}

独立团路飞

好东西啊  很不错唉   那走了！

kisl7979

来学习一下

我是你亲表哥

哈哈,这个得看看

wc19870727

什么以上啊看不懂

wc19870727

什么以上啊看不懂

slg

我来看看呵呵

lsjie520

{:3_236:}huifukankan