专家坐堂-[分享] 关于微信分享给朋友的部分接口代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [分享] 关于微信分享给朋友的部分接口代码

新手分享，高手勿喷！

这是即简单又直接的一种方法

\'====调用微信分享接口开始====================================================

wb.AppendHTML("<script src=\'http://res.wx.qq.com/open/js/jweixin-1.4.0.js\'></script>",True) \'引入微信JS-SDK库

Dim AppIdi As String= Vars("DeveloperID") \'微信开发者ID

Dim st As New Date(1970,1,1,8,0,0) \'获取时间

Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳

Dim nonestr As String = Rand.NextString(16) \'随机值

Dim url As String = e.Request.URL.ToString \'当前网页url

Dim signature As String = Functions.Execute("GetJsSignature",nonestr,timestamp,url) \'生成签名

Dim cfg As String = "wx.config({appId:\'{0}\',timestamp:\'{1}\',nonceStr:\'{2}\',signature:\'{3}\',jsApiList:[\'updateAppMessageShareData\',\'updateTimelineShareData\',\'onMenuShareWeibo\']});"

wb.AppendHTML("<script>" & CExp(cfg,AppIdi,timestamp,nonestr,signature) & "</script>",True)

wb.AppendHTML("<script>wx.ready(function () {wx.updateAppMessageShareData({title:\'标题\',desc:\'简要\',link:\'" & e.Request.Url.AbsoluteUri & "\',imgUrl:\'http://www.foxtable.com/bbs/favicon.ico\',success: function () {}})});</script>",True) \'自定义"分享给朋友"及"分享到QQ"按钮的分享内容 (1.4.0)

wb.AppendHTML("<script>wx.ready(function () {wx.updateTimelineShareData({title:\'标题\',link:\'" & e.Request.Url.AbsoluteUri & "\',imgUrl:\'http://www.foxtable.com/bbs/favicon.ico\',success: function () {}})});</script>",True) \'自定义"分享到朋友圈"及"分享到QQ空间"按钮的分享内容(1.4.0)

wb.AppendHTML("<script>wx.onMenuShareWeibo({title:\'标题\',desc:\'简要\',link:\'" & e.Request.Url.AbsoluteUri & "\',imgUrl:\'http://www.foxtable.com/bbs/favicon.ico\',success: function () {},cancel: function () {}});</script>",True) \'获取"分享到腾讯微博"按钮点击状态及自定义分享内容接口

\'====调用微信分享接口结束=====================================================

以下内容只有回复后才可以浏览

[此贴子已经被作者于2019/8/1 17:11:56编辑过]