- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]修改短信平台的短信发送代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27820)
-- 发布时间：2013/1/11 10:37:00
-- [求助]修改短信平台的短信发送代码
窗口中的客户名称，短信内容，发送号码分别绑定到表A对应的列，我想将窗口中的客户名称和短信内容组成信息，通过点击“发送短信”按钮，就将短信发送到“发送号码”指定的手机号码上，请问按钮代码要怎么修改才能实现。短信平台已申请了，就是不会写代码. 请指点谢谢！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:短信发送.table |
[此贴子已经被作者于2013-1-11 10:39:38编辑过]
-- 发布时间：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)
-- 发布时间：2013/1/11 11:27:00
--
或者可以参考一下飞信发送。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=27010
-- 发布时间：2013/1/11 12:50:00
--
测试不行呢，出错
-- 发布时间：2013/1/11 15:12:00
--
以下是引用99473593在2013-1-11 12:50:00的发言：
测试不行呢，出错
你有把你的帐号密码替换成你的吗？不行的话，联系客服QQ帮助远程，因为这里不便体够帐号密码测试。