没有弹窗。
此主题相关图片如下:123.jpg
...
ElseIf e.Request.HttpMethod = "Post"
Dim xo As XObject = XObject.Parse(e.PlainText)
Dim st As New Date(1970,1,1,8,0,0)
S e l e c t Case xo("MsgType")
Case "text","image","voice","video","shortvideo" '保存和自动回复收到的消息
...
Case "event" '如果是事件
S e l e ct Case xo("Event")
Case "subscribe" '关注事件
...
Case "unsubscribe" '取消关注事件
...
Case "TEMPLATESENDJOBFINISH" '接收模版消息发送完成事件'
msgbox(1)
Dim dr As DataRow = DataTables("TemplateMessage").Find("MsgID = " & xo("MsgID").ToString)
If dr Is Nothing Then
dr = DataTables("TemplateMessage").AddNew()
dr("MsgID") = xo("MsgID") '动态生成的消息ID,每个消息都不同
dr("OpenID") = xo("FromUserName")'接收方OpenID
msgbox(2)
End If
dr("Status") = xo("Status") '记录发送状态
dr.Save()
msgbox(3)
End S e l e c t
[此贴子已经被作者于2017/6/14 16:37:35编辑过]