работа в фоне, чтоб не терялся фокус с основного

[unreal_2007]

Здраствуйте есть программа запуска Explorer`а по таймеру.

Код: Выделить всё

    Set Ie = CreateObject("InternetExplorer.Application")
    Ie.Navigate "http://speed.travian.ru/login.php"
    Ie.MenuBar = 1
    Ie.ToolBar = 1
    Ie.StatusBar = 1
    Ie.AddressBar = 1
    Ie.Visible = 0


проблемма в том что активное окно теряет фокус, хотя окно Explorer`а скрыто.
вопрос как этого избежать

[Денис]

Код: Выделить всё

    Set Ie = CreateObject("InternetExplorer.Application")

    me.setfocus

    Ie.Navigate "http://speed.travian.ru/login.php"
    Ie.MenuBar = 1
    Ie.ToolBar = 1
    Ie.StatusBar = 1
    Ie.AddressBar = 1
    Ie.Visible = 0

[unreal_2007]

Проблема не втом чтобы навести фокус на IE, а какраз на оборот сделать так чтоб при выполнении IE не перехвытывал фокус, а оставался в фоне,
что-то вроде vbNormalNoFocus.
и если можно поподробнее

[alibek]

Возможно что никак.

[Денис]

Проблема не втом чтобы навести фокус на IE, а какраз на оборот сделать так чтоб при выполнении IE не перехвытывал фокус, а оставался в фоне,
что-то вроде vbNormalNoFocus.
и если можно поподробнее

Извиняюсь, не проверил код. Вот рабочий вариант.

Код: Выделить всё

Private Sub Form_Activate() 'Именно Activate а не Load
   
    Set Ie = CreateObject("InternetExplorer.Application")
   
    With Ie
      .Navigate "http://speed.travian.ru/login.php"
      .MenuBar = 1
      .ToolBar = 1
      .StatusBar = 1
      .AddressBar = 1
      .Visible = 1
    End With
   
    Me.SetFocus
   
End Sub

[alibek]

Денис, а ты сам вопрос прочитал?
Ему не надо активировать инстанс IE. Ему надо, чтобы фокус не пропадал с его собственной программы при открытии инстанса IE в фоновом режиме (а фокус теряется, потому что IE его сбивает).

[unreal_2007]

Может другое решение есть, от друго пользователя это запускать или еще как

[Денис]

Мой код активирует собственную форму (не путать IE с Me!!!)
Есть еще один метод, при помощи АПИ SetParent засунуть свое окно внутрь окна IE. Но это будет не совсем удобно.

Код: Выделить всё

Private Declare Function SetParent _
   Lib "user32" (ByVal hWndChild As Long, _
   ByVal hWndNewParent As Long) As Long
    Set Ie = CreateObject("InternetExplorer.Application")
   
...

    With Ie
      .Navigate "ya.ru"
      .MenuBar = 1
      .ToolBar = 1
      .StatusBar = 1
      .AddressBar = 1
      .Visible = 1
      SetParent Me.hwnd, .hwnd
    End With