弹出来的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