edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Session / UserActivity

Browse Source 
CHAT --> AFK-Erkennung
This commit is contained in:
Andreas Luxbauer
2022-11-22 22:39:35 +01:00
parent 4b9d6db10b
commit d9b13ba8fb
4 changed files with 55 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
View File

@@ -22,6 +22,8 @@ Public Class cSession
Property sess_login As Object = Nothing = Now
Property sess_logout As Object = Nothing
Property sess_lastRm As Object = Nothing
Property sess_lastActivity As Object = Nothing
Property sess_status As Object = Nothing
Dim SQL As New SQL
@@ -49,6 +51,8 @@ Public Class cSession
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_login", sess_login))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastActivity", sess_lastActivity))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_status", sess_status))
Return list
End Function
@@ -105,7 +109,12 @@ Public Class cSession
sess_lastRm = Now
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
sess_lastActivity = Now.AddSeconds(-1 * VERAG_PROG_ALLGEMEIN.cUserActivity.GetLastInputTime_Seconds) ' Letzte UserAktivität
'If DateDiff(DateInterval.Minute, sess_lastActivity, Now) > 10 Then
' sess_status =
'End If
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_lastActivity='" & sess_lastActivity & "' WHERE sess_Id=@sess_Id ", "ADMIN", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
@@ -135,6 +144,7 @@ Public Class cSession
Catch ex As Exception
End Try
Me.sess_lastRm = Now
Me.sess_lastActivity = Now
Me.sess_progId = Nothing
Me.sess_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
Me.sess_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
@@ -148,11 +158,12 @@ Public Class cSession
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True))
sess_lastRm = Now
sess_lastActivity = Now
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
sess_logout = Now
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout))
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_logout=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_logout=GETDATE(),sess_lastActivity=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
@@ -201,4 +212,7 @@ Public Class cSession
Return ""
End Function
End Class
End Class
'Class cSESSION_STATUS
' Shared ONLINE As String =
'End Class