VB/C# WebBrowser控件去除网页声音的完美解决方案

VB/C# WebBrowser控件去除网页声音的完美解决方案

核心实现原理

通过Hook系统音频API函数，修改相关函数的执行逻辑，使其直接返回而不实际播放声音。

Delphi DLL实现代码

library DSounds;

uses
  Windows,
  SysUtils,
  Classes;

function DSoundsCode():Integer ;stdcall;
var
  hDSound: Cardinal;
  pDirectSoundCreate: Pointer;
  hWinmm: Cardinal;
  pmidiStreamOpen: Pointer;
  pwaveOutWrite: Pointer;
  lp: Cardinal;
begin
  // Hook DirectSound
  hDSound := LoadLibrary('DSound.dll');
  if hDSound > 0 then
    pDirectSoundCreate := GetProcAddress(hDSound, 'DirectSoundCreate');
  if pDirectSoundCreate <> nil then
  begin
    VirtualProtect(pDirectSoundCreate, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$0C#$00, pDirectSoundCreate^, 3); // 修改函数直接返回
  end;

  // Hook MIDI
  hWinmm := LoadLibrary('Winmm.dll');
  if hWinmm > 0 then
    pmidiStreamOpen := GetProcAddress(hWinmm, 'midiStreamOpen');
  if pmidiStreamOpen <> nil then
  begin
    VirtualProtect(pmidiStreamOpen, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$04#$00, pmidiStreamOpen^, 3); // 修改函数直接返回
  end;

  // Hook Wave
  if hWinmm > 0 then
    pwaveOutWrite := GetProcAddress(hWinmm, 'waveOutWrite');
  if pwaveOutWrite <> nil then
  begin
    VirtualProtect(pwaveOutWrite, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$0C#$00, pwaveOutWrite^, 3); // 修改函数直接返回
  end;
  
  Result := 1597;
end;

exports DSoundsCode;
begin
end.

C#调用代码

////// 调用外部DLL DELPHI
///public class AnyCall
{
    private const string _fileDll = @"DSounds";
    [DllImport(_fileDll, EntryPoint = "DSoundsCode", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
    public static extern int DSoundsCode();

    public int CallDSoundsCode()
    {
        return DSoundsCode();
    }
}

使用方法

1. 部署DLL：将DSounds.dll放到应用程序的bin\Debug目录

2. 创建调用类：在项目中新建一个类，比如AnyCall，并把上面的代码复制到类里面

3. 程序初始化调用：在程序开始的地方调用AnyCall方法，比如：new JavaScript.AnyCall().CallDSoundsCode();

4. 测试效果：按下F6看看效果如何

技术说明