以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]连接手机发送短信  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81080)
--  作者：zcgmxf
--  发布时间：2016/2/18 10:09:00
--  [讨论]连接手机发送短信
有点甜老师好！你的那个连接手机发送短信的     服务器 好像是我的路由器的ip能否长期使用啊？谢谢！
[此贴子已经被作者于2016/2/18 10:44:07编辑过]
--  作者：大红袍
--  发布时间：2016/2/18 10:10:00
--  

 你电脑固定好ip地址，就能长期用。
--  作者：zcgmxf
--  发布时间：2016/2/18 10:42:00
--  
红袍老师，是否可以同时发送多人？如果可以，号码间的符号是是什么？
[此贴子已经被作者于2016/2/18 10:42:56编辑过]
--  作者：大红袍
--  发布时间：2016/2/18 10:49:00
--  
本来的例子，就可以发送给多人。分隔符是|
[此贴子已经被作者于2016/2/18 10:49:08编辑过]
--  作者：大红袍
--  发布时间：2016/2/18 10:50:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52815&skin=0

 
--  作者：zcgmxf
--  发布时间：2016/2/18 10:51:00
--  
就是发不出才问您的。“|”和“，”都不行，只能发送第一个号码
--  作者：大红袍
--  发布时间：2016/2/18 10:57:00
--  

汗，我测试没问题啊，按钮代码

 

Dim server As String = e.Form.Controls("TextBox1").Text
Dim phones As String = e.Form.Controls("TextBox2").Text
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
--  作者：zcgmxf
--  发布时间：2016/2/18 11:33:00
--  
红袍老师，我用的下载实例测试的，真的只能发送第一个号码，是否有正版或者免费版的差别？
--  作者：大红袍
--  发布时间：2016/2/18 11:34:00
--  
 我，测试，没，问，题。