Доброго всем дня!
Никогда не работал с элементами интернета, но возникла необходимость.
Бросил на форму WebBrowser1.
Указал путь, страница открылась.
Теперь надо именно сделать то, что надо. А надо:
Найти программно на странице ярлыки.
Почему я их называю ярлыками? по тому что когда над ними находится курсор меняется сам курсор(становится в виде указательного пальца). А если кликнуть ПКМ, то в меню есть пункт "Копировать ярлык"
Так вот если скопипастить в блокнот, то у всех нужных мне ярлыков указан один и тот же путь.
Вот поэтому вопрос: как выбрать в WB.Document все значения полей, у которых установлена ссылка.
Находил в интернете типа отобразить



Но в отображенном тексте текста ссылке как у ярлыка нет

Ну значит это не ярлыки!
Ваш код ничего не находит.
А если щёлкнуть ПКМ по нужному мне значению, то в контекстном меню есть пункт: копировать ярлык.
А если потом вставить в блокнот, то имею: " http://betcityru.com/livebetssh.php?refr=1#"
А если ПКМ - просмотреть HTML код, то фрагмент из кода:


Как я понял это ячейка таблицы с форматированием и назначенной процедурой(onClick).
Вот мне и нужно выбрать все значения (2.94 в данном случае) из ячеек где есть (onClick).
А как это правильно называется: ссылка, ярлык, назначение процедуры-функции я пока не знаю - только начал вникать.
Вот теперь пытаюсь разбить весь код на ячейки и проверить каждую на предмет содержания onClick

Ап ну тему!
Неужели никто не поможет разобраться?
скукотища и Диклевич Александр пытались помочь, но я так и не поборол проблему.

Private Sub Form_Load()
Dim LOG, PAR, param
Dim STrurl, oHttp

LOG = "g 7823672"
PAR = 433562

STrurl = " http://betcityru.com/top.php"
Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "POST", STrurl, False

param = "login=" & LOG & "&psw=" & PAR '& " https = 1"
oHttp.send param

Debug.Print oHttp.getAllResponseHeaders

автор'Server: nginx
'Date: Thu, 07 Mar 2013 07:23:00 GMT
'Content-Type: text/html; charset=UTF-8
'Connection: keep-alive
'P3P: policyref=" http://betcityru.com/w3c/p3p.xml", CP="NON DSP ADM DEV PSD IVDo OUR IND STP PHY PRE NAV UNI"
'Set-Cookie: PSF=b661330cb4ce0df0cc41839f71f7c36a; path=/
'Expires: Thu, 19 Nov 1981 08:52:00 GMT
'Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
'Pragma: no-cache

Dim sAddnHdrs$
sAddnHdrs = oHttp.getResponseHeader("Set-Cookie")
Debug.Print sAddnHdrs

автор'PSF=b661330cb4ce0df0cc41839f71f7c36a; path=/

'sAddnHdrs$ = "7e59a9ac940d695e6475bb50362b4a47; path=/Server: nginx"

sAddnHdrs$ = "Cookies:= " & sAddnHdrs

WB.Navigate " http://betcityru.com", , , , sAddnHdrs ' пытаюсь зайти на страницу - вход неавторизован!
'здесь код ожидания загрузки или по F8 выдержка ожидания загрузки
Debug.Print WB.Document.body.innerHTML

автор'<FRAME name=btop marginWidth=0 marginHeight=0 src="top.php" frameBorder=0 noResize scrolling=no>
'<FRAME name=center marginWidth=0 marginHeight=0 src="center.php" frameBorder=0 noResize scrolling=no>
'<FRAME name=bottom marginWidth=0 marginHeight=0 src="bottom.php" frameBorder=0 noResize scrolling=no>
Как я вижу в самом документе никаких ссылок нет и получить к ним доступ я не могу



а всё загружается(формируется программно) например: src="top.php"
Пытаюсь поймать клики по документу:
глобально


по кнопке


событие(взято из примеров. И с примером всё понятно. там работает. Но там всё в документе, а не во фрейме)


не возникает.

1. как программно авторизоваться? При этом поля для заполнения находятся во фрейме Top, а результаты, что авторизация прошла успешно, показаны во фрейме Left. На экране видно 3 фрейма(Lef, Top, Center)
2. как программно кликнуть по ссылке, которая будет находиться во фрейме bets2(на месте фрейма Center)







End Sub