Автоматическая прокрутка страницы вниз (CppWebBrowser)

void __fastcall TForm1::WBDocumentComplete(TObject *Sender, LPDISPATCH pDisp, Variant *URL)

  PostMessage(WB->Handle, WM_VSCROLL, SB_BOTTOM, 0);

  ScrollWindowEx(WB->Handle, 0, 100, NULL, NULL, NULL, NULL, SW_SMOOTHSCROLL);

HWND NextWindowElement(HWND h, LPCTSTR fasdClass, LPCTSTR fasdWindow, int level)
{
  HWND h2 = NULL;
  for(int i = 0; i < level; i++)
    h2 = FindWindowEx(h, h2, fasdClass, fasdWindow);
  return h2;
}
 
//.............
 
  // по данным программы типа winspy
  HWND hWnd = FindWindow(L"TForm1", L"Расширенный поиск друзей VK");
  HWND hWnd2 = NextWindowElement(hWnd, L"Shell Embedding", NULL, 1);
 
  // тут уже хэндл hWnd3 не определяется, хотя элементы идут именно в таком порядке
  HWND hWnd3 = NextWindowElement(hWnd2, L"Shell DocObject View", NULL, 1);
  HWND hWnd4 = NextWindowElement(hWnd3, L"Internet Explorer_Server", NULL, 1);
 
  // нулевые значения тоже пробовал, но до сюда и не доходит ввиду проблемы с хэндлом выше
  PostMessage(hWnd4, WM_KEYDOWN, VK_END, 0xc14f0001);
  PostMessage(hWnd4, WM_KEYUP, VK_END, 0xc14f0001);
  // либо
  PostMessage(hWnd4, WM_VSCROLL, SB_BOTTOM, 0);

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TCppWebBrowser *WB;
...
    void __fastcall WBDocumentComplete(TObject *Sender, LPDISPATCH pDisp, Variant *URL);
...
private:    // User declarations
    static HWND FIEWnd;  // Хэндл найденного окна
    static BOOL CALLBACK EnumWindowsProc(HWND hWnd, LPARAM lParam);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
....
};

TForm1 *Form1;
 
HWND TForm1::FIEWnd = NULL;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
...
 
//---------------------------------------------------------------------------
void __fastcall TForm1::WBDocumentComplete(TObject *Sender, LPDISPATCH pDisp, Variant *URL)
{
    FIEWnd = NULL;
 
    EnumChildWindows(WB->Handle, TForm1::EnumWindowsProc, NULL);
 
    if (FIEWnd == NULL || FIEWnd == INVALID_HANDLE_VALUE)
    {
        UnicodeString uCaption = L"Ошибка";
        UnicodeString uText = L"Окно Internet Exporer не найдено";
        Application->MessageBoxW(uText.w_str(), uCaption.w_str(), MB_OK | MB_ICONERROR);
        return;
    }
 
    PostMessage( FIEWnd, WM_VSCROLL, SB_BOTTOM, 0);
}
//---------------------------------------------------------------------------
BOOL CALLBACK TForm1::EnumWindowsProc(HWND hWnd, LPARAM lParam)
{
    // Можно оставить только часть имени класса окна
    static const UnicodeString uSubStrCl = L"Internet Explorer_Server";
 
    wchar_t lpClassName[256];
 
    if (GetClassName(hWnd, lpClassName, 255))
    {
        const UnicodeString uClassName = lpClassName;
        if (uClassName.Pos(uSubStrCl))
        {
            TForm1::FIEWnd = hWnd;
            return false;   // Заканчиваем перебор окон
        }
    }
    return true; // Продолжаем перебор окон, если они есть
}
//---------------------------------------------------------------------------

BOOL CALLBACK TForm1::EnumWindowsProc(HWND hWnd, LPARAM lParam)
{
...
    static const UnicodeString uSubStrCl = L"Internet Explorer";
...
}