热门 蓝狐接码平台使用步骤–共享码-最新版蓝狐接码平台使用步骤-共享码

热门蓝狐接码平台使用步骤–共享码

1. 蓝狐没有合作发卡网,完全 由用户和卡商自行建立信任关系,做谁业务找谁换卡密.一次可以多换一点
2. 只有这一个群,其他群都是仿冒不是官方群请注意.
3. 可以使用蓝狐软件上自带的聊天系统,来探测是否有卡密等,进行交易不怕被骗
4. 自行邀请信任的用户或卡商进入群,出现问题连带封锁不解封
5. 蓝狐只有一个管理人员(lanhuyun),只有一个其他任何都不是
6. 不认识KS就在客户端里面的卡密市场购买先,有认识的了在直接找KS兑换卡密
7. 封群了只允许管理邀请
8.管理权限五天内没挂过其他平台,账户有一千卡密,合规发账号我来校验查记录审核
9.有部分不良平台,每天半夜攻击蓝狐,可能会造成卡顿如果我看到了能及时处理,看不到就等自动清洗大约5分钟内会自动清洗掉。
10.蓝狐真心实意对大家,希望大家能一起照顾好蓝狐,管理人员不怎么上线,见谅.

蓝狐以及所有平台客户端 请自行去 QQ群 : 1084747148 下载  ,不能加入群  请@群主 或者留言

本群提供各大平台测试账号免费使用

平台号码 仅供测试,和保护隐私 切勿用于违法违规的项目,否则后果自负

蓝狐卡商交流群:

当前内容只有登录了才能查看,如果您已经注册,请登录

蓝狐客户端文件 下载 群 1084747148

蓝狐接码平台界面:

蓝狐按键精灵Api实例:

Function 蓝狐_获取手机号
Dim 号段 = ReadUIConfig("输入框1")
TracePrint 号段
Dim 获取手机号失败 = Int(0)

Rem 重新登录接码
Dim 返回值
令牌=""
If Len(令牌) < 1 Then

网址 = "http://www.huli667.com:81/sms/api/login?username=api账号&password=密码"
返回值 = URL.Get(网址,60)
TracePrint 返回值
ShowMessage 返回值
Delay 1000
拆分 = Encode.JsonToTable(返回值)

If 拆分["code"] = 0 Then
令牌 = 拆分["token"]
TracePrint 令牌
Else
ShowMessage "登录失败"
Goto 重新登录接码
End If
End If
网址 = "http://www.huli667.com:81/sms/api/getPhone?token="& 令牌 &"&sid=370"
TracePrint 网址
返回值 = Url.Get(网址)
TracePrint "手机 "&返回值
ShowMessage 返回值
Delay 1000
拆分 = Encode.JsonToTable(返回值)
If 拆分["code"] = 0 Then
TracePrint "获取手机号: "&拆分["phone"]
号段 = Mid(拆分["phone"], 1, 3)
TracePrint 号段
If 号段 = "Fal" Then
Goto 重新登录接码
End If
蓝狐_获取手机号 = 拆分["phone"]
手机服务号 = 拆分["phone"]
//多米_释放手机号()
Else
ShowMessage "获取内容不是手机号..重新取号"
TracePrint "获取内容不是手机号..重新取号"
Delay 3000
获取手机号失败 = 获取手机号失败 + 1
If 获取手机号失败 >= 2 Then
ShowMessage "获取失败"
Delay 300
蓝狐_获取手机号 = "获取失败"
Exit Function
End If
Goto 重新登录接码
End If
End Function

Function 蓝狐_获取验证码
Dim 计时=Time()
Dim 重新接码计时=Time()
Dim 取到码

网址 ="http://www.huli667.com:81/sms/api/getMessage?token="& 令牌 &"&sid=370&phone="& 手机服务号

TracePrint 网址
Do
返回值 = Url.Get(网址)
TracePrint "返回信息:" & 返回值
ShowMessage "返回信息:" & 返回值
Delay 500
If Len(返回值) < 1 Then
ShowMessage ("服务器异常")
蓝狐_获取验证码 = "获取失败"
Exit Function
End If
Dim 拆分 = Encode.JsonToTable(返回值)
If 拆分["code"]= 0 Then
取到码 = ShanHai.RegexFind(拆分["sms"], "%d%d%d%d")
蓝狐_获取验证码 = 取到码(0)
//账号状态 = "1"
Exit Function
End If

TracePrint "等码计时-" & (Time() - 计时) & "秒"
ShowMessage "等码计时-" & (Time() - 计时) & "秒"
If (Time() - 计时) >= 53 Then
TracePrint "取码超时-换号重新注册"
ShowMessage "取码超时-换号重新注册"
Delay 700
蓝狐_获取验证码 = "获取失败"
蓝狐_释放手机号()
Exit Function
End If
Delay 5000 '官方建议每隔5秒取一次码
Loop
End Function

Function 蓝狐_释放手机号
Dim 释放手机号失败 = Int(0)

网址 = "http://www.huli667.com:81/sms/api/cancelRecv?token=" &令牌& "&sid=370&phone=" & 手机服务号

TracePrint 网址
返回值 = Url.Get(网址)
TracePrint "手机 "&返回值
ShowMessage 返回值
If Len(返回值) < 1 Then
ShowMessage ("服务器异常")
Exit Function
End If
Delay 1000
拆分 = Encode.JsonToTable(返回值)
If 拆分["code"] = 0 Then
TracePrint "释放成功!"
ShowMessage "释放成功!"
Else

释放手机号失败 = 释放手机号失败 + 1
TracePrint 拆分["data"]
ShowMessage 拆分["data"]
If 释放手机号失败 >= 2 Then
Delay 300
Exit Function
End If
End If
End Function

 

Function 蓝狐_加黑手机号
Dim 加黑手机号失败 = Int(0)
网址 = "http://www.huli667.com:81/sms/api/addBlacklist?token=" &令牌& "&sid=370&phone=" & 手机服务号

TracePrint 网址
返回值 = Url.Get(网址)
TracePrint "手机 "&返回值
ShowMessage 返回值
If Len(返回值) < 1 Then
ShowMessage ("服务器异常")
Exit Function
End If
Delay 1000
拆分 = Encode.JsonToTable(返回值)
If 拆分["code"] = 0 Then
TracePrint "加黑成功!"
ShowMessage "加黑成功!"
Else
加黑手机号失败 = 加黑手机号失败 + 1
TracePrint 拆分["data"]
ShowMessage 拆分["data"]
If 加黑手机号失败 >= 2 Then
Delay 300
Exit Function
End If
End If
End Function

 

 

本文由 共享码 作者:sands 发表,其版权均为 共享码 所有,文章内容系作者个人观点,不代表 共享码 对观点赞同或支持。如需转载,请注明文章来源。
13915377913

发表评论