// 此处省略n个字

while( msg.message != WM_QUIT )
 {
     if( ::PeekMessage(&msg, NULL, 0, 0, PM_REMOVE) )
     {
         IWebBrowser2* pWb2 = // 此处省略x个字。总之自己想办法拿到webbrowser控件的IWebBrowser2指针
         // 实际编码时注意判断返回值是否为空，
         IOleInPlaceActiveObject* pActiveObj = NULL;
         pWb2->QueryInterface( IID_IOleInPlaceActiveObject , (void**)&pActiveObj ); 
         pActiveObj->TranslateAccelerator(&msg);
         
         // 略

          ::TranslateMessage(&msg);
          ::DispatchMessage(&msg);
      }
  }

  ::Sleep(1);
 }

O了！