German Screenshot von eigener App

    Dim Obj1, Obj2 As Reflector
    Dim bmp As Bitmap
    Dim c As Canvas
    Obj1.Target = Obj1.GetActivityBA
    Obj1.Target = Obj1.GetField("vg")
    bmp.InitializeMutable(Activity.Width, Activity.Height)
    c.Initialize2(bmp)
    Dim args(1) As Object
    Dim types(1) As String
    Obj2.Target = c
    Obj2.Target = Obj2.GetField("canvas")
    args(0) = Obj2.Target
    types(0) = "android.graphics.Canvas"
    Dim Out As OutputStream
    Out = File.OpenOutput(File.DirInternal, "dateiname.png", False)
    bmp.WriteToStream(Out, 100, "PNG")
    Out.Close

Sub btnScreenshot_Click
    Private Obj1, Obj2 As Reflector
    Private bmp As Bitmap
    Private c As Canvas
   
    Obj1.Target = Obj1.GetActivityBA
    Obj1.Target = Obj1.GetField("vg")
   
    bmp.InitializeMutable(Activity.Width, Activity.Height)
    c.Initialize2(bmp)
   
    Private args(1) As Object
    Private types(1) As String
    Obj2.Target = c
    Obj2.Target = Obj2.GetField("canvas")
    args(0) = Obj2.Target
    types(0) = "android.graphics.Canvas"
    Obj1.RunMethod4("draw", args, types) ' diese Zeile fehlt in deinem Code
   
    Private Out As OutputStream
    Out = File.OpenOutput(File.DirRootExternal, "dateiname.png", False)
    bmp.WriteToStream(Out, 100, "PNG")
    Out.Close
End Sub