--Token Permanente Whatsapp

App_Code/modExtensiones.vb

@@ -628,10 +628,16 @@ Namespace Extensiones
             Return String.Format("<li><a href=""{4}"" {5}>{0}<span class=""details""><span class=""label label-sm label-icon label-{1}""><i class=""{2}""></i></span>{3}</span></a></li>", Time, Tipo, Ico, Mensaje, Link, If(tonewpage, "target=""_blank""", ""))
         End Function
 
-        Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String, Optional NombrePlantilla As String = "") As Boolean
+        Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String, Optional NombrePlantilla As String = "", Optional Token As String = "") As Boolean
             Dim RetornoObj As String = "{}"
             Dim Retorno As Boolean = False
-            Dim Str As String = My.Computer.FileSystem.ReadAllText($"c:\temp\WSToken.txt")
+            Dim Str As String = ""
+
+            If String.IsNullOrEmpty(Token) Then
+                Str = My.Computer.FileSystem.ReadAllText($"c:\temp\WSToken.txt")
+            Else
+                Str = Token
+            End If
 
             Try
                 Dim TokenAutorizacion As String = $"Bearer {Str}"

Sistemas/SessionesActivas.aspx.vb

@@ -192,6 +192,11 @@ Partial Class SessionesActivas
     Protected Sub LnkEnviar_Click(sender As Object, e As EventArgs)
 
         Dim mensaje = TxtMensaje.Text.Trim() + "<br/> <a target='_blank' href='https://www.w3schools.com'>Liga</a>"
+
+        'TokenPermanente
+        Dim Token = "EAAQvTBdnkp4BO51Hmf5PD48NaY3ZC830gUS7WVNNoZAampZCK256UQ68OZCVCcPZCZCMmtW4xZA0PtP8HLRz6ZASufOgqk4A0lOpCi4ZBtWR5ZCpiMZCr9e0PpwUx4lZBW0spGZBM1DcOHQE5DnTmeJ1RISBnzI1i8RbRClLk2xbvNTu4elEXoSaofd96bW2mQ66ddLprSAZDZD"
+        EnviarNotificacionWhatsApp("6621143532", mensaje, Token:=Token)
+
         ClsSisNotificaciones.EnviarAlerta("Aviso", mensaje, RCveUsuario, Tipo:=TipoNotificacion.ToastInformacionB)
 
         RegistraScript($"$(""#DivMensaje"").modal('hide');console.log('{Decripta(Context.User.Identity.Name)}')")