Dim e As RequestEventArgs = args(0) '判断授权客户端
Dim ok As Integer = 0
if e.PlainText > "" then
Dim jo As JObject = JObject.Parse(e.PlainText) '接受数据
If jo("DDDId") Is Nothing Then
……
dr("最后连接时间")= Date.Now
dr.Save
End If
End If
End If
End If
Dim newjo As New JObject '生成权限签证===========================================================================
newjo("OK")=ok
If ok=666 Then
newjo("GetID")=dr("授权码").tostring
End If
'msgbox(newjo.ToString)
e.WriteString(newjo.ToString)
加好友 
发短信
Post By：2024/2/20 8:54:00 [显示全部帖子]
