From c9fec07fc3fe2f7e5c2e6df45e5f66b07efa9760 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 18 Oct 2023 06:18:37 -0600 Subject: [PATCH] =?UTF-8?q?18/10/23=20-=20Se=20agreg=C3=B3=20que=20el=20mo?= =?UTF-8?q?nitor=20haga=20un=20ping=20a=20la=20IP=208.8.8.8=20e=20indique?= =?UTF-8?q?=20el=20resultado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 46 +++++++++++++++++++++++++++++++++--- B4A/C_Subs.bas | 28 ++++++++++++++++++++++ B4A/Files/login.bal | Bin 16060 -> 17641 bytes B4A/Monitor-Keymon.b4a | 2 +- B4A/Monitor-Keymon.b4a.meta | 6 ++--- B4A/Starter.bas | 1 + B4A/monitor.bas | 13 +++++++--- 7 files changed, 86 insertions(+), 10 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 355cfac..dba0947 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -5,7 +5,7 @@ Type=Class Version=9.85 @EndOfDesignText@ #Region Shared Files -#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files" +'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files" 'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip '########################################################################################################### @@ -25,13 +25,15 @@ Version=9.85 Sub Class_Globals Private Root As B4XView Private xui As XUI + Dim ph As Phone Public login As B4XMainPage Dim s As C_Subs Private b_monitorActivo As Button - Private p_bMonitor As Panel +' Private p_bMonitor As Panel Private l_version As Label Dim l_status As Label Private p_estatus As Panel + Dim cb_conexion As CheckBox Dim cb_internet As CheckBox Dim cb_dbreqserver As CheckBox Dim cb_db As CheckBox @@ -56,6 +58,7 @@ Sub Class_Globals Private clv_server As CustomListView Private p_listItemServer As Panel Private l_server As Label + Private l_info As Label End Sub Public Sub Initialize @@ -81,6 +84,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) #if not(DEBUG) logger = False #end if + s.centraEtiqueta(l_info, Root.Width) End Sub Sub B4XPage_Appear @@ -130,7 +134,6 @@ End Sub 'Revisa si la aplicación tiene permiso para acceder a las notificaciones. Sub CheckNotificationAccess As Boolean - Dim ph As Phone Dim nstr, pstr As String Dim r As Reflector pstr = r.GetStaticField("anywheresoftware.b4a.BA", "packageName") @@ -218,6 +221,18 @@ Private Sub b_ping_Click b_ping.Background = cd1 b_ping.Text = "Buscando ..." CallSubDelayed(Monitor, "Timer1_Tick") + + CallSubDelayed(Monitor, "probamosConexion") + + +' Wait For (ph.ShellAsync("ping", Array As String("-c 1","-W 2", "8.8.8.8"))) Complete (Success As Boolean, ExitValue As Int, StdOut As String, StdErr As String) +' If Success Then +' Log("ExitValue:" & ExitValue) +' Log("StdError:" & StdErr) +' LogColor("StdOut: " & StdOut, Colors.Magenta) +' Else +' Log("Error: " & LastException) +' End If End Sub Private Sub b_timeout_Click @@ -245,3 +260,28 @@ Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel 'ignore ' i_prod.Bitmap = img Return p End Sub + + +Private Sub l_info_Click + l_info.Visible = False +End Sub + +Private Sub l_db_Click + l_info.Visible = True +End Sub + +Private Sub l_dbreqserver_Click + l_info.Visible = True +End Sub + +Private Sub l_internet_Click + l_info.Visible = True +End Sub + +Private Sub l_conexion_Click + l_info.Visible = True +End Sub + +Private Sub p_Main_Click + l_info.Visible = False +End Sub \ No newline at end of file diff --git a/B4A/C_Subs.bas b/B4A/C_Subs.bas index ab34c6a..2ffff25 100644 --- a/B4A/C_Subs.bas +++ b/B4A/C_Subs.bas @@ -446,3 +446,31 @@ Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'i Return notification End Sub +Sub ping + Private ph As Phone + Wait For (ph.ShellAsync("ping", Array As String("-c 1","-W 5", "8.8.8.8"))) Complete (Success As Boolean, ExitValue As Int, StdOut As String, StdErr As String) + If Success Then +' Log("ExitValue:" & ExitValue) +' Log("StdError:" & StdErr) + Private res() As String = Regex.Split(",", StdOut) + For i = 0 To res.Length - 1 + If res(i).Contains("1 received") Then + If Starter.logger Then LogColor(">>> HAY CONEXION", Colors.Green) + Starter.ping = True + Else If res(i).Contains("0 received") Then + If Starter.logger Then LogColor(">>> NO HAY CONEXION", Colors.Red) + Starter.ping = False + End If +' Log(res(i)) + Next +' LogColor("StdOut: " & res, Colors.Blue) + If B4XPages.IsInitialized Then B4XPages.MainPage.cb_internet.Checked = Starter.ping + If Not(Starter.ping) Then + If Starter.logger Then Log("Sin conexión a Google!!!") + notiLowReturn("SIN INTERNET ❌", "NO hay conexion a Google.", Monitor.nid) + If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexión a Google!!" + End If + Else + Log("Error: " & LastException) + End If +End Sub \ No newline at end of file diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index 89a045ebb9ff1926211cf47617806895b13a6f7c..b8c0b1b5fc9526ddb205fd625c62df62aced9425 100644 GIT binary patch delta 2593 zcmb_eZETZO6z(1CpxxHmZtSBi>utAnTi2DXt@~gb%BM^*;57KhfbIG+I!fEM-53az zkBQ-HIF6{G3{V90kHqo=6AV8{j4?zcF(Jl?nivyGA1hX?RH}XqTKxLPi%;qcLHYvg`l1nOBovL%UafQdn<9;{gE$x% zzx|a?7>8#}K4Yfpd|4C>6i@xerNM+0AC}?;vLF;$AEi6&dsa=i@(!emAQYAczzCE8 zrNCUE3@BId3I(qOHvwkAqTutus{kv&72Kxa_8Fd1RnI)AY81Ry!5s=-r{MJp-k{)4 z@J7G|Gy!g4KG3Y-Eiy;=Lg7&;yjf0b^FLm$&eJ0_y&I<6b>c*K|ddg_<3eS*q)0^iKL&$hNPgx zahCYAq4gmb_x8KE50H|5h$*`@;UksfL=IIfDdrA`g3&maMnq1cJQ_$24M%xgN?>vL zz&cOIhxyXQz0#l}*uf!5L_0klVaO(8jyySvOu83?FlI?^(Ci! z#XdbT%I#|wtz6aHz3K_OJAFalJ%{b4Q`|%s40?L5xr+{4YtthYOY+$A^kq|&v0&O| zxs4|p<1OhP>rzMrWdYJv46r_W%3-1_zE)ap(^1nr8?>>q9_>RYrRW+~Pb({1m_%zW z18lu)eBIgw#^>#VZj47*KmExqYy*AXX(FG^2zIEvjbcVl6SfApN!4>*2utMwngI+O z$!~pxg)zD*Xg9D;GCN~;vIrck#>lIEEJ`;Wy(~uOtA%?JYYbW!S;}g_7M1Oy@>&lY zy#MlUI$LX)a`6LL#)ZS-WO3O=Ty~Lwi#seyH|ks%@7A5ZH_jVIGd?KS$%m?!$bNaR(MqzeuQ8=+?Bn05;Ua%Q&D zCr+>W1w3v$(rB@51rb*m3u4d%8lh6I(cQSMayw-5>>a`aP&3iTniM?GE!ZgpD!OGU zuk8ZeB{bsd+zk{={`}kI9w8aUpc7;V{bDthq(BvJ@bn_BZVj-#^r36x|C=ECsM$>G zYK(*wk*-CDA|Nr;-J+!qXAjMue}e53#i2DGq5F3J*K9vFmN~DNyt-NYR4V$ew2B=N zXO)(Ch-w3NTwx2iG`888rs-E5at{;IX$n4^jL&kzJTsx z9r5mF`5@v2jtk}#w?3%zvlq+bo!PG6-|1vW;d3EfDmChl=K7R7@m1>V8cn?h%`8Br zc^!k?RmVV%0~zrfS+VG$Hv!EF3==@XiF8+Q- zNZ!G47Er?k*U8jMWUpwUl&_YZL#!rxzuU}?iH58=2cw)UsWPk3sY%^%OyXP%(^X0DGT;00V}W-r~+&%zD>pL;MG74P^;n&@H(I#Xi#xk z#hohNc!zgsn(iz#%_{Cv@$D+!0^SO^c~EP0w}W{AFHqn<72jFl{DJlhx||u){idxO zj*mx^@#wgyT>ruS2OgC`4(6RaTQ*%M+y5j+& zK81SfuL^IX!Jn}^9}-?ruJDxclq*0H{@CiE!|cR4H(Zrqf4HV;h_i0l6h+<=Kzat| z2&eb#p=V*eT-{=!VTBE}w9!$X>8j#XubXcLE3vv@>!cAr)!t77{8X!-Vtl&sC_Se{ zncZQq3i}LyYc9L<1emzzGz4P?lzsJKzxpPsU&4lR#7PkW z=t%UVG$CZrB(Ln0om0Xg+A9U`L$+E5`GkCY{h!sMAd7Gg?%XE*7asa8Bt}TFSk1Q`o#z z6tSr2Jatbxm;bF!>vD0fBE?Q#2nRN6;{VzVJg~c#<@QR^3jE=26Pivmz-fHfxm>UF zbeE0M>E<&<8WT!A(uI0B#Jv>ro{YHbV(60=Lr+Y8dK`1DVYBfdrqDIaqG7i5K1OGi z>Zf|c=CgQGb=MVD%r|@IQm