.NET (Core and Framework)

Public Class CWebUser

  Private mUserName As String = ""         'nome utente
  Private mPassword As String = ""         'MD5 della password 
  Private mIP As String = ""               'IP di provenienza della connessione
  Private mStartSession As Long = 0        'istante di inizio della connessione come ticks
  Private mLogged As Boolean = False       'flag per sapere se l'utente è loggato
  Private WithEvents mWUTimer As System.Windows.Forms.Timer   'timer per gestire la durata della connessione

  Sub New()
    mWUTimer = New System.Windows.Forms.Timer()
    mWUTimer.Enabled = False
    mWUTimer.Interval = 10000
    AddHandler (mWUTimer.Tick), AddressOf WUTimer_Tick
  End Sub

  Private Sub WUTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If ((DateTime.Now.Ticks - mStartSession) > (CGlobali.WebSessionDuration * 10000000)) Then
      mWUTimer.Enabled = False
      mIP = ""
      mLogged = False
    End If
  End Sub

  Public Property UserName() As String
    Get
      Return mUserName
    End Get
    Set(ByVal value As String)
      mUserName = value
    End Set
  End Property

  Public Property Password() As String
    Get
      Return mPassword
    End Get
    Set(ByVal value As String)
      mPassword = value
    End Set
  End Property

  Public Property IP() As String
    Get
      Return mIP
    End Get
    Set(ByVal value As String)
      mIP = value
    End Set
  End Property

  Public Property StartSession() As Long
    Get
      Return mStartSession
    End Get
    Set(ByVal value As Long)
      mStartSession = value
    End Set
  End Property

  Public Property Logged() As Boolean
    Get
      Return mLogged
    End Get
    Set(ByVal value As Boolean)
      mLogged = value
    End Set
  End Property

  Public Property WUTimer() As System.Windows.Forms.Timer
    Get
      Return mWUTimer
    End Get
    Set(ByVal value As System.Windows.Forms.Timer)
      mWUTimer = value
    End Set
  End Property

End Class

Private Sub SetWUser(ByVal Name As String, ByVal IP As String)
  Dim i As Int32

  For i = 0 To (CGlobali.Users.Count - 1)
    If (Name = CType(CGlobali.Users.Item(i), CWebUser).UserName) Then
      CType(CGlobali.Users.Item(i), CWebUser).IP = IP
      CType(CGlobali.Users.Item(i), CWebUser).Logged = True
      CType(CGlobali.Users.Item(i), CWebUser).StartSession = DateTime.Now.Ticks
      CType(CGlobali.Users.Item(i), CWebUser).WUTimer.Enabled = True
      Exit Sub
    End If
  Next

End Sub