Foxtable(狐表)用户栏目专家坐堂 → 甜老师这个短信群发调用不了数据.帮忙看看哪里错了


  共有4194人关注过本帖树形打印复制链接

主题:甜老师这个短信群发调用不了数据.帮忙看看哪里错了

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/4 14:25:00 [显示全部帖子]

 你先发一条看能不能发啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/4 14:43:00 [显示全部帖子]

 返回信息正常啊

 

Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/4 16:14:00 [显示全部帖子]

Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true") & "|" & DataTables("日新车队").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)


 回到顶部