Как нажать в уже открытом IE? - VB

Узнай цену своей работы

Формулировка задачи:

Листинг программы
  1. Private Sub Command1_Click()
  2. Dim ie As Object
  3. Set ie = CreateObject("InternetExplorer.Application")
  4. ie.Visible = True
  5. ' ie.navigate ("...") ' указываем сайт
  6. Do Until ie.ReadyState = 4 'Пока не загрузится ждем
  7. DoEvents
  8. Loop
  9. ie.document.getelementbyID("...").Click 'Жмем на кнопку
  10. End Sub
Этот код, запускает IE, заходит на сайт, который мы указали, потом нажимает на кнопку, которую мы тоже указали.. А как нибудь можно сделать так, чтобы он не открывал IE?? У меня он будет уже открыт, а программа просто активирует окно IE и вкадку с этим сайтом, потом нажмет ..Возможно такое?

Решение задачи: «Как нажать в уже открытом IE?»

textual
Листинг программы
  1.     Const navOpenInBackgroundTab = &H1000
  2.      
  3.     Link = "http://membrana.ru/"
  4.    
  5.     set IE = Nothing
  6.     For Each Window In CreateObject("Shell.Application").Windows
  7.         With Window
  8.             If .Name = "Windows Internet Explorer" Then
  9.                 Set IE = Window
  10.                 IE.Navigate2 Link, navOpenInBackgroundTab
  11.                 Exit For
  12.             End If
  13.         End With
  14.     Next
  15.  
  16.     if IE is Nothing then
  17.         Set ie = CreateObject("InternetExplorer.Application")
  18.         ie.Visible = True '// поставьте false, чтобы не было видно браузера
  19.         IE.Navigate2 Link
  20.     end if

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы