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

18/10/23 - Se agregó que el monitor haga un ping a la IP 8.8.8.8 e indique el resultado

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-18 06:18:37 -06:00
parent 8d51e36ce4
commit c9fec07fc3
7 changed files with 86 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/monitor.bas
View File

@@ -14,6 +14,7 @@ Sub Process_Globals
Dim reqManager As DBRequestManager
' Dim DBReqServer As String = "http://keymon.lat:1782"
' Dim skmt As SQL
' Dim ph As Phone
Dim Timer1 As Timer
Private lock As PhoneWakeState
Dim Interval As Int
@@ -67,14 +68,17 @@ End Sub
Sub probamosConexion
If logger Then Log("probamos probamosConexion")
If B4XPages.IsInitialized Then
B4XPages.MainPage.cb_conexion.Checked = False
B4XPages.MainPage.cb_internet.Checked = False
B4XPages.MainPage.cb_dbreqserver.Checked = False
B4XPages.MainPage.cb_db.Checked = False
End If
If IsConnectedToInternet Then
s.ping
InternetOk = True
If B4XPages.IsInitialized Then
B4XPages.MainPage.cb_internet.Checked = True
B4XPages.MainPage.cb_conexion.Checked = True
B4XPages.MainPage.cb_internet.Checked = Starter.ping
Dim cd1 As ColorDrawable
cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
B4XPages.MainPage.b_ping.Background = cd1
@@ -94,7 +98,7 @@ Sub probamosConexion
Else
If logger Then Log("Sin conexión a internet!!!")
s.notiLowReturn("SIN INTERNET ❌", "NO hay conexion a internet.", nid)
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexion a internet!!"
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexión a internet!!"
End If
End Sub
@@ -153,7 +157,9 @@ Sub JobDone(Job As HttpJob)
' Log(resultado.Rows.Size)
End If
If B4XPages.IsInitialized Then
B4XPages.MainPage.cb_internet.Checked = InternetOk
B4XPages.MainPage.cb_conexion.Checked = InternetOk
B4XPages.MainPage.cb_internet.Checked = Starter.ping
If DBReqServerOk Then B4XPages.MainPage.cb_internet.Checked = True
B4XPages.MainPage.cb_dbreqserver.Checked = DBReqServerOk
B4XPages.MainPage.cb_db.Checked = DBOk
End If
@@ -173,3 +179,4 @@ Sub IsConnectedToInternet As Boolean 'ignore
If logger Then LogColor("Not connected", Colors.red)
Return False
End Sub