- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [原创]发送短信代码问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12645)
-- 发布时间：2011/9/10 15:29:00
-- [原创]发送短信代码问题？
首先承认没有好好学习，求大家帮忙，我在网上申请了短息二次开发的接口，现在情况是这样子的，我把下面的代码写在按钮的单击事件里面，试运行点击可以按照代码发送信息，可是怎样才能在窗口的面板里面实现新输入的号码和内容发送啊，手机号码表格的字段是：sjhm，发送内容是：fsnr，我主要是不会写格式，求老师指点！
代码：Dim url As String
Dim http As Object
url = "http://218.246.34.171/daredo/pushsms/mingxun_mt_rpt_l.jsp?CP_ID=155901&CP_PASSWORD=21073&PHONE=15901271109&DELIVEROID=0&MSG=接口测试&SPNUMBER=100301&SVCTYPE=TEST&LINKID=TEST&AUTHCODE= TEST"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)
此主题相关图片如下：窗口.png
-- 发布时间：2011/9/10 15:47:00
-- [分享]文书档案管理系统，学籍管理，人事管理（2016/8/24 21:39 更新，过期后压缩项目,是狐表的压缩不是用压缩软件压缩）
求解！！！！！
-- 发布时间：2011/9/10 17:05:00
--
Dim tel As string = e.form.Controls("手机号码输入框名称").Value
Dim msg As string = e.form.Controls("短信内容输入框名称").Value
Dim url As String
Dim http As Object
url = "http://218.246.34.171/daredo/pushsms/mingxun_mt_rpt_l.jsp?CP_ID=155901&CP_PASSWORD=21073&PH&DELIVEROID=0&MSG=" & msg & "&SPNUMBER=100301&SVCTYPE=TEST&LINKID=TEST&AUTHCODE= TEST"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)
-- 发布时间：2011/9/10 17:21:00
--
狐爸你太伟大了！
