短信群发接口测试（vb+get/post）

      注：对方技术文档有改动，文章仅供参考

     某MIS需要短信功能，公司想购置短信猫，但短信猫价格不菲外加接入的技术必须很高，所以综合考虑之下，在网上找到一家较有实力的短信公司，他们提供的接口很多类型，有http/dll/webservice等。

      自我感觉http的比较容易，今天就来试验一下这种方式

      技术接入文档：http://www.mmlj.cn/software/Http-Post-Get.rar

      （大家可以去免费注册个账号试试 http://www.mmlj.cn/Reg.htm，自带8条试用，注册时要填真实号码，因为他们会通过信息告诉你账号和密码）

      好了，废话不多说，打开我们可爱的VB

     

     第一步，当然要弄个漂亮的界面咯，(*^__^*) 嘻嘻……

    

    第二步，我们把form1设置为无边框等（纯粹为了好看）

 form1 -->

    BorderStyle:0-None
    BackColor:Palette 白色
    Picture:图片

 

 txtMobile
 txtContent -->
    Appearance:0-Flat 

    MultiLine:true
    ScrollBars:2-Vertical

 

 txtUser
 txtPass
 txtVIP -->
    Appearance:0-Flat

 

 cmdFee
 cmdSend

 

  

 

      第三步，看文档时，提到 查询余额时要用到GET的方式，但发送时却用到POST方式，O__O"…，百度了一下，其实GET方式最好的方法，其实就是直接访问，这个基本没难度，用个Inet就ok了，但Post方式就有点困难了。

    我们先搞掂GET的余额查询。

   

    在form上加入一个Inet1，双击cmdFee按钮，写代码：

Private Sub cmdFee_Click() Dim m As String Dim w As String Dim y m = Inet1.OpenURL("http://121.37.58.18:12250/?type=queryfeea&entid=" & txtVIP & "&useracc=" & txtUser & "&pwd=" & txtPass) 'GET方式(相当于直接浏览) If m = Null Or m = "" Then m = "OVER/服务器错误" '无法访问页面时自定义一个返回值 End If '成功：OK/123%%0%%OK '失败：ERROR/原因 '其他：OVER/原因 'w 和 y 为假设成功时要处理的 w = Right(m, Len(m) - 3) '获取OK/后面的值 y = Split(w, "%%") '拆分，并赋予给数组y() If InStr(m, "ERROR") > 0 Then MsgBox "登录失败，请检查输入", , "验证结果" ElseIf InStr(m, "OK") > 0 Then MsgBox "--- 登录成功，欢迎使用 ---" & vbCrLf & "剩余条数：" & y(0) & " 可欠费条数：" & y(1), , "验证结果" Else MsgBox "供应商网络故障", , "验证结果" End If End Sub

 

    好了，查询余额成功，，，

 

   接下来是POST了，我们先来引用XML 3.0 （当然，你喜欢2.6 或其他都可以，不过3.0 xp/2003/win7 都有）

  

 

   观看技术文档，在发送过程中，除了号码之外，其他的都要一个转Unicode码的过程，，（幸好技术文档有VB的代码）

  '把字符转换成Unicode编码 Function CodeToUni(code) Dim ix, thisStr, ThisCode, newcode If code = "" Then CodeToUni = "" Exit Function End If For ix = 1 To Len(code) thisStr = Right(Left(code, ix), 1) ThisCode = Hex(AscW(thisStr)) If Len(ThisCode) = 1 Then ThisCode = "000" + ThisCode ElseIf Len(ThisCode) = 2 Then ThisCode = "00" + ThisCode ElseIf Len(ThisCode) = 3 Then ThisCode = "0" + ThisCode End If newcode = newcode + ThisCode Next CodeToUni = newcode End Function

 

   好了，在cmdSend的按钮下写入代码之：

   Private Sub cmdSend_Click() Dim url As String Dim content As String '保证电话号码不为空 If Len((Trim(txtMobile))) = 0 Then MsgBox "发送号码为空", , "警告" Exit Sub End If '保证信息内容不为空 If Len(Trim(txtContent)) = 0 Then MsgBox "信息内容为空", , "警告" Exit Sub End If 'txtMobile 格式为[ 13763035657,13760374481 ] url = "textphone=" & txtMobile & Chr("38") & "textacc=" & CodeToUni(txtUser) & Chr("38") & "textpsw=" & CodeToUni(txtPass) & Chr("38") & "submitsendmsg=submit" & Chr("38") & "textcontent=" & CodeToUni(txtContent) '参数列 Dim xml As New XMLHTTP '定义一个xml对象 Dim str1 As String '定义一个String返回值 xml.Open "POST", "HTTP://121.37.58.18:12250/xcdeal.asp", False 'POST方式 xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '设置格式类型 xml.send url '发送 If xml.Status = 200 Then '成功返回值时 str1 = StrConv(xml.responseBody, vbUnicode) '返回的内容 MsgBox str1, , "返回值" End If End Sub

 

   发送一条给自己手机，哇。。收到啦 腻激动ing。。。。

 

看他们公司 还有dll 和webservice的接入方法，俺下节课再玩玩，嘻嘻