[老狼] [老狼][源码分享]----简单的网络卡密[新]----遇见蔷薇泡沫(34) [复制链接]

原非开源帖子：[旧帖]命令库分享----PC按键----简单的网络卡密[第八章]
讲解如何获取和分割网络源文件知识：[老狼][源码分享]----实战采集英雄归来版面信息----被峨眉山猴子暴打的第十天(30)

简单的网络卡密源码下载：
'2021.11.11新建QQ交流群:８９１０５８９４６后续更新在本群发布
Function 验证(网址, 卡密)'参数1写微云Https分享链接，参数2写自定义的卡密
If instr(卡密, "Nvip") > 0 Then '2-5行纯属恶趣味 没具体用途
Else
验证 = "非法卡密"'如果不包含则返回 "非法卡密"
Exit Function
End If
网址 = Replace(网址, "https", "http")'将Https替换成http才支持get
网址get=lib.网络.获得网页源文件_增强版(网址,"utf-8")'get网络源文件并返回utf-8的文字格式
If instr(网址get, 卡密) = 0 Then '如果源文件不包含卡密(如果包含则条件应为>0)
验证 = "非法卡密"'如果不包含则返回 "非法卡密"
Exit Function
Else
时间 = split(卡密, "-")(2)'分割出卡密内含过期时间
网络时间 = Lib.算法.提取字串符中所有数字(Lib.网络.获取网络时间())'获取网络目前时间
If int(网络时间) < int(时间) Then '过期时间与目前时间进行对比
验证 = "正常使用"'如果包含则返回 "正常使用"
Else
验证="过期"'如果不包含则返回 "过气"
End If
End If
End Function

演化（用于脚本或命令库的使用限制）：

'完整代码路径:[老狼][源码分享]----N7命令库源码----被迫营业的第一天

Sub 命令库授权()
TracePrint "=========================================="
TracePrint "触发声明,作者QQ：１２２３１１６６１８,版本号：v３.０"
Dim 返回值1
If 命令授权 <> 520 Then
命令授权 = 111
//返回值=Httpget("https://share.weiyun.com/LTySDKH9")
返回值1= HttpgetEx2("http://n15976906190.usa3v.vip",1)
If instr( 返回值1, "|*V3.0*|") > 0 Then
TracePrint "授权成功，为避免后期个别功能泛滥并照成不好影响,不得不考虑加入. ...N7命令库永久免费,可放心用于项目"
命令授权 = 520
Else
TracePrint "抱歉,授权失败. ..."
命令授权 = 0
End If
Else
TracePrint "授权成功，为避免后期个别功能泛滥并照成不好影响,不得不考虑加入. ...N7命令库永久免费,可放心用于项目"
End If
End Sub