Foxtable(狐表)用户栏目专家坐堂 → 关于微信配置问题


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

主题:关于微信配置问题

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


加好友 发短信
等级:婴狐 帖子:24 积分:300 威望:0 精华:0 注册:2019/3/5 16:43:00
关于微信配置问题  发帖心情 Post By:2019/5/17 19:49:00 [只看该作者]

第一步接口配置信息的时候一定要使用80端口?
能否 http://120.*.*.54:22222/wefox  这样的

使用msgbox在httprequest还有定义的自定义函数都没问题

代码就是说明的代码
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
 
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
End Select


定义的函数是VerifySignature

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
[此贴子已经被作者于2019/5/17 19:50:41编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:27047 积分:137986 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/17 20:13:00 [只看该作者]

必须使用80端口,这是微信规定的,谁都没有办法

 回到顶部