接码例子_短租注册

Dim 令牌,项目ID,手机号,验证码
Dim 接码账号 = ReadUIConfig("接码账号")
Dim 接码密码 = ReadUIConfig("接码密码")



项目ID = ""
令牌 = DZ_令牌(接码账号, 接码密码)
手机号 = DZ_手机号(项目ID, 接码账号, 令牌)
验证码 = DZ_验证码(项目ID, 手机号, 令牌, 接码账号, 接码次数)
Call DZ_释放(项目ID,手机号,令牌,接码账号)

//_________________________________________________号码短租
Function DZ_令牌(DZ_username, DZ_password)
  
  ShowMessage "号码短租:获取令牌"
  Dim token
  
  Do
    token = URL.Get("http://api.jmyzm.com/http.do?action=loginIn&uid=" & DZ_username & "&pwd=" & DZ_password)
    
    If Mid(token, 1, 2) = Mid(DZ_username, 1, 2) Then 
      token = Split(token, "|")
      token = token(1)
      DZ_令牌 = token 
      
      ShowMessage "号码短租:" & token
      TracePrint  "号码短租:" & token
      Exit Function 
    Else
      ShowMessage token & "    令牌获取失败,4秒后重新获取"
      TracePrint  token & "    令牌获取失败,4秒后重新获取"
      Delay 4000	
    End If
  Loop
  
End Function
Function DZ_手机号(PID, DZ_username, token)
  
  ShowMessage "号码短租:获取手机号"
  Dim DZ_phone
  
  Do
    DZ_phone = URL.Get("http://api.jmyzm.com/http.do?action=getMobilenum&pid=" & PID & "&uid=" & DZ_username & "&token=" & token & "&mobile=&size=1&vno=0")
    TracePrint DZ_phone
    
    If Mid(DZ_phone, 1, 1) = "1" Then 
      DZ_phone = Split(DZ_phone, "|")
      DZ_phone = DZ_phone(0)
      DZ_手机号 = DZ_phone
      
      ShowMessage "号码短租:" & DZ_phone
      TracePrint  "号码短租:" & DZ_phone
      Exit Function 
    Else 
      ShowMessage DZ_phone & "    手机号获取失败,4秒后重新获取"
      TracePrint  DZ_phone & "    手机号获取失败,4秒后重新获取"
      Delay 4000
    End If
  Loop	
  
End Function
Function DZ_验证码(PID,DZ_phone,token,DZ_username,count)
  
  Dim message,释放,次数 = 0
    count = CLng(count)

  Do 
    message = URL.Get("http://api.jmyzm.com/http.do?action=getVcodeAndHoldMobilenum&uid=" & DZ_username & "&token=" & token & "&mobile=" & DZ_phone & "&next_pid=" & PID & "&author_uid=li302892520")
    TracePrint message
    
    If Mid(message, 1, 1) = "1" Then 
      message = Split(message, "|")
      message = message(1)
      message = Mid(message, InStr(1, message, "验证码"), Len(message))
      message = 过滤数字(message)
      DZ_验证码 = message
      
      TracePrint  message
      ShowMessage message
      Exit Function 
    ElseIf 次数 = count Then
      释放 = URL.Get("http://api.jmyzm.com/http.do?action=addIgnoreList&uid=" & DZ_username & "&token=" & token & "&mobiles=" & DZ_phone & "&pid=" & PID)
      ShowMessage "释放号码" & 释放
      TracePrint  "释放号码" & 释放
      
      DZ_验证码 = False
      Exit Function	
    Else 
      次数 = 次数 + 1
      TracePrint  message & count & "/" & 次数
      ShowMessage message & count & "/" & 次数
      Delay 4000
    End If
  loop
  
End Function
Function DZ_释放(PID,DZ_phone,token,DZ_username)
  
  Dim 释放 = URL.Get("http://api.jmyzm.com/http.do?action=addIgnoreList&uid=" & DZ_username & "&token=" & token & "&mobiles=" & DZ_phone & "&pid=" & PID)
  ShowMessage "释放号码" & 释放
  TracePrint  "释放号码" & 释放

End Function