Dim shl As Shell
shl.Initialize("shl", "cmd", Array("/c", "ftype"))
shl.Run(10000)
Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success Then
Dim m As Matcher = Regex.Matcher2($"^B4J Source Code=\"([^"]+)"$, Regex.MULTILINE, StdOut)
If m.Find Then
Log(m.Group(1))
End If
End If