安卓按键精灵_通用手机号(获取短信)API封装函数

dim token,GetPhone,
Function GetPhoneKn()
    //登录
    Do      
        result = URL.Get("http://www.98lm.com/api.php?action=Login&user="&账号&"&pwd="&密码) //获取网页源码
        TracePrint result
        If  utf8.InStr(1,result,"ok")  > 0 Then //从返回找到关键词
            msg "登录平台...",1000
            Dim resultSplit =Split(result, ",")//分割需要文本
            token = resultSplit(1)//分割需要文本(Token值) 返回：ok,Token密钥,账户余额
            Exit Do
        ElseIf UTF8.InStr(1, result, "error") > 0 Then
            TracePrint "登入错误！": ShowMessage "登入错误！": Delay 1000
        Else 
            TracePrint "未知情况：" & result  
            ShowMessage "未知情况：" & result : Delay 3000
        End If  
    Loop
      //获取手机号码
    msg "获取手机号码...",1000
    Do
        result = URL.Get("http://www.98lm.com/api.php?action=GetNumber&pid=1789" & "&token=" & token)
        TracePrint "http://www.98lm.com/api.php?action=GetNumber&pid=1789" & "&token=" & token
        TracePrint result
        If  utf8.InStr(1,result,"ok")  > 0 Then  //从返回找到关键词
            Dim GetPhoneSplit =Split(result, ",")//分割需要文本
            GetPhone = GetPhoneSplit(1) //分割需要文本(手机) 返回：ok,1300000001,项目价格
            GetPhoneKn=GetPhone
            TracePrint "获取！" & GetPhone  : ShowMessage "获取！"& GetPhone: Delay 3000
            Exit Do
        ElseIf UTF8.InStr(1, result, "no") > 0 Then
            TracePrint "获取错误！": ShowMessage "获取错误！": Delay 1000
        Else 
            TracePrint "未知情况：" & result  :ShowMessage "未知情况：" : Delay 3000
  
        End If
    Loop
End Function

Function GetMessageKn(GetPhone)
    i = 0
    //If token = "" or GetPhone= "" Then 
    //GetPhoneKn()	
    //End If
    Do
        result = URL.Get("http://www.98lm.com/api.php?action=GetCode&pid=1789" & "&token=" & token & "&number=" & GetPhone)
        TracePrint "http://www.98lm.com/api.php?action=GetCode&pid=1789" & "&token=" & token & "&number=" & GetPhone
        TracePrint result
        If  utf8.InStr(1,result,"ok")  > 0 Then 
            Dim resultValue = Split(result, ",")
            GetMessage= resultValue(1)
            GetMessageKn = GetMessage
            TracePrint  GetMessage
            TracePrint "获取验证码！" & GetMessage  : ShowMessage "获取验证码！": Delay 3000
            Exit Function
        ElseIf UTF8.InStr(1, result, "no") > 0 Then
            i = i + 1
            TracePrint "暂无短信！"&i: ShowMessage "暂无短信！"&i: Delay 3000                       
            If i >= 10 Then 
                TracePrint "超时自主进入释放拉黑模式！" :ShowMessage "超时自主进入释放拉黑模式" : Delay 500
                //释放拉黑
                //ReleaseblockLx itemid, phoneCode
                //重新接码去
                GetMessageKn = False
                Exit Function
            End If
        Else 
            TracePrint "未知情况：" & result  :ShowMessage "未知情况：" : Delay 3000
        End If
        Delay 3000
    Loop
End Function