AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--Token Permanente Whatsapp

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-10-08 18:12:57 -07:00
parent 0d01e809f5
commit 8500107a31
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/modExtensiones.vb
View File

@@ -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""", "")) 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 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 RetornoObj As String = "{}"
Dim Retorno As Boolean = False 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 Try
Dim TokenAutorizacion As String = $"Bearer {Str}" Dim TokenAutorizacion As String = $"Bearer {Str}"

5
Sistemas/SessionesActivas.aspx.vb
View File

@@ -192,6 +192,11 @@ Partial Class SessionesActivas
Protected Sub LnkEnviar_Click(sender As Object, e As EventArgs) 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>" 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) ClsSisNotificaciones.EnviarAlerta("Aviso", mensaje, RCveUsuario, Tipo:=TipoNotificacion.ToastInformacionB)
RegistraScript($"$(""#DivMensaje"").modal('hide');console.log('{Decripta(Context.User.Identity.Name)}')") RegistraScript($"$(""#DivMensaje"").modal('hide');console.log('{Decripta(Context.User.Identity.Name)}')")