mirror of
https://github.com/KeymonSoft/Monitor-Keymon.git
synced 2026-04-18 05:09:21 +00:00
80d6ded85e
- Se quitaron librerias y permisos que no se usaban. - Se agregó la opción de monitorear mas de un servidor.
55 lines
1.7 KiB
QBasic
55 lines
1.7 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Service
|
|
Version=11
|
|
@EndOfDesignText@
|
|
#Region Service Attributes
|
|
#StartAtBoot: False
|
|
#End Region
|
|
|
|
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 activo As Boolean = True
|
|
Dim ultimaNoti As String
|
|
Dim logger As Boolean = False
|
|
End Sub
|
|
|
|
Sub Service_Create
|
|
' rp.Initialize("MonitorKeymon")
|
|
#if not(DEBUG)
|
|
logger = False
|
|
#end if
|
|
If logger Then Log("**************** Iniciamos Monitor Keymon ***********************")
|
|
End Sub
|
|
|
|
Sub Service_Start (StartingIntent As Intent)
|
|
' Log("NotificationService Start")
|
|
' 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)
|
|
End Sub
|
|
|
|
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
|