Как нажать в уже открытом IE? - VB
Формулировка задачи:
Листинг программы
- Private Sub Command1_Click()
- Dim ie As Object
- Set ie = CreateObject("InternetExplorer.Application")
- ie.Visible = True
- ' ie.navigate ("...") ' указываем сайт
- Do Until ie.ReadyState = 4 'Пока не загрузится ждем
- DoEvents
- Loop
- ie.document.getelementbyID("...").Click 'Жмем на кнопку
- End Sub
Решение задачи: «Как нажать в уже открытом IE?»
textual
Листинг программы
- Const navOpenInBackgroundTab = &H1000
- Link = "http://membrana.ru/"
- set IE = Nothing
- For Each Window In CreateObject("Shell.Application").Windows
- With Window
- If .Name = "Windows Internet Explorer" Then
- Set IE = Window
- IE.Navigate2 Link, navOpenInBackgroundTab
- Exit For
- End If
- End With
- Next
- if IE is Nothing then
- Set ie = CreateObject("InternetExplorer.Application")
- ie.Visible = True '// поставьте false, чтобы не было видно браузера
- IE.Navigate2 Link
- end if
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д