VB.NET中AxWindowsMediaPlayer播放MP4仅输出音频无画面问题

1. 解码器适配问题 #

AxWindowsMediaPlayer是系统Windows Media Player（WMP）的封装控件，本身不内置解码能力，完全依赖系统WMP的解码组件运行。如果系统缺少对应MP4的视频解码器，就会出现仅播放音频、显示可视化效果的问题。
排查修复步骤：

• 直接用系统自带的WMP打开本地的vid.mp4文件，如果WMP直接打开也没有视频画面，即可确认是解码器问题，安装系统通用MP4解码包即可解决。
• 确认你的MP4视频编码为H.264格式，H.265等新编码格式在旧版本Windows系统默认不支持，需要额外安装对应编码的解码组件。

2. 控件显示模式配置错误 #

AxWindowsMediaPlayer的uiMode属性配置错误会导致视频区域不显示，仅展示可视化效果。在设置播放路径前添加一行代码指定显示模式即可：

AxWindowsMediaPlayer1.uiMode = "none"

uiMode设为none会隐藏所有播放控制按钮，仅保留视频显示区域；如果需要保留控制栏可设置为full。

3. 控件层级与尺寸问题 #

如果控件尺寸被设置为过小、或者被其他控件遮挡也会导致视频画面不可见，可以添加代码强制调整控件层级和尺寸：

AxWindowsMediaPlayer1.Size = New Size(640, 480)
AxWindowsMediaPlayer1.BringToFront()

4. 现有代码逻辑问题修复 #

你当前的下载校验逻辑存在BUG，sizeInBytes仅在下载完成后取值一次，后续循环中没有重新获取文件大小，会导致逻辑卡死在循环中，优化后代码如下：

If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4") Then
    AxWindowsMediaPlayer1.Visible = True
    AxWindowsMediaPlayer1.uiMode = "none"
    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")
    Do
        Threading.Thread.Sleep(500)
        Dim sizeInBytes As Long = FileLen(My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4")
        If sizeInBytes.ToString().StartsWith("1455") Then
            MsgBox("Succesfully downloaded. Click ok to install.")
            AxWindowsMediaPlayer1.Visible = True
            AxWindowsMediaPlayer1.uiMode = "none"
            AxWindowsMediaPlayer1.URL = My.Computer.FileSystem.SpecialDirectories.Temp & "\vid.mp4"
            Exit Do
        End If
    Loop
End If

内容的提问来源于stack exchange，提问作者domonkos11