新手分享，高手勿喷！
这是即简单又直接的一种方法
'====调用微信分享接口开始====================================================
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编辑过]
加好友 
发短信
Post By：2019/8/1 15:07:00 [只看该作者]
