| Вопрос: Доступ к объектам Web страницы | Добавлено: 09.09.05 19:02 |
Автор вопроса:  mr_fany
|
|
Всем Добрый день!
Я хочу получить доступ к объектам на Web странице из VBA. Как добраться до сылок знаю а вот к остальным объектем не получается. Пожалуста, если это вазможно, то помагите! Заранее благодарен. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 09.09.05 20:49 |
| Покажи, как "добираешься до ссылок". | ||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 09.09.05 23:12 |
| я на JS до ссылок добирался, и другие элементы там аналогично... | ||
|
Номер ответа: 3 Автор ответа: el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #3 | Добавлено: 10.09.05 15:54 |
| Могу предложить подключить к проекту стандартную библиотечку "Microsoft HTML Object Library". Очень просто и понятно. Описания как такового нету, но если есть представления о структуре DOM, то проблем с использованием возникнуть не должно. | ||
|
Номер ответа: 4 Автор ответа: mr_fany Вопросов: 7 Ответов: 8 |
Профиль | | #4 | Добавлено: 12.09.05 14:26 |
|
Нажатие на первую кнопку покажет, как можно вытащить все ссылки из файла, а нажатие на
вторую кнопку - как можно вытащить ссылки только определенного типа. Но для начала вам надо установить через меню Project | References ссылку на Microsoft Internet Control. ПРИМЕР 1 Также вам необходимо расположить на форме 2 элемента CommandButton и элемент ListBox. Private IEBroj1 As SHDocVw.InternetExplorer
Private Sub Form_Load() Set IEBroj1 = New SHDocVw.InternetExplorer End Sub Private Sub Form_Unload(Cancel As Integer) IEBroj1.Quit Set IEBroj1 = Nothing End End Sub Function Delay(Pause As Single) Dim Start As Single Start = Timer Do While Timer < Start + Pause DoEvents Loop End Function Private Sub Command1_Click() List1.Clear Dim x IEBroj1.Navigate "C:\1\index.htm" Delay 3 'задержа необходима для загрузки страницы 'иногда требуется увеличить время загрузки до 30 секунд. For i = 1 To IEBroj1.Document.links.length - 1 List1.AddItem IEBroj1.Document.links(i).href Next End Sub Private Sub Command2_Click() List1.Clear Dim x IEBroj1.Navigate "C:\1\index.htm" Delay 3 For i = 1 To IEBroj1.Document.links.length - 1 If InStr(1, IEBroj1.Document.links(i).href, ".asp"  <> 0 Or InStr(1,
IEBroj1.Document.links(i).href, ".htm" <> 0 Then
List1.AddItem IEBroj1.Document.links(i).href End If Next End Sub |
||
Страница: 1 |