Foxtable(狐表)用户栏目专家坐堂 → [讨论]连接手机发送短信


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

主题:[讨论]连接手机发送短信

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/18 10:10:00 [显示全部帖子]

 你电脑固定好ip地址,就能长期用。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/18 10:49:00 [显示全部帖子]

本来的例子,就可以发送给多人。分隔符是|
[此贴子已经被作者于2016/2/18 10:49:08编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/18 10:50:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/18 11:34:00 [显示全部帖子]

 我,测试,没,问,题。

 回到顶部