Foxtable(狐表)用户栏目专家坐堂 → 微信测试号,提交Token后,有什么样子回应?


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

主题:微信测试号,提交Token后,有什么样子回应?

帅哥哟,离线,有人找我吗?
jq_shang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
微信测试号,提交Token后,有什么样子回应?  发帖心情 Post By:2019/8/4 14:19:00 [只看该作者]

微信测试号,提交Token后,有什么样子回应?
图片点击可在新窗口打开查看此主题相关图片如下:token提交.png
图片点击可在新窗口打开查看
我在云服中发布了HTTP服务,手机测试连接正常。把帮助中的有关代码和函数加入后(当然修改了appID和appsecret),到微信测试号管理平台去提交Token,没有任何反应,不知道正常不正常。窗口中设置了获取access_token的代码按钮,读出一长串字符来。
另外,帮助中关于接受用户消息的代码,粘贴在HttpRequest事件代码中,编译不能通过,提示Dim xo As XObject = XObject.Parse(e.PlainText)出错。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

贴出httprequest完整代码看看。

XObject 改为Foxtable.XObject 

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/8/5 10:41:00 [只看该作者]

Select Case e.path
    Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/8/5 10:42:00 [只看该作者]

Dim e As RequestEventArgs = Args(0)
Dim token = "foxtable" '必须和设置的Token相同
Dim signature As String = e.GetValues("signature")
Dim timestamp As String = e.GetValues("timestamp")
Dim nonce As String = e.GetValues("nonce")
Dim echostr As String = e.GetValues("echostr")
Dim aryTmp() As String = {token,timestamp,nonce}
Array.Sort(aryTmp)
Dim strTmp As String = String.Join("", aryTmp)
strTmp = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strTmp, "SHA1")
Return signature = strTmp.ToLower

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107669 积分:547660 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/5 10:48:00 [只看该作者]

微信仅支持80端口,去掉上面的32177端口号

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/8/5 11:25:00 [只看该作者]

HI,谢谢篮板,谢谢客服小黄,黄蓝是一家!

 回到顶部