.NET (Core and Framework)

If ((DateTime.Now.Ticks - mStartSession) > (CGlobali.WebSessionDuration * 10000000)) Then

CType(CGlobali.Users.Item(i), CWebUser).WUTimer.Enabled = True

Dim aaa As Boolean
aaa = CType(CGlobali.Users.Item(i), CWebUser).WUTimer.Enabled

AddHandler (mWUTimer.Tick), AddressOf WUTimer_Tick

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()
  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
 
  Public Sub EnableTimer(Byval IpAddress As String, ByVal Name As String)
    IP = IpAddress
    UserName = Name
    mWUTimer = New System.Windows.Forms.Timer()
    mWUTimer.Interval = 10000
    AddHandler (mWUTimer.Tick), AddressOf WUTimer_Tick
    mWUTimer.Enabled = True
  End Sub
End Class

steve_9496613 wrote:

mWUTimer = New System.Windows.Forms.Timer()

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

steve_9496613 wrote:

Your link to the documentation about the System.Windows.Forms.Timer refers to .Net Framework 4.5

steve_9496613 wrote:

Compact Framework 3.5 (and also .NET Framework 3.5) this timer is supported.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

steve_9496613 wrote:

I'm sure you're right but

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

nagham_4ng wrote:

Any HELP!!!

• How to: Programmatically Define and Select Ranges in Documents[^]
  
• How to: Insert Text into Word Documents[^]
• How to: Define and Select Ranges in Documents[^]

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

nagham_4ng wrote:

my prob here is that I don't know the index of the characters #

nagham_4ng wrote:

plus that each 2 consecutive # make one range

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Member 7748630 wrote:

I mean I am using Microsoft word with Microsoft .Net

Member 7748630 wrote:

The Web Viewer is doing a good job, I'll stick with that

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]