搞了大半年都没有解决的问题，微信卡券 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，微信JS-SDK扫一扫等接口都搞定了，

就是微信卡券要另外的

此主题相关图片如下：微信图片_20190328151238.png

此主题相关图片如下：微信图片_20190328151243.png

此主题相关图片如下：微信截图_20190328151124.png

我代码是这样写：

此主题相关图片如下：微信截图_20190328150723.png

Static CreateTime As Date '记录最近一次生成Ticket 的时间

Static Ticket As String '记录最近一次生成的Ticket

Dim tp As TimeSpan = Date.Now - CreateTime

'Dim ul As String = "https://api.weixin.qq.com/cgi-bin/ticket/getticket?access_token={0}&type=jsapi"

Dim ul As String = "https://api.weixin.qq.com/cgi-bin/ticket/getticket?access_token={0}&type=wx_card"

If tp.TotalSeconds > 3600 Then

Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetAccessToken","泉有限公司")))

Dim ret As String = hc.GetData()

If ret = "" Then '如果失败,再尝试一次

hc.GetData()

End If

CreateTime = Date.Now()

Dim jo As JObject = JObject.Parse(ret)

If jo("errcode") = "0" Then

Ticket = jo("ticket")

'Else

'MessageBox.show("获取jsapi_ticket,原因:" & vbcrlf & jo.ToString)

End If

'Dim signature As String = CExp("api_ticket={0}&noncestr={1}&timestamp={2}&card_id={3}&code={4}",Ticket,args(0),args(1),args(2),args(3))

Dim signature As String = CExp("timestamp={0}&api_ticket={1}&code={2}&noncestr={3}&card_id={4}",args(0),Ticket,args(1),args(2),args(3))

PopMessage("Ticket2:" & Ticket)

Return Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(signature, "SHA1").ToLower()

恩恩，甜老师，先问你这个。。。JS的怎么和网页一致呢？

此主题相关图片如下：微信截图_20190328153703.png

此主题相关图片如下：微信截图_20190328153639.png

嗯嗯嗯，甜老师，我用 openCard 这个可以成功打开卡券。现在就是你说的要动态写。动态要怎么写呢。。。一点头绪没有。。。

JS要怎么写，HTM要怎么写呢。。。

JS:

wx.openCard({

cardList: [{

cardId: 'pPYXKt6Wj76w484UuwiVu5M1d068',

code: '567203355666R'

}]// 需要打开的卡券列表

htm:

此主题相关图片如下：微信截图_20190328161905.png

甜老师，

wx.openCard({

cardList: [{

cardId: 'pPYXKt6Wj76w484UuwiVu5M1d068',

code: '567203355666R'

}]// 需要打开的卡券列表

这个要怎么合成呢。。。

这种是不是json结构的。。。

甜大大，我的Js是这样，外面还有一层：

要怎么直接写吗？是这个JS所有的都写吗？

还有，你说的读取进来怎么替换呢，怎么再插入网页呢。。。

谢谢甜大大。。。

此主题相关图片如下：微信截图_20190328174229.png

最后用insertHTML插入到网页去。

甜大，这个怎么搞，搞半天没对：

Dim js As String = FileSys.ReadAllText("E:\wwwroot\mobo\lib\jssdk4.js")

js.Replace("567203355666R","TYQ1000000213")

wb.AppendHTML("<script>" & js & "</script>",True)

主题：搞了大半年都没有解决的问题，微信卡券