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

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