按键精灵接码例子_爱乐赞

Import "ShanHai.lua"
Dim 手机号,验证码,令牌,接码返回值,计时器
Function 爱乐赞接码(接码)
    Dim 释放,项目ID
    项目ID = "43837"
    //获取令牌
    If 接码 = 1 Then 
        Dim API账号,密码
        API账号 = ReadUIConfig("API账号","******")
        密码 = ReadUIConfig("密码2","******")
        TracePrint API账号
        TracePrint 密码
        ShowMessage "开始获取爱乐赞令牌,请稍后", 1000, 0, 100
        Delay 1000
        Do
           令牌 = URL.Get("http://api.hellotrue.com/api/do.php?action=loginIn&name=" & API账号 & "&password=" & 密码 )
            If Mid(令牌, 1, 1) = "1" Then 
                TracePrint 令牌
                令牌 = Split(令牌, "|")
                令牌 = 令牌(1)
                ShowMessage 令牌, 1000, 0, 200
                TracePrint 令牌
                Delay 1000
                Exit Do
            Else 
                TracePrint  令牌
                ShowMessage 令牌, 1000, 0, 200
                Delay 2000
                ShowMessage "令牌获取失败,重新获取",1000,0,200
                Delay 2000
      
            End If
    
        Loop
  
    End If 

    //获取号码
    If 接码 = 2 Then 
        ShowMessage "开始手机号,请稍后", 1000, 0, 100
        Delay 1000
        Do 
            Rem 重新获取
            手机号 = URL.Get("http://api.hellotrue.com/api/do.php?action=getPhone&sid=" & 项目ID & "&token=" & 令牌)
            TracePrint 手机号
           If Mid(手机号, 1, 1) = "1" Then 
                TracePrint 手机号
                手机号 = Split(手机号, "|")
                手机号 = 手机号(1)
                ShowMessage 手机号, 1000, 0, 100
                TracePrint 手机号
                Exit Do
            Else 
               TracePrint  手机号
                ShowMessage 手机号, 1000, 0, 100
                Delay 2000
                ShowMessage "手机号获取失败,重新获取",1000,0,200
                Delay 2000
            End If
    
        Loop 

    End If

    //获取验证码
    If 接码 = 4 Then 
        ShowMessage "开始验证码,请稍后", 1000, 0, 100
        Delay 2000
        计时器 = 0
        Do				
            计时器 = 计时器 + 1		
            验证码 = URL.Get("http://api.hellotrue.com/api/do.php?action=getMessage&sid=" & 项目ID & "&phone=" & 手机号 & "&token=" & 令牌 & "&author=li302892520")				
            If Mid(验证码, 1, 1) = "1" Then 			
                TracePrint 验证码			
                验证码 = Split(验证码, "|")
                验证码 = 验证码(1)			
                ShowMessage 验证码
                TracePrint 验证码			
                Delay 2000
                验证码 = mid(验证码,1,len(验证码))
                TracePrint 验证码		
                ShowMessage "过滤验证码,请稍后", 1000, 0, 100
                Delay 1000
                验证码 = 过滤数字(验证码)
                TracePrint 验证码
                ShowMessage 验证码		
                Exit Do			
            ElseIf 计时器 = 13 Then			
                释放 = URL.Get("http://api.hellotrue.com/api/do.php?action=cancelRecv&sid=" & 项目id & "&phone=" & 手机号 & "&token=" & 令牌)
                ShowMessage "获取超时,释放号码" & 释放, 1000, 0, 100
                Delay 300			
                接码返回值 = 5
                Exit Function
                Exit Do			
            Else 			
                TracePrint  验证码 & "   12/" & 计时器
                ShowMessage 验证码 & "   12/" & 计时器
                Delay 4000			
            End If
        
        Loop 
    End If
End Function


Function 过滤数字(内容)
    dim a(5),q=0
    for i=0 to 9
        if utf8.instr(1,内容,i)>0 then
            a(q)=utf8.instr(1,内容,i)
            q=q+1
        end if
    next
    a= shanhai.sort(a, false)
    过滤数字=UTF8.mid(内容,a(0),4) 
End Function