1
If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4") Then
            AxWindowsMediaPlayer1.Visible = True
            AxWindowsMediaPlayer1.URL = My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4"

        Else
            My.Computer.Network.DownloadFile("mywebsite.tk/vid.mp4", My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4")
            Dim sizeInBytes As String = FileLen(My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4")
checksize:
            Threading.Thread.Sleep(500)
            If sizeInBytes.StartsWith("1455") Then
                MsgBox("Succesfully downloaded. Click ok to install.")
                AxWindowsMediaPlayer1.Visible = True
                AxWindowsMediaPlayer1.URL = My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4"
            Else
                GoTo checksize
            End If
        End If

    End Sub
End Class

The video is not playing, it just plays some visualizers and the music.

It shows this:

m4n0
  • 29,823
  • 27
  • 76
  • 89
domonkos11
  • 11
  • 2
  • After downloading the video, have you verified it is actually getting saved correctly? I Would also suggest maybe look at modernizing your flow control. GoTo is really a 20year hold over from old vb and shouldn't really be used now days – Hursey Oct 05 '21 at 19:56
  • @Hursey yes, checked and the video did download correctly, and can play it with an external player. Don't use GoTo, but can you recommend something instead then? Also it works fine, just the video doesn't play like it should – domonkos11 Oct 07 '21 at 18:52

1 Answers1

0

have had the same problem and there were codecs missing.

wolf
  • 101
  • 2