输入mp4和输出mp4 [英] input mp4 and the output mp4

问题描述

如何让mp4视频输出为mp4视频

i想要mp4也是mp4 m时实现代码，输出视频不播放

how can i make the mp4 video output as mp4 video
i want the mp4 is also mp4 m when implement the code , the output video is not playing

Private Sub Command2_Click()
    ProgressBar1.Visible = True
    ProgressBar1.Min = 0
    
    Open CommonDialog1.FileName For Binary Access Read As #1
    ProgressBar1.Max = LOF(1)
    
    ext = Right$(CommonDialog1.FileName, 3)
    newfile = "new1." + ext
    Open newfile For Binary Access Write As #2
    
   For i = 1 To LOF(1)
        Get #1, , b
        If i = 200 Then
              Put #2, , b Xor 12
        Else
            Put #2, , b
        
        End If
        ProgressBar1.Value = i
      
      Next
        WindowsMediaPlayer2.URL = newfile
    Close
    ProgressBar1.Visible = False

End Sub

http：//im49.gulfup.c om / DYxjNQ.png [ ^ ]

推荐答案

（CommonDialog1.FileName， 3 ）
newfile = new1。 + ext
打开newfile 用于二进制访问写入< span class =code-keyword>作为＃2

对于 i = 1 LOF（ 1 ）
获取＃1 ,, b
如果 i = 200 < span class =code-keyword>然后
Put＃2 ,, b Xor 12
Else
Put＃2 ,, b

结束 如果
ProgressBar1.Value = i

下一步
WindowsMediaPlayer2.URL = newfile
关闭
ProgressBar1.Visible = 错误

结束 Sub

(CommonDialog1.FileName, 3) newfile = "new1." + ext Open newfile For Binary Access Write As #2 For i = 1 To LOF(1) Get #1, , b If i = 200 Then Put #2, , b Xor 12 Else Put #2, , b End If ProgressBar1.Value = i Next WindowsMediaPlayer2.URL = newfile Close ProgressBar1.Visible = False End Sub

http://im49.gulfup.com/DYxjNQ。 png [ ^ ]

这篇关于输入mp4和输出mp4的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！