Hello,
since a long time I use this method to split large pages of code in every programming langages I use (Javascript, C, HDL and ... B4X of course).
Try this link: https://patorjk.com/software/taag/#p=display&h=0&v=0&c=vb&f=Ivrit&t=Web side story
Copy and paste the resulting text in your editor. Here is an example:
I can't do without this anymore.
since a long time I use this method to split large pages of code in every programming langages I use (Javascript, C, HDL and ... B4X of course).
Try this link: https://patorjk.com/software/taag/#p=display&h=0&v=0&c=vb&f=Ivrit&t=Web side story
Copy and paste the resulting text in your editor. Here is an example:
Comment:
' __ __ _ _ _ _
' \ \ / / ___ | |__ ___ (_) __| | ___ ___ | |_ ___ _ __ _ _
' \ \ /\ / / / _ \ | '_ \ / __| | | / _` | / _ \ / __| | __| / _ \ | '__| | | | |
' \ V V / | __/ | |_) | \__ \ | | | (_| | | __/ \__ \ | |_ | (_) | | | | |_| |
' \_/\_/ \___| |_.__/ |___/ |_| \__,_| \___| |___/ \__| \___/ |_| \__, |
' |___/
'
Public Sub isInternetAvailable As ResumableSub
Dim net As ServerSocket
net.Initialize(0, "")
Log("My IP: " & net.GetMyIP & " - Wifi IP: " & net.GetMyWifiIP)
If net.GetMyIP = "127.0.0.1" Then Return False ' this is the local host address
If Not( ph.GetDataState.EqualsIgnoreCase("CONNECTED") ) And net.GetMyWifiIP = "127.0.0.1" Then Return False
Dim j As HttpJob
j.Initialize("", Me)
j.GetRequest.Timeout = 5000
j.PostString(getRemoteUrl, "action=ping")
Wait For (j) JobDone (j As HttpJob)
If j.Success Then
Log("isInternetAvailable=" & j.GetString)
Return j.GetString.Trim.StartsWith("OK")
Else
Return False
End If
End Sub
'
Public Sub getServerVersionName(timeout As Int) As ResumableSub
Dim j As HttpJob
j.Initialize("", Me)
j.GetRequest.Timeout = timeout
j.PostString(getRemoteUrl, "action=ping")
Wait For (j) JobDone (j As HttpJob)
If Not(j.Success) Then Return ""I can't do without this anymore.
Last edited: