在msg_ProcessMsgQue函数中，有以下代码，中间有两处条件判断 即 If msgData.IsReply = 1 用msgbox(msgdata.isreply)弹出发现结果是-1(回复失败),搜遍全部 代码都 不见msgdata.isreply何时被修改的，请问这个条件是在什么 情况下会被修改
'处理消息队列,把消息存入"Msg_RequestMessages"表
'这里只保存,后续处理留给计划任务,因为消息回复只有4秒时间(说明见WeChat_ProcessMessage)
'msgbox(11) '往公众号里面发消息能弹出
try
Dim msgData As MessageData = Args(0)
If msgData Is Nothing OrElse msgData.MsgData Is Nothing Then Return ""
Dim sql As String = "sele ct * from Msg_RequestMessages where 1=2"
Dim dt As DataTable = Functions.Execute("Cmd_GetDataTable","WeChat",sql,True)
Dim dr As DataRow = dt.AddNew
Dim RequestID = Guid.NewGuid().ToString()
dr("RequestID") = RequestID
dr("PubNoOpenID") = msgData.MsgData.ToUserName
dr("AppID") = msgData.AgentID
Dim drPub As DataRow = DataTables("WeChatPubNos").Find("OpenID='" & msgData.MsgData.ToUserName & "'")
If drPub IsNot Nothing Then dr("PublicNoID") = drPub("PublicNoID")
dr("RequestTime") = msgData.MsgData.GetCreateTime()
dr("HandleFlag") = 0
dr("OriginalData") = msgData.MsgData.InnerXml
dr("MsgType") = msgData.MsgType
dr("EventType") = msgData.EventType
msgbox(msgData.IsReply & "第一次") '弹出-1
If msgData.IsReply = 1 Then
dr("ReplyTime") = Date.Now
Else
dr("HandleError") = msgData.ReplyData
End If
dr("IsRelay") = msgData.IsReply
dr("CreateTime") = Date.Now
dr("PublicNoType") = CInt(msgData.MsgData.Type)
dr("HandleCount") = 0
dr("RuleID") = msgData.RuleIDList
dr("MsgUniqueId") = msgData.MsgData.MsgUniqueId
msgbox(msgData.IsReply & "第二次") '弹出-1
If msgData.IsReply = 1 Then
' msgbox("已回复") '发消息后弹不出
'如果消息已经回复,同时保存到已回复表'
Functions.Execute("Msg_AddReplyMessage",dr,"",msgData.MsgData.FromUserName,msgData.MsgData.ToString,1,0,msgData.ReplyData)
End If
dr.Save()
Catch ex As Exception
Functions.Execute("LogText",ex)
End try
加好友 
发短信
Post By：2017/3/3 18:43:00 [只看该作者]
