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

某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/服务器<a href="/tag/cuowu/" target="_blank" class="keywords">错误</a>" '无法访问<a href="/tag/yemian/" target="_blank" class="keywords">页面</a>时<a href="/tag/zidingyi/" target="_blank" class="keywords">自定义</a>一个返回值 End If '成功：OK/123%%0%%OK '失败：ERROR/原因 '其他：OVER/原因 'w 和 y 为假设成功时要处理的 w = Right(m,Len(m) - 3) '<a href="/tag/huoqu/" target="_blank" class="keywords">获取</a>OK/后面的值 y = Split(w,"%%") '拆分，并赋予给数组y() If InStr(m,"ERROR") > 0 Then Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a> "<a href="/tag/denglu/" target="_blank" class="keywords">登录</a>失败，请检查输入","验证结果" ElseIf InStr(m,"OK") > 0 Then Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a> "--- <a href="/tag/denglu/" target="_blank" class="keywords">登录</a>成功，欢迎使用 ---" & vbCrLf & "剩余条数：" & y(0) & " 可欠费条数：" & y(1),"验证结果" Else Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a> "供应商网络故障","验证结果" 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 Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a> "发送号码为空","警告" Exit Sub End If '保证信息<a href="/tag/neirong/" target="_blank" class="keywords">内容</a>不为空 If Len(Trim(txtContent)) = 0 Then Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a> "信息<a href="/tag/neirong/" target="_blank" class="keywords">内容</a>为空","警告" 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) '返回的<a href="/tag/neirong/" target="_blank" class="keywords">内容</a> Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a> str1,"返回值" End If End Sub

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

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