Android Question Can i execute adb commands via B4A?

[Alhootti]

im using this commands via adb to set Time & date to my adenoid Tvbox , it is working successfully.

adb root
adb shell date 102902012020.55

how i can use these adb commands through B4A to set time & date?

 

[Erel]

If the device is rooted then you can run the command (without adb) using Phone.Shell: https://www.b4x.com/android/forum/threads/running-shell-commands-as-superuser.6886/#post39820

 

[Alhootti]

yes it is rooted.
i tried this code but there is no result .
how i can utilize this command (adb shell date 102902012020.55) in the following code:

Dim Command, Runner As String
Dim StdOut, StdErr As StringBuilder
Dim Result As Int
Dim Ph As Phone
Runner = File.Combine(File.DirInternalCache, "runner")
Command = File.Combine(File.DirInternalCache, "command")
File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
File.WriteString(File.DirInternalCache, "command", "modprobe cifs" & CrLf & "modprobe aufs" & CrLf & "exit") 'Any commands via crlf, and exit at end
Result = Ph.Shell("sh", Array As String(Runner), StdOut, StdErr)
Msgbox(StdOut.tostring, "")

 

[Alhootti]

yes it is rooted.
i tried this code but there is no result .
how i can utilize this command (adb shell date 102902012020.55) in the following code:

Dim Command, Runner As String
Dim StdOut, StdErr As StringBuilder
Dim Result As Int
Dim Ph As Phone
Runner = File.Combine(File.DirInternalCache, "runner")
Command = File.Combine(File.DirInternalCache, "command")
File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
File.WriteString(File.DirInternalCache, "command", "modprobe cifs" & CrLf & "modprobe aufs" & CrLf & "exit") 'Any commands via crlf, and exit at end
Result = Ph.Shell("sh", Array As String(Runner), StdOut, StdErr)
Msgbox(StdOut.tostring, "")

Thanks @Erel
it is working now perfectly

File.WriteString(File.DirInternalCache, "command", "modprobe cifs" & CRLF & "modprobe aufs" & CRLF & "date 102902012020.55" & CRLF & "exit") 'Any commands via crlf, and exit at end