紫猫学院社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2572|回复: 14

[教程源码] 网络授权系统及多线程序控制

[复制链接]

16

主题

61

帖子

81

积分

按键电脑&手机班学员

紫猫助手

Rank: 8Rank: 8

猫粮
451
QQ
发表于 2019-1-20 22:00:42 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 ycploveyu 于 2019-1-20 22:03 编辑

[按键精灵] 纯文本查看 复制代码
Import "ShanHai.lua"
Dim 主程序Htread,s

//*****************定义变量********************//

Dim abc="gsds"                   //普通变量
Dim bca=array(12,45,"fs",true)   //数组

//____________________定义分隔线_________________//

//*****************变量线程传值********************//
Thread.SetShareVar "a值",abc  //把变量"abc"通过线程传入命令设置成"a值"
Thread.SetShareVar "b值",bca  //把变量"bca"数组 通过线程传入命令设置成"b值"
Delay 100
//____________________线程传值分隔线_________________//

//主程序是以线程序方式启动,主程序外的变量需要传入主程序内或其它子功能程序需要用到
//Thread.GetShareVar  这两个命令,这是获取
//Thread.SetShareVar  这两个命令,这是设置
//Thread.SetShareVar "a值",abc  一定要放在 Call 授权() 之上调用,否则无效

Call 授权()
//下面是主程序.
Sub 主程序
    //这里写自己要的程序
    
    //*****************获取变量线程传值********************//
    
    Dim GetA值,GetB值
    GetA值=Thread.GetShareVar("a值")  //获取"a值"
    TracePrint "GetA值",GetA值
    GetB值=Thread.GetShareVar("b值")  //获取"b值"数组
    
//____________________获取变量线程传值分隔线_________________//


    //以下是测试数组传入
    For i = 0 To UBOUND(GetB值) - 1
        TracePrint "GetB值",GetB值(i)
    Next
    For 5
        //以下是授权判断是否成功,失败则停止脚本,成功则运行你的程序.
        Delay 3000
        ShowMessage "欢迎使用XX辅助"
        TracePrint "欢迎使用XX辅助"
    Next 
    Call 功能子程序()
End Sub
Sub 功能子程序()
    //所有的子程序都需要使用Thread.GetShareVar命令来获取值
    //*****************获取变量线程传值********************//
    
    Dim GetA值,GetB值
    GetA值=Thread.GetShareVar("a值")  //获取"a值"
    TracePrint "GetA值",GetA值
    GetB值=Thread.GetShareVar("b值")  //获取"b值"数组
    
//____________________获取变量线程传值分隔线_________________//
    //以下是测试数组传入
    For i = 0 To UBOUND(GetB值) - 1
        TracePrint "功能子程序GetB值",GetB值(i)
    Next
End Sub



/*
功能:网络授权,网络注册系统
分辨率:所有分辨率 
适合群体:
1\新同学学按键,又不知道怎么控制你的用户使用授权(时间)
2\使用按键自带的很贵,吃不消
3\自己租服务器自己写,又不会,又怕被人破解,而且有租服务器的钱给Alan授权作者补贴下作者服务器用费
4\有不定期的更新及脚本,可以参照下例子所写的代码授权优势:只需要一部能上网装有QQ软件就能随时随地的把用户掌握在手中
如何使用: 
只需要加入Alan授权QQ:3300350859 回复菜单
*/


////===============================================================================///
Sub 授权()
    Dim 用户帐号=ReadUIConfig("帐号")  //UI界面  帐号要求用户必须是数字,否则授权不了.
    Dim 用户密码=ReadUIConfig("密码")  //UI界面
    Dim 程序 = True
    TracePrint 用户帐号,用户密码
    Dim LoginUrl,登录,pant,value
    //下面的接口是登录Proxy代理值是由QQ回复(取接口)自动生成
    LoginUrl = "http://authorization.dcrcty.com/empower/Login.php?Proxy=3463945085&QQ=" & 用户帐号 & "&password=" & 用户密码
    Do
        TracePrint "正在登录"
        ShowMessage "正在登录"
        登录 = shanhai.GetHttp(LoginUrl)
        TracePrint 登录
        Delay 1000
    Loop While 登录=""
    Select Case 登录   
    Case "Registration is successful"   
        TracePrint "注册成功"
        ShowMessage "注册成功"
        EndScript    
    Case "login has failed"   
        TracePrint "注册失败,请向作者反应"
        ShowMessage "注册失败,请向作者反应"
        EndScript       
    Case "User existence"   
        TracePrint "帐户已经存在"
        ShowMessage "帐户已经存在"
        EndScript      
    Case "Invalid Token value"   
        TracePrint "无效Token值"
        ShowMessage "无效Token值"
        EndScript    
    Case "Upper limit of quantity"   
        TracePrint "数量已达上限"
        ShowMessage "数量已达上限"
        EndScript     
    Case "Expiry of authorization"
    
        TracePrint "授权过期"
        ShowMessage "授权过期"
        EndScript
    Case "Unauthorized account number"
        TracePrint "当前帐号未授权"
        ShowMessage "当前帐号未授权"
        EndScript      
    Case "Password error"   
        TracePrint "密码错误"
        ShowMessage "密码错误"
        EndScript     
    Case "please login with the account number"   
        TracePrint "当前IP已注册过,请用帐号登陆"
        ShowMessage "当前IP已注册过,请用帐号登陆"
        EndScript
    Case "Erroneous agent" 
        TracePrint "错误代理"
        ShowMessage "错误代理"
        EndScript
    End Select
    Dim talbeV = Encode.JsonToTable(登录)
    Dim 到期时间= talbeV["Date"]
    ShowMessage "到期时间:" & 到期时间
    TracePrint "到期时间:" & 到期时间 
    Delay 3000
    Dim token= talbeV["token"] 
    pant = "http://authorization.dcrcty.com/empower/pant.php?QQ="&用户帐号&"&token="&token
    //如果循环心跳功能切记加入延时
    Do
        value = shanhai.GetHttp(pant)
        TracePrint value
        If value = "true" Then 
            If 程序 = True Then   //这里写个开关,以防下面主程序重复启动
                程序 = False
                Thread.Start 主程序 ////检测授权成功时,启动主程序
            End If
        Else
            EndScript  //检测授权失效时停止主程序及授权子程序
        End If
        //value:成功登录并且有效token值将返回"true",失败将返回:Invalid Token value
        //一条Token停止使用时,在60分钟内失效,失效后需要重新获取,如在授权限期内将一直有效
        Delay 5000
    Loop
    //如果你对多线程熟悉可将心跳功能以多线程形式运行将value心跳返回值作为授权成功的依据        
End Sub







Alan授权安卓多线程授权.mqb

2.82 KB, 下载次数: 41, 下载积分: 猫粮 -1

授权多线程例子

承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!
回复

使用道具 举报

1

主题

92

帖子

92

积分

按键电脑&手机班学员

QQ 262832680

Rank: 8Rank: 8

猫粮
1132
发表于 2019-1-21 10:06:43 | 显示全部楼层
看不懂啊 但是感觉十分牛逼 可以开课吗
全职接单[POST,滑块,去广告,云配置,收徒]办公 各种全自动脚本 游戏不接QQ 262832680
回复

使用道具 举报

0

主题

4

帖子

4

积分

按键电脑&手机班学员

Rank: 8Rank: 8

猫粮
38
发表于 2019-1-22 14:17:41 | 显示全部楼层
只能用厉害一个字支持
回复

使用道具 举报

0

主题

4

帖子

19

积分

按键电脑&手机班学员

Rank: 8Rank: 8

猫粮
15
发表于 2019-1-30 17:06:02 | 显示全部楼层
写的不错
回复

使用道具 举报

0

主题

2

帖子

2

积分

学前班

Rank: 1

猫粮
3
发表于 2019-1-30 17:08:54 | 显示全部楼层
谢谢  学习了
回复

使用道具 举报

0

主题

7

帖子

7

积分

学前班

Rank: 1

猫粮
10
发表于 2020-10-18 13:20:59 | 显示全部楼层
o(∩_∩)oo(∩_∩)oo(∩_∩)oo(∩_∩)o
回复

使用道具 举报

0

主题

9

帖子

9

积分

学前班

Rank: 1

猫粮
4
发表于 2020-10-21 16:50:18 | 显示全部楼层
回复猫粮
回复

使用道具 举报

29

主题

108

帖子

113

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
368
发表于 2020-10-21 19:22:53 | 显示全部楼层
简单的分析一下,将网络验证放在了主线程,脚本主体放在了协程上,验证有效期内可以持续运行
回复

使用道具 举报

0

主题

102

帖子

102

积分

小学生

Rank: 2

猫粮
234
发表于 2020-12-10 15:35:58 | 显示全部楼层
666666666666
回复

使用道具 举报

0

主题

31

帖子

31

积分

小学生

Rank: 2

猫粮
3
发表于 2021-2-13 02:23:08 | 显示全部楼层
看着还是挺NB的!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学院  

GMT+8, 2021-4-24 00:30

Powered by Discuz! X3.4

Copyright © 2012-2020 紫猫编程学院

快速回复 返回顶部 返回列表