教大家利用平臺短信接口，實現短信發送！（附編程代碼）

最近在做一個小項目，幫朋友一個忙！其中涉及到一個短信發送通知問題！今天和大家說下我是怎麼調用的，和分享下代碼！有感興趣的同學們可以自己嘗試下！

我是通過 互億無線短信接口 實現的短信發送！

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. 代碼可以在網上自行下載的，如果找不到可以點擊我的頭條主頁加群下載！各種語言的調用示例都有！

這個調用簡單，但是用途很廣，把它編入自己的程序中，也使自己的程序也提高一點檔次，大家都來試試吧！

有喜歡編程技術的可以關注我！為大家分享更多編程方面的文章！

閱讀更多 技術小成 的文章

關鍵字: Mozilla 人工智能 Windows