VB6对接语音验证码接口DEMO示例

最新推荐文章于 2022-03-30 17:05:31 发布

互亿无线_小乔

最新推荐文章于 2022-03-30 17:05:31 发布

阅读量113

点赞数

分类专栏：短信验证码语音通知文章标签： vbs

本文链接：https://blog.csdn.net/m0_61651362/article/details/121084066

版权

防刷单，避免固话、黑名单等短信盲区有效

Private Sub Form_Load()
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.RemoteHost = "api.voice.ihuyi.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect
    DoEvents
    账户申请地址 ： http://user.ihuyi.com/?h9Dkn 
    If Winsock1.State <> 7 Then Label1.Caption = "状态：服务器连接成功" & Chr(13)
         
    Text1.Text = "用户名"
    Text2.Text = "密码为APIKEY（可以登录用户中心查看）
    Text3.Text = "手机号码"
    Text4.Text = "1125"
         
End Sub
Private Sub Command1_Click()
 
    On Error Resume Next
 
    Dim PostData As String
    Dim Str As String
      
    Dim strWebPage As String
    Dim strCommand As String
         
    PostData = "account=" + toUTF8(Text1.Text) + "&password=" + toUTF8(Text2.Text) + "&mobile=" + toUTF8(Text3.Text) + "&content=" + toUT