Dim command, runner As String
Dim stdout, stderr As StringBuilder
Dim ph As Phone
stdout.Initialize
stderr.Initialize
runner = File.Combine(File.DirInternalCache, "runner")
command = File.Combine(File.DirInternalCache, "command")
File.WriteString(File.DirInternalCache, "runner", "su < " & command)
'File.WriteString(File.DirInternalCache, "command", "date -s " & todate & "." & totime & "; \n" & CRLF & "exit")
ph.Shell("sh", Array As String(runner), stdout, stderr)