usuarios(cerrar session, macaddres), se corrrigio doble click en login, actualizacion signalR

Inicio.aspx.vb

@@ -55,7 +55,13 @@ Partial Class Inicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            'Reporte de ventas sin registrar sig
+            'Dim obj As Object = GetType(HttpRuntime).GetProperty("CacheInternal", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.[Static]).GetValue(Nothing, Nothing)
+            'Dim obj2 As Object() = CType(obj.[GetType]().GetField("_caches", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance).GetValue(obj), Object())
+            If Not IsNothing(Request("logout")) AndAlso Request("logout").ToString() = "1" Then
+                Usuario.CerrarSession()
+                Exit Sub
+            End If
+            'Reporte de ventas sin registrar sig
             If UsuarioActual.TienePermisoProceso(287) Then
 
                 Using objgral As New ClsGenerales
@@ -618,8 +624,8 @@ Partial Class Inicio
         Catch
         End Try
         Return SBSesiones.ToString
-    End Function
-
+    End Function
+
 #Region "   FULL CALENDAR   "
     Private Sub InicializaCalendar()
         RegistraScript("InitCalendar();")
@@ -801,9 +807,9 @@ Partial Class Inicio
     End Sub
     Protected Sub BtnActualizaAdd_Click(sender As Object, e As EventArgs)
         RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
-    End Sub
+    End Sub
 #End Region
-
+
     Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged
         CargaTareas()
     End Sub
@@ -811,8 +817,8 @@ Partial Class Inicio
 
     End Sub
     Protected Sub BtnIndicador_Click(sender As Object, e As EventArgs)
-    End Sub
-
+    End Sub
+
 #Region "DIRECTORIO TELEFONICO"
     Private Sub CargaDirectorioTelefonico()
         Dim ObjPersonal As New ClsRH
@@ -851,9 +857,9 @@ Partial Class Inicio
         End If
 
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "Metodos Graficar"
     Public Function GraficaLineas(data As DataTable, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional SinCols As String = "0", Optional VerValor As Boolean = False, Optional G1 As Boolean = False) As HighChart
         Dim grafica As New HighChart
@@ -1082,14 +1088,14 @@ Partial Class Inicio
         settings.NullValueHandling = NullValueHandling.Ignore
         settings.Formatting = Formatting.Indented
         Return JsonConvert.SerializeObject(obj, settings).ToString
-    End Function
-
+    End Function
+
 #End Region
     Protected Sub LnkIndicador_Click(sender As Object, e As EventArgs)
         CargaGraficas()
-    End Sub
-
-
+    End Sub
+
+
 #Region "COMUNICADO"
     Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DvModalComunicado').modal('show');")
@@ -1150,7 +1156,7 @@ Partial Class Inicio
         htmldiv.AppendFormat("{2}<div class='alert alert-info bg-purple' style='margin-bottom:0px; margin-left: 15px; margin-right: 15px;'><div class='row'><div class='col-md-1' style='padding-top: 7px;'><i class='{3}' style='font-size: 50px;color:white; opacity: 0.1;'></i></div> <div class='col-md-11' style='padding-left: 5;'><p style='margin: 0 0 0 0;'><strong>{0}</strong> {1}</p></div></div></div>", Titulo, Comentario, DIV.InnerHtml, Icono)
 
         DIV.InnerHtml = htmldiv.ToString
-    End Sub
+    End Sub
 #End Region
     Protected Sub BtnEvaluarProveedores_Click(sender As Object, e As EventArgs)