1 На форме listbox, label, 2 кнопопучки "Пуск, Стоп"
  2   
  3 
  4 Imports WMEncoderLib
  5 Imports WMPREVIEWLib
  6 
  7   Dim Encoder As WMEncoder
  8     Dim SrcGrp As IWMEncSourceGroup2
  9     Dim Pro As IWMEncProfile
 10     Dim ProColl As IWMEncProfileCollection
 11 
 12 
 13     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 14         
 15         Encoder = New WMEncoder
 16        
 17 
 18         Dim SrcGrpColl As IWMEncSourceGroupCollection
 19         SrcGrpColl = Encoder.SourceGroupCollection
 20         SrcGrp = SrcGrpColl.Add("SG_1")
 21 
 22 
 23         Dim SrcVid As IWMEncVideoSource2
 24         Dim SrcAud As IWMEncAudioSource
 25         SrcVid = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_VIDEO)
 26         SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO)
 27 
 28         SrcVid.SetInput("ScreenCap://ScreenCapture1")
 29         SrcAud.SetInput("Device://Default_Audio_Device")
 30 
 31       
 32 
 33         Dim i As Integer
 34         Dim lLength As Long
 35 
 36         ProColl = Encoder.ProfileCollection
 37         lLength = ProColl.Count
 38       
 39         For i = 0 To lLength - 1
 40             Pro = ProColl.Item(i)
 41             ListBox1.Items.Add(Pro.Name)
 42            
 43         Next
 44 
 45         ' Fill in the description object members.
 46         Dim Descr As IWMEncDisplayInfo
 47         Descr = Encoder.DisplayInfo
 48         Descr.Author = "Armoghan Asif"
 49         Descr.Copyright = "Copyright information"
 50         Descr.Description = "Text description of encoded content"
 51         Descr.Rating = "Rating information"
 52         Descr.Title = "Title of encoded content"
 53 
 54         ' Add an attribute to the collection.
 55         Dim Attr As IWMEncAttributes
 56         Attr = Encoder.Attributes
 57         Attr.Add("URL", "www.adnare.com")
 58 
 59 
 60         Dim File As IWMEncFile
 61         File = Encoder.File
 62         File.LocalFileName = "C:\OutputFile.avi"
 63 
 64 
 65         SrcVid.CroppingBottomMargin = 2
 66         SrcVid.CroppingTopMargin = 2
 67         SrcVid.CroppingLeftMargin = 2
 68         SrcVid.CroppingRightMargin = 2
 69 
 70 
 71 
 72 
 73     End Sub
 74 
 75 
 76     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 77         If Encoder.RunState Then
 78             Encoder.Stop()
 79             Application.Exit()
 80         End If
 81     End Sub
 82 
 83     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 84         Me.WindowState = FormWindowState.Minimized
 85         Encoder.Start()
 86     End Sub
 87 
 88 
 89     Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
 90         Label1.Text = ListBox1.SelectedItem
 91         Try
 92             SrcGrp.Profile = ProColl.Item(ListBox1.SelectedIndex)
 93         Catch ex As Exception
 94             Label1.Text = "Выберите другой кодек"
 95         End Try
 96 
 97     End Sub
 98 End Class
 99 
100