Заполнить поле CppWebBrowser
Никак не могу заполнить поле для логина и пароля на веб-странице.
Пробовал через javascript неудачно, пробовал через IHTMLElementCollection
Сайт: https://www.parts.bmwgroup.com/tetis/startTetisAction.do?DOMAIN=Internet
имена полей
LOGON_USERID
LOGON_PASSWD
код функции:
Код:
void TForm1::FillForm(String Name, String Data)
{
CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pDoc;
CComQIPtr<IHTMLElementCollection, &IID_IHTMLElementCollection> pColl;
CComQIPtr<IDispatch, &IID_IDispatch> pTmpDisp;
CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement> pElement;
CComQIPtr<IDispatch, &IID_IDispatch> pDisp;
if ( SUCCEEDED (VK->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc))) {
if ( SUCCEEDED (pDoc->get_all(&pColl))) {
if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
pElement = pDisp;
pElement->put_value(Data.c_str());
}
}
}
}
{
CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pDoc;
CComQIPtr<IHTMLElementCollection, &IID_IHTMLElementCollection> pColl;
CComQIPtr<IDispatch, &IID_IDispatch> pTmpDisp;
CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement> pElement;
CComQIPtr<IDispatch, &IID_IDispatch> pDisp;
if ( SUCCEEDED (VK->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc))) {
if ( SUCCEEDED (pDoc->get_all(&pColl))) {
if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
pElement = pDisp;
pElement->put_value(Data.c_str());
}
}
}
}
В чем может быть проблема?