diff --git a/tsNotificacionesClient.vb b/tsNotificacionesClient.vb index ea3b4d3..bcba859 100644 --- a/tsNotificacionesClient.vb +++ b/tsNotificacionesClient.vb @@ -1,8 +1,10 @@ Imports System.Configuration +Imports System.IO Imports System.Net Imports System.Net.Http Imports System.Net.Http.Headers Imports System.Net.Http.Json +Imports Microsoft.Extensions.Configuration Public Class TsNotificacionesClient @@ -21,25 +23,26 @@ Public Class TsNotificacionesClient Try ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True 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", - ' New StringContent(json, Encoding.UTF8, "application/json")) + '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 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 request = New HttpRequestMessage(HttpMethod.Post, "/api/alertas/registrar") 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 body As System.Text.Json.JsonElement = Await response.Content.ReadFromJsonAsync(Of System.Text.Json.JsonElement)() Dim id = body.GetProperty("id").GetInt32() diff --git a/tsUtilidades.vbproj b/tsUtilidades.vbproj index 1e6bafd..17a21f1 100644 --- a/tsUtilidades.vbproj +++ b/tsUtilidades.vbproj @@ -16,11 +16,13 @@ net8.0 tsUtilidades net8.0, libreria - 1.1.8 + 1.1.10 Manuel Tecnosis S.A Utilidades Varias + - 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.7 Se añade la clase Excel - 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex