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


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

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

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


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
甜老师这个短信群发调用不了数据.帮忙看看哪里错了  发帖心情 Post By:2014/11/4 14:23:00 [显示全部帖子]

密码158998
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队.table


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


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/11/4 14:26:00 [显示全部帖子]

图片点击可在新窗口打开查看http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile=13381230802&content=123456这样测试过可以,但程序里调用数据就不行了 

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


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/11/4 14:41:00 [显示全部帖子]

老师现在调用不了电话,和发短信的内容,帮帮我吧,不知道哪错了

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


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/11/4 15:22:00 [显示全部帖子]

太感谢了老师

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


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/11/4 16:11: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

老师我想当月二保和日新车队两个表里面通过短信群发的逻辑列调用两个表格的电话,代码怎么写啊,我这样写不行啊,应该怎么写啊.

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

[此贴子已经被作者于2014-11-4 16:11:57编辑过]

 回到顶部