主题：微信授权问题！

你什么时候调用验证函数的？必须先调用执行函数的代码，才能跳转到你其它地方去的。

1、请加入msgbox，看是否弹出msgbox触发对应的事件代码；

2、你要打开的是授权网页，而不是直接打开kq.htm，是访问授权页面以后，才能跳转到kq.htm的。

以下是引用xietan417在2017/11/30 18:20:00的发言：
好吧！还是不行！！我明天继续测试了！

你最初访问的地址，是哪个？如果你要访问这个地址 kq.htm，那么你就先跳转到这种地址

https://open.weixin.qq.com/connect/oauth2/authorize?appid=CORPID&redirect_uri=REDIRECT_URI&response_type=code&scope=snsapi_base&state=STATE#wechat_redirect

跳转到上面地址，是为了获取授权，授权成功以后，会重新返回 kq.htm 的，这个时候，再执行order函数，获取到userid。

现在你执行到什么地方开始报错？或者出现什么现象？

当没有授权的时候，你要里面跳转到授权页面重新授权的

Dim userid = Functions.Execute("order",e)
If userid = "" Then

    return

End If

最开始你访问哪个地址？

这种 https://open.weixin.qq.com/connect/oauth2/authorize?appid=CORPID&redirect_uri=REDIRECT_URI&response_type=code&scope=snsapi_base&state=STATE#wechat_redirect

还是这种 kq.htm ？

如果是后者，你要这样做：

1、访问 kq.htm

2、进入执行 order 函数

3、获得的userid肯定是空值，需要你重新跳转到授权页面

4、跳转到授权页面，点击授权后，重新跳转回来 kq.htm

5、这个时候再执行order函数，肯定能获取userid值

必须在授权页面跳转到kq.htm，才能获取到userid的。如果你没有经过授权页一次，是不能获取的。

关键问题是：最开始，你访问哪个地址？获取到的userid的值是什么？有没有跳转到授权页面？跳转后授权有没有返回。

请不要说应该。有没有跳到授权页面去？

跳转后，跳转到的是哪个地址？贴出来看看。点击授权后，浏览器报错吗？