Foxtable(狐表)用户栏目专家坐堂 → [求助]微信接口验证


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

主题:[求助]微信接口验证

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


加好友 发短信
等级:幼狐 帖子:63 积分:821 威望:0 精华:0 注册:2020/7/3 22:09:00
[求助]微信接口验证  发帖心情 Post By:2020/11/18 23:43:00 [显示全部帖子]

购买了阿里云服务器ECS,在微信接口配置中填入

 

RUL:http://47.108.151.121/wefox/

Token: foxtable

 

httpserver开启代码如下

 

HttpServer.Prefixes.Add("http://*/")
HttpServer
.WebPath = "d:\web" 
HttpServer
.Start()

 

提交后总是提示“配置失败”。请老师指点一下。谢谢!

[此贴子已经被作者于2020/11/18 23:49:52编辑过]

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


加好友 发短信
等级:幼狐 帖子:63 积分:821 威望:0 精华:0 注册:2020/7/3 22:09:00
  发帖心情 Post By:2020/11/19 12:15:00 [显示全部帖子]

云服务器80端口也开通了

HttpRequet事件代码也写了

Httpserver也开启了,就是提示配置失败。


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


加好友 发短信
等级:幼狐 帖子:63 积分:821 威望:0 精华:0 注册:2020/7/3 22:09:00
  发帖心情 Post By:2020/11/19 12:18:00 [显示全部帖子]

httpserver启动代码:

HttpServer.Prefixes.Add("http://*/")
HttpServer
.WebPath = "d:\web" 

HttpServer.Start()

 

HttpRequet事件代码:

 

 

Select Case e.path
    Case "wefox"
        If e.Request.HttpMethod = "GET" Then
            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")
            If signature = strTmp.ToLower() Then
                e.WriteString(echostr)
           
End If
        End
If

End
Select

 

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20201119121000.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/11/19 12:20:59编辑过]

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


加好友 发短信
等级:幼狐 帖子:63 积分:821 威望:0 精华:0 注册:2020/7/3 22:09:00
  发帖心情 Post By:2020/11/19 14:10:00 [显示全部帖子]

点击提交后,没有提示框弹出

 回到顶部