Imports DirectShowLib
Imports System.Runtime.InteropServices
Imports System.Drawing.Imaging
Imports System.Drawing
 
Module Module1
    Sub main()
        Dim FileName As String
 
        Dim FGM As IGraphBuilder
 
        Dim MC As IMediaControl
 
        Dim MP As IMediaPosition
 
        Dim WC As IVMRWindowlessControl9
 
        Dim Bmp As Bitmap
 
 
        FileName = "c:\videos\abc.wtv"
 
        FGM = New FilterGraph
 
        Dim VMR9 As IBaseFilter = New VideoMixingRenderer9
 
 
        Dim FC As IVMRFilterConfig9 = VMR9
 
        FC.SetRenderingMode(VMR9Mode.Windowless)
 
        FGM.AddFilter(VMR9, "Video Mixing Renderer 9")
 
        WC = VMR9
 
        'WC.SetVideoClippingWindow(Me.Handle)
 
        FGM.RenderFile(FileName, 0)
 
        MP = FGM
 
        MC = FGM
 
        MC.Run()
 
 
        Pause(5)
 
        MC.Pause()
 
        Dim iDIB As IntPtr = IntPtr.Zero
 
        WC.GetCurrentImage(iDIB)
 End Sub
 
    Function Pause(Zeit As Double)
        Dim Start As Double
        Dim Ende As Double
 
        Start = DateAndTime.Timer
        Ende = Start + Zeit
        If Ende > 60 * 60 * 24 Then Pause(Zeit) 'Timer leifert ms ab 
        ' mitternacht. Genau um Mitternavcht kann ende sonst zu einer 
        ' dauerschleife werden
        Do While DateAndTime.Timer < Ende
            Application.DoEvents()
        Loop
    End Function
End Module