thank i know,but i want conect to router with phone
B4X:
Sub Process_Globals
Dim Socket1 As ServerSocket
End Sub
Sub Globals
Dim extras As WebViewExtras
Dim WebView1 As WebView
Dim p As Phone
Dim sb As StringBuilder
End Sub
Sub Activity_Create(FirstTime As Boolean)
Socket1.Initialize(0,"Socket1")
WebView1.Initialize("WebView1")
WebView1.JavaScriptEnabled=True
Activity.LoadLayout("web")
Socket1.Listen
sb.Initialize
WebView1.LoadUrl("http://192.168.1.1")
Msgbox(Socket1.GetMyIP, "")
p.Shell("ping -c 1 192.168.1.1",Null,sb,Null)'router
Log(sb)
p.Shell("ping -c 1 192.168.1.34",Null,sb,Null) 'pc ip
Log(sb)
End Sub
ping to router is ok,but i can´t see in webview and ping to mi pc don´t works.
Thanks
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.