教大家利用平台短信接口，实现短信发送！（附编程代码）

我是通过 互亿无线短信接口 实现的短信发送！

1. 首先注册一个账号，注册后赠送50个短信！足够来测试了！

注册链接：http://sms.ihuyi.com/register.html

2. 登陆账号，进入后台，生成APIKEY。如下图：

3. 我用VB6.0测试的，代码如下：

Private Sub Form_Load()

Winsock1.Protocol = sckTCPProtocol

Winsock1.RemoteHost = '106.ihuyi.cn'

Winsock1.RemotePort = 80

Winsock1.Connect

DoEvents

If Winsock1.State <> 7 Then Label1.Caption = '状态：服务器连接成功' & Chr(13)

Text1.Text = 'APIID'

Text2.Text = 'APIKEY或使用32位MD5加密'

Text3.Text = '发送的手机号码&coding=GBK' '&coding=GBK不要删除

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=' + Text1.Text + '&password=' + Text2.Text + '&mobile=' + Text3.Text + '&content=' + Text4.Text

Dim Ai() As Byte

Ai = StrConv(strWebPage, vbFromUnicode)

CLength = UBound(Ai) + 1

Str = 'POST /webservice/sms.php?method=Submit HTTP/1.1' + vbCrLf

Str = Str + 'Accept: */*' + vbCrLf

Str = Str + 'Content-Type: application/x-www-form-urlencoded' + vbCrLf

Str = Str + 'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322)' & vbCrLf

Str = Str + 'Language: zh-CN, zh, *' + vbCrLf

Str = Str + 'Connection: Keep-Alive' + vbCrLf

Str = Str + 'Host: 106.ihuyi.cn' + vbCrLf

Str = Str + 'Accept-Language: zh-CN, zh, *' + vbCrLf

Str = Str + 'Accept-Encoding: gzip, deflate' & vbCrLf

Str = Str & 'Content-Length: ' & Len(PostData) & vbCrLf & vbCrLf

Str = Str & PostData & vbCrLf

'MsgBox str

strWebPage = 'http://106.ihuyi.cn/webservice/sms.php?method=Submit&account=' + Text1.Text + '&password=' + Text2.Text + '&mobile=' + Text3.Text + '&content=' + Text4.Text

strCommand = 'GET ' + strWebPage + ' HTTP/1.0' + vbCrLf

strCommand = strCommand + vbCrLf

If Winsock1.State <> 7 Then

Winsock1.Protocol = sckTCPProtocol

Winsock1.RemoteHost = '106.ihuyi.cn'

Winsock1.RemotePort = 80

Winsock1.Connect

DoEvents

Winsock1.SendData Str

Else

Winsock1.SendData strCommand

End If

'Label1.Caption = '状态：' & strState & Chr(13) & strCommand & Chr(13)

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim rec() As Byte

Winsock1.GetData rec, vbString

'MsgBox Utf8ToUnicode(Right(rec, 150))

Label2.Visible = True

Label2.Caption = Utf8ToUnicode(rec)

Winsock1.Close

End Sub

4. 测试效果如下！

5. 当然也可以修改短信模板！在登陆账号后的后台 验证码通知短信--短信发送--签名/模板管理

6. 代码可以在网上自行下载的，如果找不到可以点击我的头条主页加群下载！各种语言的调用示例都有！

这个调用简单，但是用途很广，把它编入自己的程序中，也使自己的程序也提高一点档次，大家都来试试吧！

---

有喜欢编程技术的可以关注我！为大家分享更多编程方面的文章！