Sub suShell (komut As String)
Dim Command, Runner As String
Dim stdout, stderr As StringBuilder
Dim Result As Int
Runner = File.Combine(File.DirInternalCache, "runner")
Command = File.Combine(File.DirInternalCache, "command")
File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
File.WriteString(File.DirInternalCache, "command", komut & CRLF & "exit") 'Any commands via crlf, and exit at end
stdout.Initialize
stderr.Initialize
Result = Ph.Shell("sh", Array As String(Runner), stdout, stderr)
End Sub