- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 甜老师这个短信群发调用不了数据.帮忙看看哪里错了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59443)
-- 发布时间：2014/11/4 14:23:00
-- 甜老师这个短信群发调用不了数据.帮忙看看哪里错了
密码158998
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日新车队.table |
-- 发布时间：2014/11/4 14:25:00
--
你先发一条看能不能发啊
-- 发布时间：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这样测试过可以,但程序里调用数据就不行了 -- 发布时间：2014/11/4 14:41:00
--
老师现在调用不了电话,和发短信的内容,帮帮我吧,不知道哪错了
-- 发布时间：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)
-- 发布时间：2014/11/4 15:22:00
--
太感谢了老师
-- 发布时间：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: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)