• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[免费脚本] 短信验证对接----爱乐赞对接源代码 [复制链接]

1#
爱乐赞对接源代码
  1. //------爱乐赞对接-----------
  2. Dim name,password,action,ruset,url_alz,post_data,list,state,token,phone_mun,messages,id
  3. name = "api-account"
  4. password = "password"
  5. id = 68173

  6. // "loginIn"
  7. // "getPhone"
  8. // "getMessage"
  9. // "addBlacklist"

  10. url_alz = "http://api.xingjk.cn/api/do.php"
  11. post_data = "action=" & action & "&name=" & name & "&password=" & password

  12. //爱乐赞登录函数
  13. Function alz()
  14.     post_data = "action=loginIn&name=" & name & "&password=" & password
  15.     list = Split(URL.Post(url_alz, post_data), "|")
  16.     state = list(0)
  17.     token = list(1)
  18.     TracePrint "state="&state&"token="&token
  19.     Delay 1000 * 1
  20. End Function

  21. [hide]//爱乐赞取手机号函数
  22. Function GET_Phone()
  23.     Dim vno = 0
  24.     post_data = "action=getPhone&vno=" & vno & "&sid=" & id & "&token=" & token &"&author=ouwen000"
  25.     Dim phone_txt = URL.Post(url_alz, post_data)
  26.     TracePrint phone_txt
  27.     list = Split(phone_txt, "|")
  28.     state = list(0)
  29.     If state = "1" Then
  30.         TracePrint "成功取到手机号"
  31.         TracePrint "手机号="&list(1)
  32.         phone_mun = list(1)
  33.         GET_Phone = True
  34.     Else
  35.         TracePrint "取手机号失败"
  36.     End If
  37. End Function

  38. //爱乐赞取短信函数
  39. Function getMessage()
  40.     Dim outTime
  41.     outTime = Time()
  42.     Do While Time() - outTime < 60
  43.         post_data = "action=getMessage&sid=" & id & "&phone=" & phone_mun & "&token=" & token
  44.         list = Split(URL.Post(url_alz, post_data), "|")
  45.         state = list(0)
  46.         If state = "1" Then
  47.             TracePrint "成功取到短信"
  48.             TracePrint "短信="&list(1)
  49.             messages = list(1)
  50.             getMessage = True
  51.             Exit Function
  52.         Else
  53.             TracePrint "没有取到短信等待3秒重试"
  54.             Delay 1000 * 3
  55.         End If
  56.     Loop
  57. End Function


  58. //爱乐赞手机号加入黑名单[addBlacklist]
  59. Function add_Blacklist(phone)
  60. Dim vno = 0
  61. post_data = "action=addBlacklist&sid=" & id & "&token=" & token&"&phone="& phone
  62. Dim phone_txt = URL.Post(url_alz, post_data)
  63. TracePrint phone_txt
  64. list = Split(phone_txt, "|")
  65. state = list(0)
  66. If state = "1" Then
  67. TracePrint "手机号加入黑名单"
  68. add_Blacklist = True
  69. Else
  70. TracePrint "手机号加入黑名单失败"
  71. End If
  72. End Function

  73. //爱乐赞释放指定手机号[cancelRecv]
  74. Function cancel_Recv(phone)
  75. Dim vno = 0
  76. post_data = "action=cancelRecv&sid=" & id & "&token=" & token &"&phone="& phone
  77. Dim phone_txt = URL.Post(url_alz, post_data)
  78. TracePrint phone_txt
  79. list = Split(phone_txt, "|")
  80. state = list(0)
  81. If state = "1" Then
  82. TracePrint "释放指定手机号"
  83. cancel_Recv = True
  84. Else
  85. TracePrint "释放指定手机号失败"
  86. End If
  87. End Function

  88. //爱乐赞释放当前用户下所有手机号[cancelAllRecv]
  89. Function cancel_All_Recv()
  90. Dim vno = 0
  91. post_data = "action=cancelAllRecv&sid=" & id & "&token=" & token
  92. Dim phone_txt = URL.Post(url_alz, post_data)
  93. TracePrint phone_txt
  94. list = Split(phone_txt, "|")
  95. state = list(0)
  96. If state = "1" Then
  97. TracePrint "释放当前用户下所有手机号"
  98. cancel_All_Recv = True
  99. Else
  100. TracePrint "释放当前用户下所有手机号失败"
  101. End If
  102. End Function

  103. alz()
  104. If GET_Phone() Then
  105.     InputText(phone_mun)
  106. End If
  107. Delay 1000*5
  108. getMessage()
  109. [/hide]

  110. //有部分朋友反应取到了短信后仍然不会分离短信中的验证码....于是我再写一个分离短信验证码的
  111. Dim SMS = "[短信验证码]202889 请在10分钟内做完项目"

  112. [hide]
  113. Function yzm(str)
  114. Dim yzms
  115. Dim yzms_len = 6     '验证码长度
  116. Dim yzms_len_start = 0
  117. For i = 1 To Len(str)
  118. //全部字符串按单个取样

  119.         Dim 提取的文字 = UTF8.Mid(str, i,1)
  120.         TracePrint 提取的文字
  121.         
  122. For j = 0 To 9
  123.     //把取出来个单字 继续查找到0-9 如果有则结果为1
  124. Dim 确认 = utf8.InStr(1,提取的文字, CStr(j))
  125. //TracePrint "确认->" &确认
  126. If 确认 > 0 Then
  127. yzms = yzms & 提取的文字
  128. yzms_len_start = yzms_len_start + 1
  129. End If
  130. Next

  131. If yzms_len_start >= yzms_len Then
  132. Exit For
  133. End If

  134. Next

  135. yzm = yzms
  136. End Function

  137. TracePrint yzm(SMS)

  138. [/hide]
复制代码
一下忘了回复可见在那里,算了不设置了 但是我相信大家会给我留言

最后编辑ouwen000 最后编辑于 2017-09-02 13:28:22
2#

顶楼主

3#

支持我是沙发

4#
5#

至此

6#

感谢感谢

7#

回复 1楼ouwen000的帖子

大佬这个对接有什么用

8#

又可以用自己的电话号码的吗

9#

是打发斯蒂芬

10#

必须支持!!!

11#

牛逼啊大兄弟

发新话题 回复该主题