以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  短信代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38061)

--  作者:CRM2013
--  发布时间:2013/7/18 18:51:00
--  短信代码

 

学习短信代码,采用吉信通的平台,但每次发送后反馈当前用户Id错误,是我的代码不对吗?

备注:实际账号与密码在这里用abc和888替代了。

 

 url = "http://service.winic.org:8009/sys_port/gateway/?id=abc&pwd=888&To=" & dr("移动电话") & "&c&time="


--  作者:Bin
--  发布时间:2013/7/19 8:39:00
--  
你弹出一下你拼接出来的URL是否正确
--  作者:CRM2013
--  发布时间:2013/7/19 11:27:00
--  

弹出来的URL如下:

 

http://service.winic.org:8009/sys_port/gateway/?id=qiyun&pwd=QiYun1234&To=15900906683&content= testtest&time=

 

整段代码是,但我通过这个用户Id是可以登录吉信通并查看余额等的。

 

 Dim url,s As String
            Dim msg As String = e.Form.Controls("message").Value
            Dim dr As Row = Tables("短信平台_Table2").Current
            Dim http As Object
            url = "http://service.winic.org:8009/sys_port/gateway/?id=qiyun&pwd=QiYun1234&To=" & dr("移动电话") & "&c&time=" \'Id
            http = CreateObject("MSXML2.XMLHTTP")
            http.Open("get", url, False)
            http.send()
            s = http.responseText
            Dim Value As String = Left(s,3)
            Dim fback As String
            Select Case Value
                Case "000"
                    fback = "发送成功!"
                Case "-01"
                    fback = "当前账号余额不足!"
                Case "-02"
                    fback = "当前用户ID错误!"

                Case "-03"
                    fback = "当前密码错误!"
                Case "-04"
                    fback = "参数不够或参数内容的类型错误!"
                Case "-05"
                    fback = "手机号码格式不对!"
                Case "-06"
                    fback = "短信内容编码不对!"
                Case "-07"
                    fback = "短信内容含有敏感字符!"
                Case "-08"
                    fback = "无接收数据!"
                Case "-09"
                    fback = "系统维护中.."
                Case "-10"
                    fback = "手机号码数量超长!(100个/次)"
                Case "-11"
                    fback = "短信内容超长!(70个字符)"
                Case "-12"
                    fback = "其它错误!"
            End Select


--  作者:Bin
--  发布时间:2013/7/19 11:28:00
--  
你就检查你拼接好的URL是否符合要求,如果不符号要求就检查一下哪里拼接错误.
--  作者:CRM2013
--  发布时间:2013/7/19 11:35:00
--  

拼接好的就是楼上弹出的内容,因为检测了很多次也没发现问题,才上论坛求教的。

 

http://service.winic.org:8009/sys_port/gateway/?id=qiyun&pwd=QiYun1234&To=15900906683&content= testtest&time=


--  作者:Bin
--  发布时间:2013/7/19 11:38:00
--  
如果拼接的URL没有问题,但是没有发送成功.说明服务商的网站有问题,你应该去联系运营商.