cheveguerra/Monitor-Keymon
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Monitor-Keymon.git synced 2026-04-17 21:06:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.11.30

Browse Source 
- Se quitaron librerias y permisos que no se usaban.
- Se agregó la opción de monitorear mas de un servidor.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-01 02:28:38 -06:00
parent 4fe5dbd25a
commit 80d6ded85e
8 changed files with 243 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/NotificationService.bas
View File

@@ -11,14 +11,14 @@ Version=11
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim rp As ReplyAuto
' Dim rp As ReplyAuto
' Dim activo As Boolean = True
Dim ultimaNoti As String
Dim logger As Boolean = False
End Sub
Sub Service_Create
rp.Initialize("MonitorKeymon")
' rp.Initialize("MonitorKeymon")
#if not(DEBUG)
logger = False
#end if
@@ -27,7 +27,7 @@ End Sub
Sub Service_Start (StartingIntent As Intent)
' Log("NotificationService Start")
If rp.HandleIntent(StartingIntent) Then Return
' If rp.HandleIntent(StartingIntent) Then Return
DateTime.DateFormat = "mm"
ultimaNoti = DateTime.Date(DateTime.now)
If logger Then LogColor($"Ultima notificación en el minuto ${ultimaNoti}"$, Colors.green)
@@ -37,18 +37,18 @@ Sub Service_Destroy
End Sub
Sub MonitorKeymon_NotificationPosted (SBN As StatusBarNotification)
If ultimaNoti = "" Then ultimaNoti = 0
DateTime.DateFormat = "mm"
Private estaNoti As String = DateTime.Date(DateTime.now)
If estaNoti > 60 Then estaNoti = estaNoti - 60
If logger Then LogColor("Diferencia de tiempo entre notis = " & (estaNoti - ultimaNoti), Colors.blue)
If logger Then LogColor($"Esta noti en el minuto ${DateTime.Date(DateTime.now)}, ultima noti = ${ultimaNoti}"$, Colors.green)
If logger Then Log(SBN.PackageName)
If ultimaNoti < estaNoti Then
If logger Then LogColor($"******** TIEMPO *******"$, Colors.red)
ultimaNoti = estaNoti
If IsPaused(Monitor) Then StartService(Monitor)
End If
If logger Then LogColor("Monitor inicializado:" & Monitor.Timer1.IsInitialized, Colors.Magenta)
End Sub
'Sub MonitorKeymon_NotificationPosted (SBN As StatusBarNotification)
' If ultimaNoti = "" Then ultimaNoti = 0
' DateTime.DateFormat = "mm"
' Private estaNoti As String = DateTime.Date(DateTime.now)
' If estaNoti > 60 Then estaNoti = estaNoti - 60
' If logger Then LogColor("Diferencia de tiempo entre notis = " & (estaNoti - ultimaNoti), Colors.blue)
' If logger Then LogColor($"Esta noti en el minuto ${DateTime.Date(DateTime.now)}, ultima noti = ${ultimaNoti}"$, Colors.green)
' If logger Then Log(SBN.PackageName)
' If ultimaNoti < estaNoti Then
' If logger Then LogColor($"******** TIEMPO *******"$, Colors.red)
' ultimaNoti = estaNoti
' If IsPaused(Monitor) Then StartService(Monitor)
' End If
' If logger Then LogColor("Monitor inicializado:" & Monitor.Timer1.IsInitialized, Colors.Magenta)
'End Sub