Comunes/tsUtilidades
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- 2026-04-10 1.1.10 Se corrige tsNotificacionesClient

Browse Source
This commit is contained in:
Manuel Moguer
2026-04-10 12:20:29 +02:00
parent 8c0b8f85da
commit 1c8df57507
2 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
tsNotificacionesClient.vb
View File

@@ -1,8 +1,10 @@
Imports System.Configuration Imports System.Configuration
Imports System.IO
Imports System.Net Imports System.Net
Imports System.Net.Http Imports System.Net.Http
Imports System.Net.Http.Headers Imports System.Net.Http.Headers
Imports System.Net.Http.Json Imports System.Net.Http.Json
Imports Microsoft.Extensions.Configuration
Public Class TsNotificacionesClient Public Class TsNotificacionesClient
@@ -21,25 +23,26 @@ Public Class TsNotificacionesClient
Try Try
ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Or SecurityProtocolType.Tls11 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Or SecurityProtocolType.Tls11
Dim baseUrl = ConfigurationManager.AppSettings("TsNotificaciones:ApiUrl")
Dim idAplicacion = Integer.Parse(ConfigurationManager.AppSettings("TsNotificaciones:IdAplicacion"))
Dim apiKey = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
Dim http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)}
Dim NombreServidor = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
If NombreServidor = "" Then NombreServidor = System.Environment.MachineName
'Dim json As String = String.Format(
' "{{""idAplicacion"":{0},""nombreServidor"":""{1}"",""ipServidor"":""{2}""," &
' """titulo"":""{3}"",""stacktrace"":""{4}"",""nivelSeveridad"":{5}}}",
' idAplicacion, EscaparJson(Environment.MachineName), ObtenerIp(),
' EscaparJson(titulo), EscaparJson(descripcion), CInt(TipoNotificacion))
'Await http.PostAsync("/api/alertas/registrar", 'Dim baseUrl = ConfigurationManager.AppSettings("TsNotificaciones:ApiUrl")
' New StringContent(json, Encoding.UTF8, "application/json")) 'Dim idAplicacion = Integer.Parse(ConfigurationManager.AppSettings("TsNotificaciones:IdAplicacion"))
'Dim apiKey = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
'Dim http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)}
'Dim NombreServidor = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
'If NombreServidor = "" Then NombreServidor = System.Environment.MachineName
Dim config = New ConfigurationBuilder().SetBasePath(Directory.GetCurrentDirectory()).AddJsonFile("appsettings.json", [optional]:=False).Build()
Dim apiUrl = If(config("TsNotificaciones:ApiUrl"), "http://localhost:7159")
Dim idAplicacion = Integer.Parse(If(config("TsNotificaciones:IdAplicacion"), "1"))
Dim apiKey = If(config("TsNotificaciones:ApiKey"), String.Empty)
Dim nombreServidor = If(config("TsNotificaciones:NombreServidor"), Environment.MachineName)
Dim http = New HttpClient() With {.BaseAddress = New Uri(apiUrl)}
Dim Tipo = CInt(TipoNotificacion) Dim Tipo = CInt(TipoNotificacion)
Dim request = New HttpRequestMessage(HttpMethod.Post, "/api/alertas/registrar") Dim request = New HttpRequestMessage(HttpMethod.Post, "/api/alertas/registrar")
request.Headers.Add("X-Api-Key", apiKey) request.Headers.Add("X-Api-Key", apiKey)
request.Content = JsonContent.Create(New With {idAplicacion, NombreServidor, ObtenerIp(), titulo, descripcion, Tipo}) Dim ipServidor As String = ObtenerIp()
request.Content = JsonContent.Create(New With {idAplicacion, nombreServidor, ipServidor, titulo, descripcion, Tipo})
Dim response = Await http.SendAsync(request) Dim response = Await http.SendAsync(request)
Dim body As System.Text.Json.JsonElement = Await response.Content.ReadFromJsonAsync(Of System.Text.Json.JsonElement)() Dim body As System.Text.Json.JsonElement = Await response.Content.ReadFromJsonAsync(Of System.Text.Json.JsonElement)()
Dim id = body.GetProperty("id").GetInt32() Dim id = body.GetProperty("id").GetInt32()

4
tsUtilidades.vbproj
View File

@@ -16,11 +16,13 @@
<TargetFramework>net8.0</TargetFramework> <TargetFramework>net8.0</TargetFramework>
<PackageId>tsUtilidades</PackageId> <PackageId>tsUtilidades</PackageId>
<PackageTags>net8.0, libreria</PackageTags> <PackageTags>net8.0, libreria</PackageTags>
<Version>1.1.8</Version> <Version>1.1.10</Version>
<Authors>Manuel</Authors> <Authors>Manuel</Authors>
<Company>Tecnosis S.A</Company> <Company>Tecnosis S.A</Company>
<Description>Utilidades Varias</Description> <Description>Utilidades Varias</Description>
<PackageReleaseNotes> <PackageReleaseNotes>
- 2026-04-10 1.1.10 Se corrige tsNotificacionesClient
- 2026-04-10 1.1.9 Se corrige tsNotificacionesClient
- 2026-04-09 1.1.8 Se añade la clase tsNotificacionesClient - 2026-04-09 1.1.8 Se añade la clase tsNotificacionesClient
- 2026-04-09 1.1.7 Se añade la clase Excel - 2026-04-09 1.1.7 Se añade la clase Excel
- 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex - 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex