Dim wb As new WeUI
wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.4.0.js'></script>",True) '引入网络微信接口
Dim timestamp As String = CStr(WeChat.ConvertHelper.DatetimeToMsgCt(Date.Now))
Dim nonestr As String = Rand.NextString(12)
Dim url As String = e.Request.Url.AbsoluteUri
Dim wechatserv = WeChat.WeChatServer.Server(_AppId) '获取公众号服务
Dim signature As String = wechatserv.GetJsApiSignature(timestamp, nonestr, url) '生成签名
'Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['closeWindow','hideAllNonBaseMenuItem','chooseImage']});"
Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['closeWindow','hideAllNonBaseMenuItem']});"
wb.AppendHTML("<script>" & CExp(cfg,_AppId,timestamp ,nonestr ,signature ) & "</script>",True)
With wb.AddMsgPage("","msgpage","工单登记成功","我们将及时给您推送服务过程")
.Icon = "success"
.AddButton("btn1","确定") .Attribute= "" '调用关闭接口
End With
With wb.AddButtonGroup("","btg1",True) '垂直排列
.Add("btn1", "关闭页面", "button").Attribute= ""
.Add("btn4", "关闭", "button").Attribute= ""
'.Add("btn5", "按钮", "", "http://www.foxtable.com") '单击这个按钮可以打开foxtable主页
End With
e.WriteString(wb.Build) '生成网页
关闭页面可以关闭，隐藏功能不能实现
Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['closeWindow','hideAllNonBaseMenuItem']});"
改为：
Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['closeWindow1111','hideAllNonBaseMenuItem']});"
修改错误的closeWindow1111
还是可以关闭，请问是怎么回事？
加好友 
发短信
Post By：2019/3/10 16:55:00 [只看该作者]
