Add(InlineCode,6524878,147,112)
{
@Hint=#4:Лайк|
WorkPoints=#25:Zap=Заполнить и отправить|
DataPoints=#1:h|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|61:uses kol,Share,Debug,windows,ActiveX,KOLSHDocVw,Win,ShellApi;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: wb:PControl;|9: public|16: h:THI_Event;|19: Name:THI_Event;|4: |46: procedure Zap(var Data:TData; index:word);|4: |5: end;|0:|15:implementation |0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|2: |26:procedure THiAsmClass.Zap;|5:begin|35: wb := PControl(ToIntegerEvent(h));|60: PKOLWebBrowser(WB).OleObject.Document.Frames.item(0).click;|5: end;|0:|4:end.|
}
Этот топик читают: Гость
Ответов: 537
Рейтинг: 14
|
|||
На странице WebBrowser есть ‹iframe ... ‹/iframe› нужно кликнуть по фрейму, а потом еще и по ссылке в открывшемся фрейме. Никак не реагирует. Посмотрите в IC строчку Document.Frames.item(0).click; что там не так. Почитал разные форумы, у всех работает, а тут нет
|
|||
карма: 4 |
|
Google
vip
|
#1.1контекстная реклама от партнеров
|
Ответов: 537
Рейтинг: 14
|
|||
Вот полный код для теста на сайте
Тоже не реагирует. Нужно запустить рекапчу, в ней кликнуть на аудио и скачать или прослушать звук. На форумах нашел простой код в виде OleObject.document.frames.item(0).document.all.tags("a").item(1).click; так если открыть рекапчу вручную и попытаться кликнуть внутри нее, то программа моментально закрывается без ошибки. Неужели никто не знает как с фреймами работать? Редактировалось 2 раз(а), последний 2019-06-10 13:01:38 |
|||
карма: 4 |
|
Ответов: 537
Рейтинг: 14
|
|||
Вопрос решен, вставляю в открытую страницу свой JS и из него делаю все что нужно.
|
|||
карма: 4 |
|
3