De seneste forum tråde i [screen-capture] på Udvikleren.dk http://www.udvikleren.dk/ Wed, 29 Apr 2026 11:54:23 GMT http://backend.userland.com/rss Udvikleren.dk RSS Feeder 60 Hvordan kan jeg få Microsoft Expression Encoder 4 i Visual Basic eller C# til at optage skærmen i wmv eller mp4 video?.<br /><br />Jeg har prøvet med Microsoft.Expression.Encoder.ScreenCapture.ScreenCaptureJob, men den optager i Microsoft Expression Encoder Screen Capture format og ikke i wmv eller mp4 format.<br /><br />Her er min kode:<br /><br />Dim capturerec As New Microsoft.Expression.Encoder.ScreenCapture.ScreenCaptureJob<br />Dim videopath As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\strandboscrrec.wmv"<br />Dim audiodevices As System.Collections.ObjectModel.Collection(Of Microsoft.Expression.Encoder.Devices.EncoderDevice) = Microsoft.Expression.Encoder.Devices.EncoderDevices.FindDevices(Microsoft.Expression.Encoder.Devices.EncoderDeviceType.Audio)<br /><br />Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load<br /> capturerec.ScreenCaptureVideoProfile.Quality = 100<br /> capturerec.OutputScreenCaptureFileName = videopath<br />End Sub<br /><br />Private Sub Rec_Click(sender As Object, e As EventArgs) Handles Rec.Click<br /> capturerec.ResetSettings()<br /> Select Case True<br /> Case FrameRate15.Checked<br /> capturerec.ScreenCaptureVideoProfile.FrameRate = 15<br /> Case FrameRate20.Checked<br /> capturerec.ScreenCaptureVideoProfile.FrameRate = 20<br /> Case FrameRate25.Checked<br /> capturerec.ScreenCaptureVideoProfile.FrameRate = 25<br /> End Select<br /> Dim audiodevices As System.Collections.ObjectModel.Collection(Of Microsoft.Expression.Encoder.Devices.EncoderDevice) = Microsoft.Expression.Encoder.Devices.EncoderDevices.FindDevices(Microsoft.Expression.Encoder.Devices.EncoderDeviceType.Audio)<br /> For Each item As String In CheckedListBox1.CheckedItems<br /> Select Case item<br /> Case "Microphone"<br /> capturerec.AddAudioDeviceSource(audiodevices(0))<br /> Case "Stereomix"<br /> capturerec.AddAudioDeviceSource(audiodevices(1))<br /> End Select<br /> Next<br /> If System.IO.File.Exists(videopath) Then<br /> System.IO.File.Delete(videopath)<br /> End If<br /> capturerec.Start()<br /> Rec.Enabled = False<br /> CheckedListBox1.Enabled = False<br /> FrameRate15.Enabled = False<br /> FrameRate20.Enabled = False<br /> FrameRate25.Enabled = False<br />End Sub<br /><br />Private Sub StopB_Click(sender As Object, e As EventArgs) Handles StopB.Click<br /> capturerec.Stop()<br /> Process.Start(videopath)<br />End Sub http://www.udvikleren.dk/forum/42861/microsoft-expression-encoder-4-screen-capture-i-visual-basic-eller-c%23/ Sun, 09 Mar 2014 15:07:42 GMT