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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]修改短信平台的短信发送代码

共有9283人关注过本帖树形打印复制链接主题：[求助]修改短信平台的短信发送代码

99473593

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

加好友

发短信

等级：小狐帖子：384 积分：4174 威望：0 精华：0 注册：2011/12/31 14:28:00

[求助]修改短信平台的短信发送代码 发帖心情

Post By：2013/1/11 10:37:00 [只看该作者]

窗口中的客户名称，短信内容，发送号码分别绑定到表A对应的列，我想将窗口中的客户名称和短信内容组成信息，通过点击“发送短信”按钮，就将短信发送到“发送号码”指定的手机号码上，请问按钮代码要怎么修改才能实现。短信平台已申请了，就是不会写代码. 请指点谢谢！！！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:短信发送.table

[此贴子已经被作者于2013-1-11 10:39:38编辑过]

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/11 11:16:00 [只看该作者]

替换一下你的账号和你的密码。

Dim url As String
Dim http As Object

Dim r As Row = Tables("表A").Current
Dim content As String = "id=您的账号&pwd=您的密码&to=" & r("发送号码") & "&c短信内容") & "&time="
url = "http://service.winic.org:8009/sys_port/gateway/?" & content

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