B4J Question Adb get number incomingcall

''****Close Call
'        'adb shell input keyevent KEYCODE_ENDCALL
'       Dim shl2 As Shell
       shl2.Initialize("shl2", $"D:\Android\platform-tools\adb.exe"$, Array($"shell"$, $"input"$, "keyevent","KEYCODE_ENDCALL"))
        shl2.Run(-1)
       Wait For shl2_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
        Log($"${Success}, ${ExitCode}, ${StdOut}, ${StdErr}"$)
        
'        '****Answer Call
'        'adb shell input keyevent KEYCODE_CALL
       Dim shl2 As Shell
       shl2.Initialize("shl2", $"D:\Android\platform-tools\adb.exe"$, Array($"shell"$, $"input"$, "keyevent","KEYCODE_CALL"))
       shl2.Run(-1)
        Wait For shl2_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
       Log($"${Success}, ${ExitCode}, ${StdOut}, ${StdErr}"$)