Dim appid As String = "wx88219d7d605f17a6" '开发者ID
Dim timestamp As String = CStr(WeChat.ConvertHelper.DatetimeToMsgCt(Date.Now)) '时间戳
Dim nonestr As String = "123456789" '随机值
Dim url As String = "http://192.168.1.105/close.htm" '当前网页url
Dim wechatserv As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server(appid)
Dim signature As String = wechatserv.GetJsApiSignature(timestamp,nonestr, url)
Output.show(signature )
此主题相关图片如下:qq截图20190420091815.jpg
之前一直可以使用 最近不知道怎么回事 出错了