- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 微信测试号，提交Token后，有什么样子回应？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139049)
-- 发布时间：2019/8/4 14:19:00
-- 微信测试号，提交Token后，有什么样子回应？
微信测试号，提交Token后，有什么样子回应？
此主题相关图片如下：token提交.png
我在云服中发布了HTTP服务，手机测试连接正常。把帮助中的有关代码和函数加入后（当然修改了appID和appsecret），到微信测试号管理平台去提交Token，没有任何反应，不知道正常不正常。窗口中设置了获取access_token的代码按钮，读出一长串字符来。
另外，帮助中关于接受用户消息的代码，粘贴在HttpRequest事件代码中，编译不能通过，提示Dim xo As XObject = XObject.Parse(e.PlainText)出错。
-- 发布时间：2019/8/4 21:26:00
--
贴出httprequest完整代码看看。
XObject 改为Foxtable.XObject
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2019/8/5 10:48:00
--
微信仅支持80端口，去掉上面的32177端口号
-- 发布时间：2019/8/5 11:25:00
--
HI,谢谢篮板，谢谢客服小黄，黄蓝是一家！