VS2010旗舰版VB.NET版本视频剪辑源代码QZQ-2024-8-11.zip

Imports System.IO Imports System.Diagnostics Imports System Public Class VideoEditorForm Private ffmpegPath As String = "C:\ffmpeg-master-latest-win64-gpl-shared\bin\ffmpeg.exe" '将此路径更改为您的 FFmpeg 实际安装路径 '储选中的视频文件路径 Private selectedVideoPath As String '剪的起始时间（以秒为单位） Private cropStartTime As Integer '剪的结束时间（以秒为单位） Private cropEndTime As Integer Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim openFileDialog As New OpenFileDialog() openFileDialog.Filter = "Video Files (*.mp4;*.avi;*.mkv; *.wmv)|*.mp4;*.avi;*.mkv; *.wmv" If openFileDialog.ShowDialog() = DialogResult.OK Then selectedVideoPath = openFileDialog.FileName End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click If String.IsNullOrEmpty(selectedVideoPath) Then MessageBox.Show("请先选择要保存的视频文件！") Exit Sub End If Dim saveFileDialog As New SaveFileDialog() saveFileDialog.Filter = "MP4 Video (*.mp4)|*.mp4|AVI Video (*.avi)|*.avi|MKV Video (*.mkv)|*.mkv" If saveFileDialog.ShowDialog() = DialogResult.OK Then Dim outputPath As String = saveFileDialog.FileName Dim fileExtension As String = Path.GetExtension(outputPath) Dim process As New Process() process.StartInfo.FileName = ffmpegPath Select Case fileExtension.ToLower() Case ".mp4" process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -c:v libx264 -c:a aac " & Chr(34) & outputPath & Chr(34) Case ".avi" process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -c:v mpeg4 -c:a mp3 " & Chr(34) & outputPath & Chr(34) Case ".mkv" process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -c:v copy -c:a copy " & Chr(34) & outputPath & Chr(34) End Select process.StartInfo.UseShellExecute = False process.StartInfo.RedirectStandardOutput = True process.Start() While Not process.HasExited Dim output As String = process.StandardOutput.ReadLine() '以在此处理进程的输出信息 End While End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim openFileDialog As New OpenFileDialog() openFileDialog.Filter = "Video Files (*.mp4;*.avi;*.mkv; *.wmv)|*.mp4;*.avi;*.mkv; *.wmv" If openFileDialog.ShowDialog() = DialogResult.OK Then selectedVideoPath = openFileDialog.FileName End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim openFileDialog As New OpenFileDialog() openFileDialog.Multiselect = True openFileDialog.Filter = "视频文件|*.mp4;*.avi;*.mkv;*.flv;*.wmv" If openFileDialog.ShowDialog() = DialogResult.OK Then Dim filePaths() As String = openFileDialog.FileNames Dim concatListFile As String = Path.GetTempFileName() Using sw As New StreamWriter(concatListFile) For Each filePath As String In filePaths sw.WriteLine("file '" & filePath & "'") Next End Using Dim saveFileDialog As New SaveFileDialog() saveFileDialog.Filter = "MP4 Video (*.mp4)|*.mp4|AVI Video (*.avi)|*.avi|MKV Video (*.mkv)|*.mkv" If saveFileDialog.ShowDialog() = DialogResult.OK Then Dim outputPath As String = saveFileDialog.FileName Dim fileExtension As String = Path.GetExtension(outputPath) Dim process As New Process() process.StartInfo.FileName = ffmpegPath Select Case fileExtension.ToLower() Case ".mp4" process.StartInfo.Arguments = "-f concat -safe 0 -i " & Chr(34) & concatListFile & Chr(34) & " -c:v libx264 -c:a aac " & Chr(34) & outputPath & Chr(34) Case ".avi" process.StartInfo.Arguments = "-f concat -safe 0 -i " & Chr(34) & concatListFile & Chr(34) & " -c:v mpeg4 -c:a mp3 " & Chr(34) & outputPath & Chr(34) Case ".mkv" process.StartInfo.Arguments = "-f concat -safe 0 -i " & Chr(34) & concatListFile & Chr(34) & " -c:v copy -c:a copy " & Chr(34) & outputPath & Chr(34) End Select process.StartInfo.UseShellExecute = False process.StartInfo.RedirectStandardOutput = True process.Start() While Not process.HasExited Dim output As String = process.StandardOutput.ReadLine() '以在此处理进程的输出信息 End While End If End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click '择导出保存的路径和格式 Dim saveFileDialog As New SaveFileDialog() saveFileDialog.Filter = "MP4 文件|*.mp4|AVI 文件|*.avi|MKV 文件|*.mkv|FLV 文件|*.flv|WMV 文件|*.wmv" If saveFileDialog.ShowDialog() = DialogResult.OK Then Dim exportPath As String = saveFileDialog.FileName '此处进行导出保存的后续处理 Console.WriteLine("导出保存的路径: " & exportPath) End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If String.IsNullOrEmpty(selectedVideoPath) Then MessageBox.Show("请先选择要裁剪的视频文件！") Exit Sub End If '取用户输入的裁剪起始时间和结束时间 If Not Integer.TryParse(TextBoxCropStart.Text, cropStartTime) OrElse Not Integer.TryParse(TextBoxCropEnd.Text, cropEndTime) Then MessageBox.Show("请输入有效的裁剪时间（整数，以秒为单位）！") Exit Sub End If Dim saveFileDialog As New SaveFileDialog() saveFileDialog.Filter = "MP4 Video (*.mp4)|*.mp4|AVI Video (*.avi)|*.avi|MKV Video (*.mkv)|*.mkv" If saveFileDialog.ShowDialog() = DialogResult.OK Then Dim outputPath As String = saveFileDialog.FileName Dim fileExtension As String = Path.GetExtension(outputPath) Dim process As New Process() process.StartInfo.FileName = ffmpegPath Select Case fileExtension.ToLower() Case ".mp4" process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -ss " & cropStartTime & " -to " & cropEndTime & " -c:v libx264 -c:a aac " & Chr(34) & outputPath & Chr(34) Case ".avi" process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -ss " & cropStartTime & " -to " & cropEndTime & " -c:v mpeg4 -c:a mp3 " & Chr(34) & outputPath & Chr(34) Case ".mkv" process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -ss " & cropStartTime & " -to " & cropEndTime & " -c:v copy -c:a copy " & Chr(34) & outputPath & Chr(34) End Select process.StartInfo.UseShellExecute = False process.StartInfo.RedirectStandardOutput = True