Click here to Skip to main content
15,847,653 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
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
            Put #2, , b
        End If
        ProgressBar1.Value = i
        WindowsMediaPlayer2.URL = newfile
    ProgressBar1.Visible = False

End Sub[^]
Updated 27-Nov-14 11:15am
Richard MacCutchan 28-Nov-14 3:51am    
You are changing the content of the input file, so the ouput is not the same. What are you trying to achieve?
RAFAH SAMIH 28-Nov-14 5:11am    
i want the saved output is also mp4 but not visible
like this picture

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900