论坛的高手，能否帮助提供米信宝的HTT代码，类似吉信通的，这样可以有个选择？

米信宝地址：http://vvvvvv.iscall.com/   

类似于前期论坛中的分享，包括接口调用和返回状态的代码

Dim url ,s As String
Dim http As Object
url = "http://service.winic.org:8009/sys_port/gateway/?id="& zh &"&pwd="& mm &"&To=" & tel & "&c&time="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
s = http.responseText

Dim Value As String = Left(s,3)
Dim Result As String
Select Case Value
    Case "000"
        Result = "发送成功!"
    Case "-01"
        Result = "当前账号余额不足!"
    Case "-02"
        Result = "当前用户ID错误!"
    Case "-03"
        Result = "当前密码错误!"
    Case "-04"
        Result = "参数不够或参数内容的类型错误!"
 Case "-05"
        Result = "手机号码格式不对!"
    Case "-06"
        Result = "短信内容编码不对!"
    Case "-07"
        Result = "短信内容含有敏感字符!"
    Case "-08"
        Result = "无接收数据!"
    Case "-09"
        Result = "系统维护中.."
 Case "-10"
        Result = "手机号码数量超长!(100个/次)"
    Case "-11"
        Result = "短信内容超长!(70个字符)"
    Case "-12"
        Result = "其它错误!"
End Select
 dr("提示信息")= Replace(Replace(Replace(Replace(Replace(s,Value,Result),"Send","本次发送量"),"Consumption","当次消费金额"),"Tmoney","总余额"),"sid","短信编号")
MessageBox.Show("提示信息 : " & dr("提示信息"))

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:米信短信接口文档说明.rar

不是做It的，菜得很。对这些东西的运用很难摸透

要调用这些东西对我而言非常难，

如果有实例只做点小修改还行。汗

希望论坛里有哪位如果做过的话，能给予分享，其他短信平台的也可以。

因为吉信通的技术支持说他们在状态返回时不全部做校验的，我昨天测试了几条，其中特意将手机号吗从11位删除到8位和6位，点击发送和依然反馈发送成功并扣除了这2条的费用。