mirror of
https://github.com/KeymonSoft/Monitor-Keymon.git
synced 2026-04-17 21:06:19 +00:00
efb4404cea
- Se actualizo la libreria ReplyAuto para que no mande mensajes de "notification_removed"
232 lines
8.2 KiB
QBasic
232 lines
8.2 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Service
|
|
Version=9.85
|
|
@EndOfDesignText@
|
|
#Region Service Attributes
|
|
#StartAtBoot: true
|
|
#ExcludeFromLibrary: True
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
Public rp As RuntimePermissions
|
|
' Dim reqManager As DBRequestManager
|
|
Dim DBReqServer As String = "http://keymon.lat:1782"
|
|
Dim skmt As SQL
|
|
' Dim Timer1 As Timer
|
|
' Dim Interval As Int = 30
|
|
Dim s As C_Subs
|
|
' Dim nid As Int = 51042
|
|
Dim monitorActivo As Boolean = True
|
|
' Dim InternetOk As Boolean = True
|
|
' Dim DBReqServerOk As Boolean = True
|
|
' Dim DBOk As Boolean = True
|
|
Dim logger As Boolean = True
|
|
Dim ping As Boolean = False
|
|
Dim servidores As List
|
|
End Sub
|
|
|
|
Sub Service_Create
|
|
'This is the program entry point.
|
|
'This is a good place to load resources that are not specific to a single activity.
|
|
' Timer1.Initialize("Timer1", Interval * 1000)
|
|
' Timer1.Enabled = True
|
|
#if not(DEBUG)
|
|
logger = False
|
|
#end if
|
|
servidores.Initialize
|
|
End Sub
|
|
|
|
Sub Service_Start (StartingIntent As Intent)
|
|
' Log(123)
|
|
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
|
|
s.Initialize
|
|
skmt = s.inicializaBD(File.DirInternal, "kmt.db")
|
|
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS cat_variables(nombre TEXT, valor text)")
|
|
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS cat_servidores(id INTEGER PRIMARY KEY, nombre TEXT, url text, intervalo TEXT, timeout TEXT)")
|
|
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS error_log(error TEXT, fecha text)")
|
|
If s.traeDBReqServerDeBD <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD
|
|
' reqManager.Initialize(Me, DBReqServer)
|
|
|
|
Private sa As Cursor = skmt.ExecQuery("select count(*) as cuantos from cat_servidores")
|
|
sa.Position = 0
|
|
If sa.GetString("cuantos") = 0 Then
|
|
Private sa2 As Cursor = skmt.ExecQuery("select * from cat_variables where nombre = 'servidor'")
|
|
If sa2.RowCount > 0 Then
|
|
sa2.Position = 0
|
|
skmt.ExecNonQuery($"insert into cat_servidores (url, intervalo, timeout) values ('${sa2.GetString("valor")}', '30', '11000')"$)
|
|
End If
|
|
End If
|
|
Private sa As Cursor = skmt.ExecQuery("select count(*) as cuantos from cat_servidores")
|
|
sa.Position = 0
|
|
If sa.GetString("cuantos") = 0 Then
|
|
skmt.ExecNonQuery($"insert into cat_servidores (url, intervalo, timeout) values ('http://keymon.lat:1781', '30', '11000')"$)
|
|
End If
|
|
StartService(Monitor)
|
|
End Sub
|
|
'
|
|
'Sub CreateNotification (Body As String) As Notification
|
|
' Dim notification As Notification
|
|
' notification.Initialize2(notification.IMPORTANCE_LOW)
|
|
' notification.Icon = "icon"
|
|
' notification.SetInfo("Tester", Body, Main)
|
|
' Return notification
|
|
'End Sub
|
|
'
|
|
''Genera una notificacion con importancia alta
|
|
'Sub notiHigh(title As String, body As String, id As String, activity As Object) 'ignore
|
|
' activity = Main
|
|
' Private notif As Notification
|
|
' notif.Initialize2(notif.IMPORTANCE_HIGH)
|
|
' notif.Icon = "icon"
|
|
' notif.Vibrate = False
|
|
' notif.Sound = False
|
|
' notif.AutoCancel = True
|
|
' If logger Then Log("notiHigh: "&title)
|
|
' notif.SetInfo(title, body, activity)
|
|
'' Log("notiHigh SetInfo")
|
|
' notif.Notify(id)
|
|
'End Sub
|
|
'
|
|
''Regresa el objeto de una notificacion con importancia baja
|
|
'Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'ignore
|
|
' Private notification As Notification
|
|
' notification.Initialize2(notification.IMPORTANCE_LOW)
|
|
'' Log("notiLowReturn: "&title)
|
|
' notification.Icon = "icon"
|
|
' notification.Sound = False
|
|
' notification.Vibrate = False
|
|
' notification.SetInfo(title, Body, Main)
|
|
' notification.Notify(id)
|
|
'' Log("notiLowReturn SetInfo")
|
|
' Return notification
|
|
'End Sub
|
|
'
|
|
'Sub Timer1_Tick
|
|
'' DateTime.DateFormat = "dd/MM HH:mm:ss"
|
|
'' If B4XPages.IsInitialized Then B4XPages.MainPage.l_ultimoPing.Text = $"Último ping: ${DateTime.Date(DateTime.now)}"$
|
|
'' If monitorActivo Then probamosConexion
|
|
'End Sub
|
|
|
|
Sub Service_TaskRemoved
|
|
'This event will be raised when the user removes the app from the recent apps list.
|
|
End Sub
|
|
|
|
Sub Service_Destroy
|
|
|
|
End Sub
|
|
'
|
|
'Sub probamosConexion
|
|
'' Log("probamos probamosConexion")
|
|
' If B4XPages.IsInitialized Then
|
|
' B4XPages.MainPage.cb_internet.Checked = False
|
|
' B4XPages.MainPage.cb_dbreqserver.Checked = False
|
|
' B4XPages.MainPage.cb_db.Checked = False
|
|
' End If
|
|
' If IsConnectedToInternet Then
|
|
' InternetOk = True
|
|
' If B4XPages.IsInitialized Then
|
|
' B4XPages.MainPage.cb_internet.Checked = True
|
|
' Dim cd1 As ColorDrawable
|
|
' cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
|
|
' B4XPages.MainPage.b_ping.Background = cd1
|
|
' B4XPages.MainPage.b_ping.Text = "Internet Ok"
|
|
' End If
|
|
' Dim cmd As DBCommand
|
|
' notiLowReturn("Con internet", "Hay conexion a internet", nid)
|
|
' If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "Hay conexion a internet!!"
|
|
' Dim cmd As DBCommand
|
|
' cmd.Initialize
|
|
' cmd.Name = "select_conexion"
|
|
' reqManager.ExecuteQuery(cmd, 0, "select_conexion", 1250)
|
|
' 'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"
|
|
' Timer1.Enabled = False
|
|
' Timer1.Interval = Interval * 1000
|
|
' Timer1.Enabled = True
|
|
' Else
|
|
' If logger Then Log("Sin conexión a internet!!!")
|
|
' notiLowReturn("Sin internet", "NO hay conexion a internet", nid)
|
|
' If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexion a internet!!"
|
|
' End If
|
|
'
|
|
'End Sub
|
|
'
|
|
'Sub reinicializaReqManager
|
|
' reqManager.Initialize(Me, DBReqServer)
|
|
' If logger Then Log("Inicializamos con: " & DBReqServer)
|
|
'End Sub
|
|
'
|
|
'Sub JobDone(Job As HttpJob)
|
|
'' Log("JOBDONE -- " & Job.Success)
|
|
'' Log(Job)
|
|
' If Job.Success = False Then
|
|
' If Job.JobName = "DBRequest" Then DBReqServerOk = False
|
|
'
|
|
' Dim cd1 As ColorDrawable
|
|
' cd1.Initialize(Colors.Red, 10dip)
|
|
' B4XPages.MainPage.b_ping.Background = cd1
|
|
' B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
|
|
' notiHigh("Con internet", $"El servidor ${DBReqServer} NO responde!!"$, nid, Main)
|
|
' If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then
|
|
' ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
|
|
' End If
|
|
' Else
|
|
' If Job.JobName = "DBRequest" Then DBReqServerOk = True
|
|
' If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
|
|
' If Job.JobName = "DBRequest" Then
|
|
' Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
' If resultado.Tag = "select_conexion" Then
|
|
' For Each records() As Object In resultado.Rows
|
|
' Private valor As String = records(resultado.Columns.Get("VALOR"))
|
|
' If valor = "OK" Then
|
|
' DBOk = True
|
|
' notiLowReturn("Con internet", $"El servidor esta respondiendo!!"$, nid)
|
|
' If B4XPages.IsInitialized Then
|
|
' B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!"
|
|
' Dim cd1 As ColorDrawable
|
|
' cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
|
|
' B4XPages.MainPage.b_ping.Background = cd1
|
|
' B4XPages.MainPage.b_ping.Text = "Servidor Ok"
|
|
' End If
|
|
' Else
|
|
' notiHigh("Con internet", $"El servidor NO esta respondiendo!!"$, nid, Main)
|
|
' If B4XPages.IsInitialized Then
|
|
' B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!"
|
|
' Dim cd1 As ColorDrawable
|
|
' cd1.Initialize(Colors.Red, 10dip)
|
|
' B4XPages.MainPage.b_ping.Background = cd1
|
|
' B4XPages.MainPage.b_ping.Text = "Servidor KO"
|
|
' End If
|
|
' End If
|
|
' Next
|
|
' End If
|
|
'' s.logJobDoneResultados(resultado)
|
|
' If resultado.Rows.Size = 0 Then DBOk = False
|
|
'' Log(resultado.Rows.Size)
|
|
' End If
|
|
' If B4XPages.IsInitialized Then
|
|
' B4XPages.MainPage.cb_internet.Checked = InternetOk
|
|
' B4XPages.MainPage.cb_dbreqserver.Checked = DBReqServerOk
|
|
' B4XPages.MainPage.cb_db.Checked = DBOk
|
|
' End If
|
|
' Job.Release
|
|
' End If
|
|
'
|
|
'End Sub
|
|
'
|
|
'Sub IsConnectedToInternet As Boolean 'ignore
|
|
' Dim r As Reflector
|
|
' r.Target = r.GetContext
|
|
' r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
|
|
' r.Target = r.RunMethod("getActiveNetworkInfo")
|
|
' If r.Target <> Null Then
|
|
' If logger Then LogColor("isConnectedOrConnecting", Colors.green)
|
|
' Return r.RunMethod("isConnectedOrConnecting")
|
|
' End If
|
|
' If logger Then LogColor("Not connected", Colors.red)
|
|
' Return False
|
|
'End Sub
|