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