Foxtable(狐表) → 用户栏目 → 专家坐堂 → XXXXX发送短信


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

主题：XXXXX发送短信
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1520 积分：10717 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/6 17:37:00 [只看该作者]

1.调用sendAjaxText？
2.后台发送短信页面，我感觉应该不是注册验证页面，需要另外写一个页面？

按照先易后难，难点留到最后的方法，我感觉发短信这里，对我来说是难点，还请具体指教，谢谢！
[此贴子已经被作者于2017/5/6 17:41:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/7 15:33:00 [只看该作者]

 和生成图片验证码的方式一模一样，只是把生成图片的过程换成了发送短信。

 

 发送短信的方式，在你服务器那里写一段httpclient代码即可。
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1520 积分：10717 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/8 11:15:00 [只看该作者]

按理解楼上的意思，我感觉我写的是驴唇不对马嘴啊

这是注册页面（全部代码在9楼）：register.htm
        With .AddInputCell("ic2")
            .AddLabel("lyz","验证",0)
            .AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
            .AddVcodeButton("vyz","获取验证码",2).Attribute="onclick='fasongduanxin()'"  
        End With
        wb.AppendHTML("<script src='./lib/ajaxform_getstring.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页

ajaxform_getstring.js：
function fasongduanxin(){
    var result = sendAjaxText("getUser","","",false); ’发送数据到服务器
}

在foxtable重开一个项目:langwoclient，准备发送短信（这个写在项目哪个事件？）
Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
hc.Headers.Add("apikey","mobile"，"text"，"extend"，"uid"，"callback_url")
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)

[此贴子已经被作者于2017/5/8 11:15:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/8 11:25:00 [只看该作者]

1、先测试发送短信的代码能否成功

 

2、js代码 var result = sendAjaxText("sendMsg","test.htm","",false);

 

3、你项目的httpReqeust事件

 

    Case "test.htm"
        Select e.PlainText
            Case "sendMsg" 
                '发送短信的代码

                msgbox("发送完毕")
                'e.WriteString(v)
        End Select
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1520 积分：10717 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/8 15:58:00 [只看该作者]

这是注册页面部分代码：
        With .AddInputCell("ic1")  '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
            .AddLabel("lsj","手机",0)  '增加标签(0显示在左边)
            .AddInput("isj","text",1).PlaceHolder= "请输入手机号"  '增加输入框(0靠左显示,1居中显示,2靠右显示)
        End With
        ******
        With .AddInputCell("ic2")
            .AddLabel("lyz","验证",0)
            .AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
            .AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click='validit_register_fasongduanxin()'"
        End With
    *******
    wb.AppendHTML("<script src='./lib/ajaxform_register_fasongduanxin.js'></script>") '引入脚本文件
    wb.AppendHTML("<script src='./lib/ajaxform_register.js'></script>") '引入脚本文件
    e.WriteString(wb.Build)

这是js代码：
function validit_register_fasongduanxin(){
alert("OK"); ’这里执行了
var result = sendAjaxText("isj","fasongduanxin.htm","",false);
}

这是fasongduanxin.htm代码：
Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim shoujihao As String = e.PlainText '赋值手机号
        wb.AppendHTML("<script>alert('ok2!')</script>")  ’这2行没有执行
        wb.insertHTML("<script>alert('" & shoujihao & "')</script>")
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        hc.FormData.Add("apikey","24e3a47f44f34bfb6a296471470808c1") '平台用户标识
        hc.FormData.Add("mobile","'" & shoujihao & "'") '被发送的手机号
        hc.FormData.Add("text","1540736") '短信模板
        'hc.FormData.Add("callback_url","http://www.zm2hd.com/fasongduanxin.htm") '运营商返回发送报告(http://yourreceiveurl_address)
        hc.getData()
        wb.AppendHTML("<script>alert('发送完毕!如果60秒后没有收到短信请重新发送!')</script>") ’这没有执行
        e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2017/5/8 22:11:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/8 16:35:00 [只看该作者]

代码不需要写到新项目，直接在原来的项目写代码就行了。

 

Select Case e.path
    Case "fasongduanxin.htm"
                Dim shoujihao As String = e.PlainText   '获取的手机号码，你可以直接发过来，比如你可以发送 sendAjaxText("18961305239","fasongduanxin.htm","",false);
                msgbox(shoujihao)
                '这里写发送代码
                e.WriteString(shoujihao)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1520 积分：10717 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/8 18:32:00 [只看该作者]


Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim shoujihao As String = e.PlainText '赋值手机号
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        hc.FormData.Add("apikey","24e3a47f44f34bfb6a296471470808c1") '平台用户标识
        hc.FormData.Add("mobile","'" & shoujihao & "'") '被发送的手机号
        hc.FormData.Add("text","1540736") '短信模板
        hc.FormData.Add("callback_url","http://www.zm2hd.com/fasongduanxin.htm") '运营商返回发送报告，这个网页可以手动设置，写成这样不知道，是否可以？
        '发送短信这里，下面实在不知道怎么写了，憋在这好久，还请指教
        Dim ret As String = hc.getData()
        If hc.rCookies.ContainsKey("error") Then
            MessageBox.Show(hc.rCookies("error"), "提示", MessageBoxButtons.OK ,MessageBoxIcon.Warning)
        Else
            MessageBox.Show("增加行成功,新增行的主键为:" & ret)
        End If
        wb.AppendHTML("<script>alert('发送完毕!')</script>")
        e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2017/5/8 19:48:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/8 20:26:00 [只看该作者]

1、用你自己的一个页面接收发送报告即可，如果这个表格可有可无，就不用处理了

2、发送短信就等着看手机短信，不用在处理什么了。

Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        hc.FormData.Add("apikey","24e3a47f44f34bfb6a296471470808c1") '平台用户标识
        hc.FormData.Add("mobile","'" & shoujihao & "'") '被发送的手机号
        hc.FormData.Add("text","1540736") '短信模板
        hc.FormData.Add("callback_url","http://www.zm2hd.com/fasongduanxin.htm") '运营商返回发送报告，这个网页可以手动设置，写成这样不知道，是否可以？
        '发送短信这里，下面实在不知道怎么写了，憋在这好久，还请指教
        hc.getData()
        wb.AppendHTML("<script>alert('发送完毕，如果xxx秒后没有收到短信请重新发送!')</script>")
        e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1520 积分：10717 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/8 22:06:00 [只看该作者]

根据楼上意思，将项目发布，然后将public及web文件打包上传到服务器

执行提示：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
远程服务器返回错误: (400) 错误的请求。

代码写在15楼（原代码基础上修改的）
[此贴子已经被作者于2017/5/8 22:06:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/8 22:11:00 [只看该作者]

说明你第三方接口调用不正确

 回到顶部
总数 51 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 4 次数据查询