- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 甜版看一下短信批量发布问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57416)
-- 发布时间：2014/9/24 14:20:00
-- 甜版看一下短信批量发布问题
比如发个通知，需一次向很多人发短信，能否实现一键发布？在文件中有个“表A”的“第一列”虚拟了一部分手机号码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:连接手机发送信息_remotesms_例子.table |
-- 发布时间：2014/9/24 14:23:00
--
Dim server As String = e.Form.Controls("TextBox1").Text
Dim phones As String = DataTables("第一列").GetComboListString("第一列").Replace("|", ",")
Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)
Dim url As String = server & "/?numbers=" & phones & "&text=" & context
try
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
rsps.close
\'Dim stm As System.IO.Stream = rsps.GetResponseStream()
\'Dim reader As New System.IO.StreamReader(stm)
\'Dim strResult As String = reader.ReadToEnd
\'msgbox(strResult)
msgbox("提交发送成功")
catch ex As exception
msgbox("发送失败,请确认服务器地址设置正确!")
End try
-- 发布时间：2014/9/24 14:25:00
--
Dim server As String = e.Form.Controls("TextBox1").Text
Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)
For Each r As Row In Tables("表A").Rows
Dim phones As String = r("第一列")
Dim url As String = server & "/?numbers=" & phones & "&text=" & context
try
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
rsps.close
\'Dim stm As System.IO.Stream = rsps.GetResponseStream()
\'Dim reader As New System.IO.StreamReader(stm)
\'Dim strResult As String = reader.ReadToEnd
\'msgbox(strResult)
msgbox("提交发送成功")
catch ex As exception
msgbox("发送失败,请确认服务器地址设置正确!")
End try
Next
-- 发布时间：2014/9/24 14:27:00
--
有这个就方便很多了，谢谢甜版！
再次请教一个问题，短信发布中的“服务器地址”是不是自己使用电脑的IP地址？
-- 发布时间：2014/9/24 14:37:00
--
回复4楼，不是。你那台手机打开软件以后，会有一个ip地址的，是手机的ip地址
-- 发布时间：2014/9/24 14:40:00
--
再次感谢甜版的指导，谢谢！
-- 发布时间：2014/9/25 6:52:00
--
用了一下，性能不太稳定。