Возможно ли?

[theal]

Возможно ли при открытии страницы через webbrowser1, если страница открывается в новом----сделать её невидимой?

[Хакер]

при открытии страницы через webbrowser1, если страница открывается в новом----сделать её невидимой?

Синяя часть противоречит залёной.

[arvitaly]

viewtopic.php?f=1&t=39598

[theal]

При открытии страницы загруженой в webbrowser1 открывактся интернет эксплорер--Его нельзя сделать невидимым?(эксплорер)типа hide ?Или может сменить webbrowser на другой какой нибудь компонент?Неужели нет никаких способов?

[iGrok]

При открытии страницы загруженой в webbrowser1 открывактся интернет эксплорер--Его нельзя сделать невидимым?(эксплорер)типа hide ?Или может сменить webbrowser на другой какой нибудь компонент?Неужели нет никаких способов?

Тебе же arvitaly даже ссылку дал...

[theal]

При открытии страницы загруженой в webbrowser1 открывактся интернет эксплорер--Его нельзя сделать невидимым?(эксплорер)типа hide ?Или может сменить webbrowser на другой какой нибудь компонент?Неужели нет никаких способов?

Тебе же arvitaly даже ссылку дал...

Но в том примере окно загоняется в webbrowser2 а этого мне не нужно.Ну хотя бы сделать свёрнутым--нельзя?

[arvitaly]

Тогда напиши подробнее что тебе нужно, нифига не понимаю

[Хакер]

Но в том примере окно загоняется в webbrowser2 а этого мне не нужно.Ну хотя бы сделать свёрнутым--нельзя?

Что?

[theal]

Мне не нужно останавливать загрузку открывшейся страницы...Нужно или как то просто уменьшить это окно или сделать его невидимым--чтоб не маячило перед глазами.Мне надо чтоб страница которая открылась знала адрес откуда её открыли..А в примере с webbrowser2 она не знает откуда её родили.То есть при переходе через программу на мой сайт, мой сайт должен определить что это был переход из странички в проге моей.И при этом не мешать пользователю программы.На данный момент мой сайт не определяет переход.(в статистике посещений моего сайта пишется что неизвестен источник обращения к сайту)..Когда страница открывается в эксплорере , сайт видит адрес источника.Но эксплорер мешает моему пользователю..(Получается-типа как всплывающее окно --что очень не желательно)

Надеюсь вы меня понимаете

[arvitaly]

Может быть

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

WebBrowser1.RegisterAsBrowser=True

[Хакер]

Я — нет.

[theal]

надо чтоб прога соединялась через прогу с моим сайтом..И если переход бал именно с проги то забрать новую информацию моему пользователю

[theal]

Может быть

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

WebBrowser1.RegisterAsBrowser=True

А куда это в браузер прописывать?

[theal]

я вписал это в форм лоад ,Вы считаете что веббраузер определится как браузер?

[arvitaly]

Во первых да

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 5.4 (build 02647); TIOnline updater v Embedded Web Browser from: http://bsalsa.com/; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

, во вторых я только что проверил при этом на сайте видно страницу с которой пришли, используй пример который я тебе дал со вторым Webbrowser пропиши это свойство и все будет ОК

[theal]

Определяется только первый переход,,попробуйте сделать второй (и он должен не определится)

[arvitaly]

Ппц, какой еще второй переход ты о чем? Я думаю до такой степени даже Хакер не умеет телепатировать

[theal]

Ппц, какой еще второй переход ты о чем? Я думаю до такой степени даже Хакер не умеет телепатировать

Я имею ввиду не выключая прогу повторите переход----второй переход не виден

[arvitaly]

Покажи код я хз че ты там делаешь, у меня все норм и 2-й раз и 3-й и 10-й

[theal]

Покажи код я хз че ты там делаешь, у меня все норм и 2-й раз и 3-й и 10-й

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

While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    On Error Resume Next
        For Each testlink In WebBrowser1.Document.links
        On Error GoTo 0
        If InStr(1, testlink.href, "Обновление", vbTextCompare) Then
        testlink.Click
        Text16 = testlink.innertext + " " + "Есть"
       
        Exit For
       
       
    End If
   
Next testlink

Но статистика показывает некоторые обращения к моему сайту --(неизвестными)

[theal]

При клике открывается страница в веб браузере 2 вот её то и не видно что она открыта с моей проги
на первой странице выполняется вход по паролю и логину . А вот открывал ли этот пользователь страницу 2-- не видно

[arvitaly]

И чего ты код прислал абсолютно к делу не относящийся покажи как осуществляешь подгрузку в веббраузер2 и где регистерасбраузер делаешь

[theal]

И чего ты код прислал абсолютно к делу не относящийся покажи как осуществляешь подгрузку в веббраузер2 и где регистерасбраузер делаешь

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

Private Function mHTMLDocument_onclick() As Boolean

    If LCase(mHTMLDocument.activeElement.tagName) = "a" Then
        If LCase(mHTMLDocument.activeElement.getAttribute("target")) = "_blanc" Then
            WebBrowser2.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        Else
            WebBrowser1.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        End If
    End If
End Function


Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser2.object
 
End Sub

регистерасбраузер в форм лоад

[arvitaly]

Блин ты бы хотя бы почитал прежде чем код вставлять, нужна только вот эта часть

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

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser2.object
End Sub

в формлоаде оба браузера регистрируешь?

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

WebBrowser1.RegisterAsBrowser=True
WebBrowser2.RegisterAsBrowser=True

??

[theal]

Блин ты бы хотя бы почитал прежде чем код вставлять, нужна только вот эта часть

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

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser2.object
End Sub

в формлоаде оба браузера регистрируешь?

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

WebBrowser1.RegisterAsBrowser=True
WebBrowser2.RegisterAsBrowser=True

??

Они у меня оба регистрируются

[theal]

Блин ты бы хотя бы почитал прежде чем код вставлять, нужна только вот эта часть

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

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser2.object
End Sub

в формлоаде оба браузера регистрируешь?

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

WebBrowser1.RegisterAsBrowser=True
WebBrowser2.RegisterAsBrowser=True

??

а что верхний код мешает нижнему?

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

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser2.object
End Sub

[theal]

Результат и с ним и без него один и тот же