找回密码  加入

AUTOIT CN

搜索
查看: 407|回复: 7

[网络通信] 谁有接受短信验证码的例子?

[复制链接]
发表于 2018-6-12 20:14:25 | 显示全部楼层 |阅读模式
求一个。无论哪个接码网站的例子都可以。谢谢。加我微信聊,citysvip,20元红包重谢。
发表于 2018-6-13 13:14:49 | 显示全部楼层
手机短信?接受?还是发送?
 楼主| 发表于 2018-6-15 08:23:11 | 显示全部楼层
接受的。网站验证之类的。
发表于 2018-6-21 10:27:34 | 显示全部楼层
[mw_shl_code=aauto,true]#NoTrayIcon
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=C:\Windows\syswow64\SHELL32.dll
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Include <Misc.au3>
#include <Date.au3>
$username = IniRead ( "key", "user", "uesrname", "none" )
$pswd = IniRead ( "key", "user", "pwd", "none" )
$app_username = IniRead ( "key", "app_user", "app_uesrname", "none" )
$app_pswd = IniRead ( "key", "app_user", "app_pwd", "none" )
If $username = "none" Then
    MsgBox(16, "提示", _
                 "配置文件不存在", _
                 0)
    Exit
ElseIf $pswd = "none" Then
    MsgBox(16, "提示", _
                 "配置文件不存在", _
                 0)
    Exit
ElseIf $app_username = "none" Then
    MsgBox(16, "提示", _
                 "配置文件不存在", _
                 0)
    Exit
ElseIf $app_pswd = "none" Then
    MsgBox(16, "提示", _
                 "配置文件不存在", _
                 0)
    Exit
Else
     
EndIf

Local $num,$cancel,$GetMessage,$guishudi,$supplier,$mess,$token,$getnum

$arry = StringSplit ( Login(), "|" ) ;分离uid、token
$uid = $arry[1]
$token = $arry[2]

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("爱码短信归属地获取平台 - Ling", 427, 229 )
$Input1 = GUICtrlCreateInput("", 72, 24, 161, 21)
$Label1 = GUICtrlCreateLabel("号码", 24, 24, 36, 17)
$Label2 = GUICtrlCreateLabel("信息", 24, 64, 36, 17)
$Edit1 = GUICtrlCreateEdit("", 72, 64, 161, 145, $GUI_SS_DEFAULT_EDIT)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("获取手机号码", 264, 24, 129, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Local $i = 0
            While $i < 1000
            $number = StringSplit ( getMobilenum(), "|" ) ;分离手机号码
            If $number[1] = "message" Then
                GUICtrlSetData($Edit1,"平台限制获取速度" & _
                @CRLF & "请等待片刻")
;~              MsgBox(0,0,$i,1)
;~               $i = 99
                Sleep(10000)
            ElseIf $number[1] = "no_data" Then
                GUICtrlSetData($Edit1,"平台号码暂缺" & _
                @CRLF & "请等待片刻")
            Else
            $num = $number[1]
            GUICtrlSetData($Input1, $num)
            GUICtrlSetData($Edit1, "正在获取号码与归属地信息")
            GUICtrlSetState($Input1, $GUI_FOCUS)
            $Number = $num
            Sleep(200)
            _nom()
            $GetMessage1 = $guishudi ;获取归属地
            $mess = $GetMessage1
            
            GUICtrlSetData($Edit1,$num & "归属地为" & _
                                @CRLF & $mess & _
                                @CRLF & "运营商为" & @CRLF & $supplier)
            _print()
            Sleep(4000)
            GUICtrlSetData($Edit1 , "成功释放号码" & _
                                @CRLF & "可以开始获取新的号码")
;~          MsgBox(0,0,$mess )
            cancel()
            
            $i+=1
;~          MsgBox(0,0,$i,1)
            Sleep(2000)
            EndIf
            WEnd
             If $i = 1000 Then
             MsgBox(8256, "提示", _
                 "获取号码完成" & _
                @CRLF & "请继续执行操作", _
                 0)
            EndIf
    EndSwitch
WEnd

;Func Action
Func Login()
Global $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("post","http://api.f02.cn/http.do",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://api.f02.cn/http.do")
$oHTTP.Send("action=loginIn&uid="&$username&"&pwd="&$pswd )
$uid_token = BinaryToString($oHTTP.responseBody,4)
Return($uid_token)
EndFunc;=>登录

Func getMobilenum() ;获取号码
Global $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("post","http://api.f02.cn/http.do",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://api.f02.cn/http.do")
$oHTTP.Send("action=getMobilenum&pid=1257&uid=" & $username & "&token="&$token)
$getnum = BinaryToString($oHTTP.responseBody,4)
If $getnum = "" Then
    $getnum = "13800138000"
EndIf
;~ InputBox(0,0,$getnum)
FileOpen( @ScriptDir & "\" & @year&"-"&@mon&"-"&@mday & "-debug.txt" , 1)
FileWrite ( @ScriptDir & "\" & @year&"-"&@mon&"-"&@mday & "-debug.txt",  $getnum & @CRLF);$num & @TAB & $mess & @TAB & $supplier & @TAB & _NowTime() & @CRLF )
Return($getnum)
EndFunc ;=>获取号码

Func _nom()
$sData = InetRead("http://life.tenpay.com/cgi-bin/mobile/MobileQueryAttribution.cgi?chgmobile=" & $Number, 1 + 2)
$vel = BinaryToString($sData)
$province = StringRegExp ( $vel, "<province>(.*?)</province>",3 )
FileOpen( @ScriptDir & "\" & @year&"-"&@mon&"-"&@mday & "-debug.txt" , 1)
FileWrite ( @ScriptDir & "\" & @year&"-"&@mon&"-"&@mday & "-debug.txt", $vel & @CRLF)
$province = $province[0]
$city = StringRegExp ( $vel, "<city>(.*?)</city>",3 )
$city = $city[0]
$supplier = StringRegExp ( $vel, "<supplier>(.*?)</supplier>",3 )
$supplier = $supplier[0]
$guishudi = $province & $city
Return $supplier
Return $guishudi
EndFunc;=>获取归属地 $guishudi

Func cancel()
Global $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("post","http://api.f02.cn/http.do",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://api.f02.cn/http.do")
$oHTTP.Send("action=cancelSMSRecvAll&uid=" & $username & "&token="&$token)
$cancel = BinaryToString($oHTTP.responseBody,4)
Return $cancel
;~ InputBox(0,0,$cancel)
EndFunc;=>释放手机号码

Func _print()
If $getnum <> "13800138000" Then
FileOpen( @ScriptDir & "\" & @year&"-"&@mon&"-"&@mday & ".txt" , 1)
FileWrite ( @ScriptDir & "\" & @year&"-"&@mon&"-"&@mday & ".txt",  $num & @TAB & $mess & @TAB & $supplier & @TAB & _NowTime() & @CRLF )
EndIf
EndFunc[/mw_shl_code]
以前自己编的一段代码,代码的目的是检测短信平台获取号码的归属地和运营商。
年代有些久远,验证码平台应该是没有了,自己研究下啦


发表于 2018-7-1 00:09:43 | 显示全部楼层
需要底层支持吧。如果你有短信的api接口,那么你需要做的就是调用接口,然后用户收到短信,和你调用接口时传入的验证码进行对比
发表于 2018-7-1 22:40:08 | 显示全部楼层
接码平台几乎都提供api 二次开发的
简单的http就可以了啊
 楼主| 发表于 2018-7-3 10:31:36 | 显示全部楼层
楼上说的对。现在关注AUTOit语言的少了啊。小问题用它来解决还是很方便的。短信接收只需要用WINHTTP这个就可以完成。以前没学过。会这个的都可以做出来。那些短信网站上有API借口,直接get或者post就可以了。
 楼主| 发表于 2018-7-3 10:34:32 | 显示全部楼层
说下应用场景吧。短信接收主要是为了短信平台注册一些账号。通常见于互联网各种赚钱的项目。因为可以自动化,注册速度是很快的。如果项目方不限制,就沦为刷子的天堂了。简而言之,刷注册。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-10-17 10:37 , Processed in 0.091380 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表