void __fastcall TForm1::ClickButton(String Name)
{
/*Событие которое нажимает кнопку в IE по её имени name */
if( WB->Document ) {
TComInterfaceIHTMLDocument2> pDocument;
WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);
if( pDocument ) {
TComInterfaceIHTMLElementCollection> pCollection;
pDocument->get_all(&pCollection);
if( pCollection ) {
TComInterfaceIDispatch> pDisp;
pCollection->item(TVariant(WideString(Name)), TVariant(0), &pDisp);
if( pDisp ) {
TComInterfaceIHTMLElement> pElement;
pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);
if( pElement ) {
pElement->click();
}
}
}
}
}
}
- кликнуть по элементу с name, а можно кликнуть по элементу,ориентируясь на ID ??
Примерно как JS: GetElementByID...