短信群发代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 短信群发代码问题

共有4834人关注过本帖树形打印复制链接主题：短信群发代码问题

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/3 19:36:00 [只看该作者]

Dim url As String = "http://service.winic.org:8009/sys_port/gateway/?id=您的账号&pwd=您的密码&to={0}&content={1}&time="
Dim phones As String = DataTables("通讯录").GetComboListString("号码", "群发短信 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))

msgbox(url)

xjc620

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00

Post By：2014/11/3 20:51:00 [只看该作者]

老师看看短信群发,是不是有什么错误啊,一点发送短信有提式,密码158998

下载信息 [文件大小：下载次数： ]
点击浏览该文件:日新车队.table

xjc620

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00

Post By：2014/11/3 21:01:00 [只看该作者]

是不是把帐号密码填上就可以啊,怎么一点发送短信有提式呢

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/3 21:06:00 [只看该作者]

无语，就是提示啊。如果你用开通了那个短信平台的，就参考11楼的代码去写

Dim url As String = "http://service.winic.org:8009/sys_port/gateway/?id=您的账号&pwd=您的密码&to={0}&content={1}&time="
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))

Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)