Vb net webbrowser ошибка сценария

You should make the WebBrowser Control COM Visible and give it the proper permissions:

#region Using Statements:



using System;
using System.Windows.Forms;
using System.Security.Permissions;



#endregion



[PermissionSet(SecurityAction.Demand, Name = "FullTrust")]
[System.Runtime.InteropServices.ComVisibleAttribute(true)]
public partial class Form1 : Form
{



public Form1()
{

InitializeComponent();

// WebBrowser Configuration:
webBrowser1.ObjectForScripting = this;
webBrowser1.AllowWebBrowserDrop = false;
webBrowser1.ScriptErrorsSuppressed = true;
webBrowser1.WebBrowserShortcutsEnabled = false;
webBrowser1.IsWebBrowserContextMenuEnabled = false;

}




private void Form1_Load(object sender, EventArgs e)
{
webBrowser1.Navigate("https://www.google.com/");
}


}

or:

#region Using Statements:



using System;
using System.Windows.Forms;
using System.Security.Permissions;



#endregion



[PermissionSet(SecurityAction.Demand, Name = "FullTrust")]
[System.Runtime.InteropServices.ComVisibleAttribute(true)]
public partial class Form1 : Form
{



public Form1()
{

InitializeComponent();

// WebBrowser Configuration:
webBrowser1.ObjectForScripting = new ObjectForScripting();
webBrowser1.AllowWebBrowserDrop = false;
webBrowser1.ScriptErrorsSuppressed = true;
webBrowser1.WebBrowserShortcutsEnabled = false;
webBrowser1.IsWebBrowserContextMenuEnabled = false;

}




private void Form1_Load(object sender, EventArgs e)
{
webBrowser1.Navigate("https://www.google.com/");
}


[System.Runtime.InteropServices.ComVisibleAttribute(true)]
public class ObjectForScripting
{

// User Code to handle events..

}


}

Note: This may not run correctly in debug mode.

Also, if you need the Registry Key set for local App Compatibility, it also wont run in debug mode.

IsWOW64 = @"HKEY_LOCAL_MACHINESOFTWAREWow6432NodeMicrosoftInternet ExplorerMAINFeatureControlFEATURE_BROWSER_EMULATION";



IsNotWOW64 = @"HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerMAINFeatureControlFEATURE_BROWSER_EMULATION";

A Client hired me about a week ago to create a webbrowser on a vb.net application with some basic functions(More like a macro which could help with his Blog activities). However I somehow discovered that there is an impossible error to fix when I’m trying to browse the Google http://Blogger.com/home dashboard page even when I’m logged in on a gmail account, there’s a really annoying error coming up (Script Error) saying this

object doesn’t support property or method ‘getcomputedstyle’

Has anyone maybe the solution to this error? It’s really important to get this fixed as soon as possible as I’m on a deadline and this whole Blogger thing could be a deal-breaker.

I should probably mention that I tried disabling Script Errors from IE Options but that didn’t help.

I also found a JS code with a possible fix to my problem but the title was probably missleading and it didn’t help me at all.

And I even gave a shot to Microsoft solution about a giving the webbrowser a TrueValue, but after taking each step and running the app I realized that neither did that work..

Lastly I added this code

WebBrowser1.ScriptErrorsSuppressed = True

and that just hides the error from appearing but the page still remains blank without my VB application crashing.

I took a screenshot of the Script Error in case it’s more helpful than me talking about it. Please offer me any possible solution you have in mind!

I’m using Visual Studio Ultimate 2013 and running my PC on Windows 8.

EDIT: I still haven’t found any solution to my problem. However I tried visiting the same link on my IE to check if the browser has indeed the problem and after logging in with an account, an error pops up with this code: bX-wnrswi

Those type of errors as I read appear only on IE so I’m still not sure where exactly to look and what to do in order to avoid this freakin error. If you feel that you can help me with your advice then feel free and do it! I’m desperate..

2nd EDIT: I forgot to mention that I actually have installed Windows 8.1 instead of 8. Windows 8.1 came pre-installed with IE11 which is their brand new version and surprise-surprise is full of bugs. I’m almost certain that this version of IE is the root of my problem. However on Windows 8.1 it’s almost impossible to downgrade from IE 11 to IE 10 or just uninstall IE 11 and install an older version. However I’m searching about it, if anybody feels like he has a solution please post about it.

RESOLVED — FIXED: Finally after spending almost 6h trying to solve this worthless pie** of s*** I found a way to fix it. After trying almost everything (It’s 2AM in the morning atm) before abandoning this I thought I should give it one last try. So I just changed my project settings from run on any CPU to my PC, so x64 and I finally got passed this stupid issue.

In case anyone else has this problem, here’s the solution:

On your VB toolbar, click the drop-down arrow -> Customize -> Enable Toolbar (or Menu Bar) -> Select Build -> Add Command -> Add «Configuration Manager…(If not visible left click on your Toolbar and enable The Configuration Manager) -> Compile to whatever system you got, x32 or x64 instead of Any CPU.

A Client hired me about a week ago to create a webbrowser on a vb.net application with some basic functions(More like a macro which could help with his Blog activities). However I somehow discovered that there is an impossible error to fix when I’m trying to browse the Google http://Blogger.com/home dashboard page even when I’m logged in on a gmail account, there’s a really annoying error coming up (Script Error) saying this

object doesn’t support property or method ‘getcomputedstyle’

Has anyone maybe the solution to this error? It’s really important to get this fixed as soon as possible as I’m on a deadline and this whole Blogger thing could be a deal-breaker.

I should probably mention that I tried disabling Script Errors from IE Options but that didn’t help.

I also found a JS code with a possible fix to my problem but the title was probably missleading and it didn’t help me at all.

And I even gave a shot to Microsoft solution about a giving the webbrowser a TrueValue, but after taking each step and running the app I realized that neither did that work..

Lastly I added this code

WebBrowser1.ScriptErrorsSuppressed = True

and that just hides the error from appearing but the page still remains blank without my VB application crashing.

I took a screenshot of the Script Error in case it’s more helpful than me talking about it. Please offer me any possible solution you have in mind!

I’m using Visual Studio Ultimate 2013 and running my PC on Windows 8.

EDIT: I still haven’t found any solution to my problem. However I tried visiting the same link on my IE to check if the browser has indeed the problem and after logging in with an account, an error pops up with this code: bX-wnrswi

Those type of errors as I read appear only on IE so I’m still not sure where exactly to look and what to do in order to avoid this freakin error. If you feel that you can help me with your advice then feel free and do it! I’m desperate..

2nd EDIT: I forgot to mention that I actually have installed Windows 8.1 instead of 8. Windows 8.1 came pre-installed with IE11 which is their brand new version and surprise-surprise is full of bugs. I’m almost certain that this version of IE is the root of my problem. However on Windows 8.1 it’s almost impossible to downgrade from IE 11 to IE 10 or just uninstall IE 11 and install an older version. However I’m searching about it, if anybody feels like he has a solution please post about it.

RESOLVED — FIXED: Finally after spending almost 6h trying to solve this worthless pie** of s*** I found a way to fix it. After trying almost everything (It’s 2AM in the morning atm) before abandoning this I thought I should give it one last try. So I just changed my project settings from run on any CPU to my PC, so x64 and I finally got passed this stupid issue.

In case anyone else has this problem, here’s the solution:

On your VB toolbar, click the drop-down arrow -> Customize -> Enable Toolbar (or Menu Bar) -> Select Build -> Add Command -> Add «Configuration Manager…(If not visible left click on your Toolbar and enable The Configuration Manager) -> Compile to whatever system you got, x32 or x64 instead of Any CPU.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 0

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, _
                ByVal wparam As Integer, ByVal lparam As IntPtr) As IntPtr

Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, _
                 ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr

Public Const WM_CLOSE = &H10

Private Sub threadCheckError()
    Dim hwnd As IntPtr
    While 1
        hwnd = findwindowex (0, 0, "Internet Explorer_tridentdlgframe", "Ошибка скрипта Internet Explorer")
        If hwnd.ToInt64 > 0 Then
            SendMessage(hwnd, WM_CLOSE, 0, 0)
        End If

                 hwnd = findwindowex (0, 0, "#32770", "Сообщение с веб -страницы")
        If hwnd.ToInt64 > 0 Then
            SendMessage(hwnd, WM_CLOSE, 0, 0)
        End If

        System.Threading.Thread.Sleep(100)
        My.Application.DoEvents()
    End While
End Sub

Dim threadchk As New Threading.Thread(AddressOf threadCheckError)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.ScriptErrorsSuppressed = False
    threadchk.Start()
End sub

Перепечатано по адресу: https://www.cnblogs.com/james1207/p/3325138.html

Я не знаю, как устанавливать атрибуты, когда у меня нет ошибки, код выглядит так:

    <DIV id=serialInfoBox>
<DIV class=l>
<DIV class=progressBar>
<DIV class=o>
<DIV style="WIDTH: 0px" class=i></DIV></DIV></DIV><HGROUP>
<H2><A href="serial,stargate-universe.html">SGU Stargate Universe</A></H2></HGROUP></DIV>
<DIV class=r><IMG src="/static/serials/stargate-universe_small.jpg"> </DIV></DIV>
<DIV id=player>
<DIV id=player_2 hash="wZlV90mq4I3LgyGB6WGIgyKJvMzHhS2EvAGqhWmI25JIRMyrXIUnjAmAeIKJZqQJcIGBV1HInuKLuS2LnS1ZHWTMDqGrBk0FF9FAPSxMvuSJnAxLjZxHXy1IdSzEiSHJ1W1M" jQuery110007841996969566763="5"></DIV>
<DIV class=clearfix></DIV></DIV></DIV>
<DIV id=underPlayer><A class=l href="odcinek,stargate-universe,lost,s01e15.html">poprzedni odcinek</A> <A class=c watched="0" jQuery110007841996969566763="19">zaznacz jako obejrzane</A> <A class=r href="odcinek,stargate-universe,pain,s01e17.html">następny odcinek</A> </DIV>
<SCRIPT type=text/javascript>
        $(document).ready(function() {
            $('#langs li').click(function(e) {
                e.preventDefault();
                $('#players li').hide();
                $('#players li.'+$(this).attr('id')).show();
                $('#langs li').removeClass('active');
                $(this).addClass('active');
            });

            $('#player_2').click(function(e) {
                $.post("getVideo.html", {hash: $(this).attr('hash')}, function(data) {
                    $('#player').css('background','#000').css('text-align','center');
                    $('#player').html(data);
                    $('html, body').animate({
                        scrollTop: $("#player").offset().top-27
                    }, 1000);
                });
            });

            $('#players a.switcher').click(function(e) {
                e.preventDefault();
                $.post("getVideo.html", {hash: $(this).parent().attr('hash')}, function(data) {
                    $('#player').html(data);
                    $('html, body').animate({
                        scrollTop: $("#player").offset().top-27
                    }, 1000);
                });

            });

            $(document).on('click','a.tup',function(e) {
                e.preventDefault();
                var c_id = $(this).parent().attr('cid');
                $.post("commentVote.html",{cid: c_id, mode: "up"}, function(data) {
                    if (data >= 0) {
                        $('#cid'+c_id+' span').removeClass('red').removeClass('green').addClass('green');
                        data = '+'+data;
                    } else {
                        $('#cid'+c_id+' span').removeClass('red').removeClass('green').addClass('red');
                    }
                    $('#cid'+c_id+' span').html(data);
                    $('#cid'+c_id+' .tup').remove();
                    $('#cid'+c_id+' .tdown').remove();
                }) ;
            });
            $(document).on('click','a.tdown',function(e) {
                e.preventDefault();
                var c_id = $(this).parent().attr('cid');
                $.post("commentVote.html",{cid: c_id, mode: "down"}, function(data) {
                    if (data >= 0) {
                        $('#cid'+c_id+' span').removeClass('red').removeClass('green').addClass('green');
                        data = '+'+data;
                    } else {
                        $('#cid'+c_id+' span').removeClass('red').removeClass('green').addClass('red');
                    }
                    $('#cid'+c_id+' span').html(data);
                    $('#cid'+c_id+' .tup').remove();
                    $('#cid'+c_id+' .tdown').remove();
                }) ;
            });


            $('#underPlayer .c').bind('click', function() {
                var el = $(this);
                    if ($(this).attr('watched') == 0) {

                        $.ajax({type: "POST", url: "/reports,seen.html",timeout: 10000,data: "user=1075505&ep=38361", success: function(data) {
                                if (data == 1) {
                                    el.html('oznacz jako nieobejrzane').attr('watched','1');
                                }
                            }
                        });
                    } else {
                        $.ajax({type: "POST", url: "/reports,seen.html",timeout: 10000,data: "user=1075505&rem=1&ep=38361", success: function(data) {
                            if (data == 1) {
                                el.html('zaznacz jako obejrzane').attr('watched','0');
                            }
                        }
                        });
                    }
                return false;
            });

        })
    </SCRIPT>

и нет ссылки, которая мне нужна, но когда есть моя ссылка, то у меня ошибка, и код выглядит так:

    <DIV id=serialInfoBox>
    <DIV class=l>
    <DIV class=progressBar>
    <DIV class=o>
    <DIV style="WIDTH: 0px" class=i></DIV></DIV></DIV><HGROUP>
    <H2><A href="serial,stargate-universe.html">SGU Stargate Universe</A></H2></HGROUP></DIV>
    <DIV class=r><IMG src="/static/serials/stargate-universe_small.jpg"> </DIV></DIV>
    <DIV style="TEXT-ALIGN: center; BACKGROUND: #000" id=player>
    <DIV style="POSITION: relative; WIDTH: 750px">
    <DIV style="Z-INDEX: 0; TEXT-ALIGN: center; WIDTH: 750px; BACKGROUND: #000; COLOR: #fff">
    <DIV class=embed>
    <DIV style="Z-INDEX: 0; POSITION: relative; WIDTH: 750px; HEIGHT: 429px; CLEAR: both"><SPAN id=aeceedb4c2667cf66b0cfe9780811fa6></SPAN></DIV>
    <SCRIPT type=text/javascript src="http://premium.iitv.info/static/player/flowplayer-3.2.11.min.js"></SCRIPT>

    <SCRIPT type=text/javascript>
                        $(document).ready( function(){
                            $f("aeceedb4c2667cf66b0cfe9780811fa6", "http://premium.iitv.info/static/player/flowplayer.commercial-3.2.15.swf", {
                                key: '#$3f90d28e7547ada6c98',
                                clip: {
here is url: --->                                    url: 'http://stream.streamo.tv/?scode=wZvoQAIH41HF5MxJiH2MAg0YeVKAFATnLMTGluyIl4HFeZyGCAUFhqGM5DREz9JnlM2MUAJEmq3HlSIBVgxq6OKqeRxHDATERSUZTAmqkHGn5cJA1yyZgA0pKcHDdAmMkRGZ2A2pfWKqeSKD4NUIQkRqVWwEIcRrLWmEKIaJbERnDgPFcW3A2RwAj52F6MUIgMyADImXjfvq2EKoMAJGxywD0y0Az50HeLmIy1zM0WTA19FBgWTIBc0FWWTAUAwrCuaEASKIiHQplWwMwMxZm9HZeO1FGMSHMSyELEwZaSRqXSHMjWmX6W2AUOUG2I2DmM0YU9RqjgFAiS0XLcJBDcJBQEQnLcJD142IaM0AL50nSOQJkkxEBSHrBMQBIOmM2qaqGgxo5SzJdAIpjymZ5bKLlyxrDuSokNyZ4ExZPqIJkVwpyqSZbMwZxITEjVIFyqSZIMaMPuUIeSxF5RSHzEQGIyTnIA3o2LwIJ1ToPE1DFyTpUqRqiHHpuSTF0RypBqmpacaG',
                                    provider: 'lighttpd',
                                    scaling: 'fit',
                                    backgroundGradient: 'none',
                                    autoPlay: false,
                                    autoBuffering: false
                                },
                                canvas: {
                                    backgroundColor:'#000',
                                    backgroundGradient: 'none'
                                },
                                plugins: {
                                    lighttpd: {
                                        url: 'flowplayer.pseudostreaming-3.2.11.swf',
                                                                            queryString: escape('?start=${start}')
                                                                        },
                                    controls: {
                                        url: 'flowplayer.controls-3.2.14.swf',
                                        autoHide: 'always'
                                    }
                                                                }
                            });
                        });
                    </SCRIPT>

1. Я загружаю страницу и не могу получить доступ к ее содержимому.
2. Как найти элемент на странице, если неизвестен его id.
3. Классы HtmlWindow, HtmlDocument, HtmlElement и HtmlElementCollection — всего лишь оболочки COM-объектов и не дают всех тех возможностей, которые есть у них. Можно ли добраться до всего функционала DOM?
4. Как программно выделить текст в браузере.
5. Если скопировать код из браузера и вставить его в Word, WordPad или просто в RichTextBox, то при вставке сохраняется форматирование текста(цвета, шрифты и т.д.). Можно ли достичь такого же эффекта программно?

В данной заметке хочу собрать ответы на наиболее часто встречающиеся вопросы, возникающие при работе с элементом управления WebBrowser. Как элемент управления он мало чем отличается от других контролов и главной проблемой, с которой сталкиваются те, кто с ним начинает работать, является управление содержимым веб-страниц. А этот вопрос очень плохо задокументирован и обо всех возможностях приходится узнавать из других источников. В связи с этим хотелось бы рассмотреть некоторые вопросы по этой теме. Описание буду вести в формате «вопрос-ответ», поскольку описываться будут отдельные, зачастую не связанные между собой, аспекты и какой-то последовательности в рассмотрении отдельных вопросов тоже задавать не планирую.

Я загружаю страницу и не могу получить доступ к ее содержимому.

Обычно эта проблема возникает в тех случаях, когда попытка обратиться к содержимому документа осуществляется непосредственно после вызова метода Navigate (или другого способа загрузки). В этот момент страница еще не успевает загрузиться и таким образом ее(либо той части, к которой происходит обращение) на момент обращения просто не существует как объекта. Обращаться к содержимому надо либо по команде пользователя, который видит, что страница загружена, либо, если требуется сделать это автоматически после загрузки, надо делать это в обработчике события DocumentCompleted.
С этим событием не все так просто как хотелось бы. Иногда можно выполнить нужную обработку документа в обработчике этого события и все вроде работает как надо, но потом, на другом документе могут наблюдаться неожиданные эффекты. Например, если в коде обработчика в документ добавляется какой-нибудь элемент, то можно наблюдать, что элемент добавился несколько раз, хотя в коде он был добавлен только один раз.
За примерами далеко ходить не надо. Возьмем главную страницу CyberForum.

1
2
3
4
5
6
7
8
9
10
11
12
13

    Private Sub DocumentCompletedForm_Load(sender As Object, e As EventArgs) Handles Me.Load
        ' Запрещаем появление диалога, сообщающего, что на странице произошла ошибка сценария
        Me.WebBrowser1.ScriptErrorsSuppressed = True
        Me.WebBrowser1.Navigate("http://www.cyberforum.ru")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim doc = Me.WebBrowser1.Document
        Dim div = doc.CreateElement("div")
        div.Style = "color:red;font-size:30px;margin:10px"
        div.InnerText = "Привет"
        Me.WebBrowser1.Document.Body.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterBegin, div)
    End Sub

На форме WebBrowser по имени WebBrowser1 и ничего больше.
Этот код при загрузке документа должен в начало страницы вставить div со словом «Привет!». Он делает это, только вставляет его 9 раз, хотя должен бы только один. Понятно, что происходить это может в том случае, если обработчик DocumentCompleted срабатывает именно такое количество раз. Но тут возникает вопрос, как такое может быть. Ответ мы получим, если изменим код следующим образом.

1
2
3
4
5
6
7

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim doc = Me.WebBrowser1.Document
        Dim div = doc.CreateElement("div")
        div.Style = "color:red;font-size:30px;margin:10px"
        div.InnerText = e.Url.Host
        Me.WebBrowser1.Document.Body.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterBegin, div)
    End Sub

То есть вместо «привета» мы будем выводит имя хоста, с которого загружен документ. И вот, что мы имеем

То есть помимо основной страницы, это событие срабатывает еще и при загрузке фреймов. Мало того срабатывает оно дважды и если еще проверить состояние загрузки WebBrowser.RedyState, то для фреймов сначала срабатывает в состоянии Interactive, а потом уже Complete. И только в самом конце, когда загружено все содержимое, событие срабатывает и для основной страницы (вставка происходит в самое начало документа, поэтому самая верхняя запись была добавлена самой последней).
Конечно, можно проверять адрес страницы и сравнивать его со значением свойства Url самого браузера.

1
2
3
4
5
6
7
8
9

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Url = e.Url Then
            Dim doc = Me.WebBrowser1.Document
            Dim div = doc.CreateElement("div")
            div.Style = "color:red;font-size:30px;margin:10px"
            div.InnerText = e.Url.Host
            Me.WebBrowser1.Document.Body.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterBegin, div)
        End If
    End Sub

По всей видимости это самый правильный способ и он даже работает как надо, но к сожалению, срабатывает он не всегда. На том примере, который я показал(что выводится при работе кода) можно заметить, что слово «привет» выводилось 9 раз, а вот адресов всего 7. И список не всегда один и тот же и зачастую отсутствует адрес как раз таки основного документа. С чем это связано — трудно сказать. Можно было бы предположить, что для основного документа событие сработает только тогда, когда все фреймы загрузятся и событие сработает для них всех. Но последний пример показывает, что это не так: один явно не вызывал событие, но для главной страницы оно все равно сработало. Так что не знаю насколько правилен этот способ, но надежным его точно не назовешь.
Я обычно проблему эту решаю достаточно «топорным» способом, который работает вполне себе сносно. Если задуматься, то как можно решить задачу, когда некий код должен выполниться только один раз, хотя находится он в методе, вызываемом многократно? Ответ достаточно прост, создается булева(не обязательно) переменная, а код помещается в условие, где проверяется значение этой переменной. Первоначальное значение переменно таково, что условие выполняется, но после того как все сделано, значение переменной изменяется и больше эта часть кода выполняться не будет. Примерно то же самое можно сделать и здесь. Правда создавать переменную на уровне класса не стоит, поскольку в браузер могут загружаться разные документы и на все переменных не напасешься. Но есть простой выход — метить сам документ, который уже был обработан. Например так.

1
2
3
4
5
6
7
8
9
10
11

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Document.Body.GetAttribute("data-comleted-process-flag") <> "1" Then
            Dim doc = Me.WebBrowser1.Document
            Dim div = doc.CreateElement("div")
            div.Style = "color:red;font-size:30px;margin:10px"
            div.InnerText = e.Url.Host
            Me.WebBrowser1.Document.Body.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterBegin, div)
            WebBrowser1.Document.Body.SetAttribute("data-comleted-process-flag", "1")
        End If
 
    End Sub

Здесь мы устанавливаем элементу BODY атрибут data-comleted-process-flag. В начале проверяем равно ли его значение единице( а это может произойти только если мы сами установили этот атрибут), потом выполняем действия и устанавливаем этот атрибут. Можно сделать имя атрибута совсем сложным, чтобы избежать случайных совпадений. Можно выполнять дополнительную проверку, на предмент существования элемента, с которым надо работать и если нет, то выходить из обработчика. Но это уже детали. Описанный способ неплохо работает, хотя гарантировать, что правильно сработает во всех случаях я, конечно же, не могу.

Как найти элемент на странице, если неизвестен его id.
С известным id все просто

1

WebBrowser1.Document.GetElementById(elementId)

поэтому вопрос поставлен именно так.
На самом деле без id тоже все просто. Главное — выявить критерии, по которым ищется элемент. У HtmlDocument равно как и у HtmlElement есть свойство All, у первого оно возвращает коллекцию, состоящую из всех элементов документа, а у второго — из всех потомков данного элемента. Обойдя эту коллекцию, попутно проверяя соответствие элемента условию, можно легко найти все необходимое. Например мне нужно найти ссылку на мой профиль на главной странице Cyberforum. Ссылка выглядит так

1

<a href="http://www.cyberforum.ru/members/557613.html">diadiavova</a>

Ссылку будем искать по имени элемента, значению атрибута href и содержимому(чтоб уж наверняка, хотя в данном случае будет достаточно значения атрибута, но все же). Вот простейший агрегатный запрос, выполняющий поиск

1
2
3
4
5

        Dim a = Aggregate el As HtmlElement In WebBrowser1.Document.All
                Where el.TagName = "A" _
                AndAlso el.GetAttribute("href").ToLower = "http://www.cyberforum.ru/members/557613.html" _
                AndAlso el.InnerText.Trim = "diadiavova"
                Into FirstOrDefault()

Здесь имя элемента указано в верхнем регистре, поскольку браузер всегда выдает его так, независимо от того, как это было в тексте документа. Для адреса я перестраховался и перевел его в нижний регистр(на всякий случай) если реальный адрес задан переменной, то его тоже придется перевести в нижний регистр для регистронезависимой проверки (или можно исопльзовать String.Compare с соответствующим флажком). Из содержимого убрал лишние пробелы(тоже для надежности). Код простой и понятный, так что в дополнительных комментариях не нуждается.
Можно так же создать несколько методов-расширений для классов документа, элемента, окна и коллекции элементов, для того, чтобы было удобнее с ними работать. Например так

1
2
3
4

    <Extension>
    Public Function GetElementsByClassName(document As HtmlDocument, className As String) As IEnumerable(Of HtmlElement)
        Return From el As HtmlElement In document.All Where el.GetAttribute("className") = className
    End Function

Классы HtmlWindow, HtmlDocument, HtmlElement и HtmlElementCollection — всего лишь оболочки COM-объектов и не дают всех тех возможностей, которые есть у них. Можно ли добраться до всего функционала DOM?
Существует несколько способов получить доступ ко всем возможностям DOM, независимо от того, реализованы они в интерфейсах упомянутых объектов или нет. Перечислю известные мне способы.

1. Следует внимательнее присмотреться к методам GetAttribute и SetAttribute элемента. На самом деле они не так просты как кажется. С помощью этих методов можно управлять свойствами элементов. Можно для примера поэксперементировать со свойством outerHtml. Взять любой элемент и вызвать GetAttribute(«outerHTML»). Метод выдаст полный код элемента и понятное дело, что полный код элемента ну уж никак не может быть значением его же атрибута. Кроме того в примере из предыдущего вопроса я использовал «атрибут» className. Но класс задается атрибутом class, правда через этот атрибут(при использоании getAttribute) его значение получить нельзя, а можно только через свойство className, так что в данном случае мы запросили именно свойство.
2. HtmlElement.InvokeMember позволяет вызвать метод элемента, даже если он не определен в управляемой оболочке. Это расширяет возможности, но я бы сказал, что не очень сильно. Например можно программно кликнуть элемент, вызвав обработчики клика

   vb.net
   1 element.InvokeMember("click")

   Для методов с параметрами есть перегрузка этого метода.

3. HtmlDocument.InvokeScript — один из наиболее полезных методов. Позволяет вызвать любую функцию, доступную глобально в контексте данного документа. Наверное он не был бы таким полезным, если бы в JavaScript не существовало функции eval. Но можно в качестве первого аргумента этого метода передать eval, а вторым сделать массив с единственным элементом — JavaScript-кодом, который надо выполнить на странице. Кроме того, он при необходимости вернет результат выполнения кода.
4. Используя DOM можно вставить свой скрипт в документ и выполнить его

   vb.net
   1 2 3 4 5 6     Sub AddAlert()         Dim doc = Me.WebBrowser1.Document         Dim script = doc.CreateElement("script")         script.SetAttribute("text", "alert('Hello');")         doc.Body.InsertAdjacentElement(HtmlElementInsertionOrientation.BeforeEnd, script)     End Sub

   Этот запустит alert с текстом Hello. Но туда можно вставлять любые скрипты и в том числе функции из этих скрптов вызывать с помощью InvokeScript

5. WebBrowser.ObjectForScripting — свойство, которому можно передать любой ComVisible объект и обращаться к нему из скриптов, в том числе добавленных способом, описанными в пердыдущем пункте. А так же с помощью InvokeScript через функцию eval.
6. Через свойства HtmlWindow.DomWindow, HtmlDocument.DomDocument и HtmlElement.DomElement можно получить доступ к объектам, которые «прячутся под оболочкой. Используя позднее связывание можно писать код, очень похожий на тот, что пишется на веб-страницах. Здесь будет доступно почти все, что доступно из скрипта веб-страницы. Конечно, некоторые вещи в скриптах реализованы на уровне движка JavaScript, и получить к ним доступ можно только с помощью пунктов, описанных выше и позволяющих выполнять скрипты на странице, зато здесь есть некоторые возможности, которые на странице недоступны из-за политики безопасности веб-станиц. Недостатком этого подхода является все, что относится к недостаткам использования позднего связывания.
7. То же, что и в предыдущем пункте, но уже с помощью библиотеки mshtml. Именно в этой библиотеке описаны все типы, составляющие DOM. Подключая эту библиотеку мы избавляемся от сложностей позднего связывания (и получаем все «прелести» COM-взаимодействия). В общем и целом, если надо писать много кода, взаимодействующего с DOM, то этот способ лучше. А если чуть-чуть — то можно обойтись предыдущим пунктом или вовсе управиться, используя классы, предоставляемые пространстовом System.Windows.Forms.

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

Как программно выделить текст в браузере.

Если это делать в коде JavaScript, то выглядеть это будет так

1
2
3

        var rng = document.body.createTextRange();
        rng.moveToElementText(document.body);
        rng.select();

Воспользуемся этим и создадим на его основе метод-расширение для класса HtmlDocument. Создадим модуль

1
2
3
4

Imports System.Runtime.CompilerServices
Module HTMLWrappersExtensions
 
End Module

И определим в нем методы

1
2
3
4
5
6
7
8
9
10
11
12
13
14

    <Extension>
    Public Function ExecuteScript(document As HtmlDocument, script As String)
        Return document.InvokeScript("eval", New Object() {script})
    End Function
 
    <Extension>
    Public Sub SelectAllText(document As HtmlDocument)
        Dim script = <![CDATA[
        var rng = document.body.createTextRange();
        rng.moveToElementText(document.body);
        rng.select();
        ]]>.Value
        document.ExecuteScript(script)
    End Sub

Первый метод немного упрощает вызов InvokeScript с функцией eval, а второй его вызывает. Сам скрипт мы пишем в XML-литерале CDATA, чтобы можно было писать текст на нескольких строках прямо в коде, и передаем его методу ExecuteScript. Теперь вызвав у документа метод SelectAllText мы выделим весь текст документа.
Теперь напишем аналогичный код для элемента, но уже будем использовать DOM-объекты непосредственно в коде.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

    <Extension()>
    Public Sub SelectElementText(element As HtmlElement)
        Dim doc = element.Document.DomDocument
        Dim rng = doc.body.createTextRange()
        rng.moveToElementText(element.DomElement)
        rng.select()
    End Sub
 
    <Extension>
    Public Sub SelectText(element As HtmlElement, textToFind As String)
        Dim doc = element.Document.DomDocument
        Dim rng = doc.body.createTextRange()
        rng.findText(textToFind)
        rng.select()
    End Sub

Первый метод выделяет весь текст элемента, второй сначала находит в нем указанный текст, а потом выделяет именно его. Несложно заметить, что код очень похож на тот, что был написан на JavaScript, но с поправкой на синтаксис.

Если скопировать код из браузера и вставить его в Word, WordPad или просто в RichTextBox, то при вставке сохраняется форматирование текста(цвета, шрифты и т.д.). Можно ли достичь такого же эффекта программно
Не могу сказать, есть ли для этого какие-то встроенные функции, но такого эффекта можно достичь тем же способом, что и при участии пользователя: выделить код, скопировать в буфер обмена и извлечь оттуда RTF. Реализуем это в виде расширения объекта HtmlDocument и воспользуемся ранее определенным методом для выделения текст документа SelectAllText.

1
2
3
4
5
6

    <Extension>
    Public Function RetrieveRtf(document As HtmlDocument) As String
        document.SelectAllText()
        document.ExecCommand("Copy", False, True)
        Return Clipboard.GetData(DataFormats.Rtf)
    End Function

Аналгичным образом можно выполнить и обратное преобразование. Но на этот раз создадим метод, который будет создавать экземпляр WebBrowser «втемную», не показывая его пользователю.

1
2
3
4
5
6
7
8
9
10
11
12

    Public Sub RtfToHTML(rtf As String, callback As Action(Of String))
        Dim browser As New WebBrowser With {.Width = 500, .Height = 500}
        AddHandler browser.DocumentCompleted,
           Sub(sender, e)
               Clipboard.SetData(DataFormats.Rtf, rtf)
               browser.Document.Body.SetAttribute("contentEditable", "true")
               browser.Document.ExecCommand("Paste", False, True)
               callback(browser.Document.Body.Parent.OuterHtml)
               browser.Dispose()
           End Sub
        browser.DocumentText = <html><head><title></title></head><body></body></html>.ToString
    End Sub

В данном случае, поскольку вся работа выполняется в обработчике события DocumentComleted, мы не можем сделать так, чтобы метод вернул результат, поэтому возвращаем его через метод обратного вызова (callback). Вызывать его мы будем так

1
2
3
4

        RtfToHTML(rtfText,
                  Sub(result)
                      IO.File.WriteAllText(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "qwerty.htm"), result)
                  End Sub)

В данном случае код сохраняется на рабочем столе в файле qwerty.htm.
Не надо ждать от такого преобразования слишком много. Вид веб-документа может сильно отличаться от того, что было первоначально. Например можно попробовать скопировать код из редактора кода Visual Studio, он копируется в буфер обмена в том числе и в формате RTF, но HTML, производимый в этом случае теряет отступы и могут иначе выглядеть буквы, высота межстрочного интервала и т. д. Но так, в принципе все похоже, расцветка кода совпадает. Вот код, который можно запустить после того, как скопирован код из редактора кода студии.

1
2
3
4

        RtfToHTML(Clipboard.GetData(DataFormats.Rtf),
                  Sub(result)
                      IO.File.WriteAllText(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "qwerty.htm"), result)
                  End Sub)

Проблему отступов можно решить, немного отредактировав RTF перед преобразованием

1
2
3
4

        RtfToHTML(Clipboard.GetData(DataFormats.Rtf).Replace(" ", "'A0"),
                  Sub(result)
                      IO.File.WriteAllText(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "qwerty.htm"), result)
                  End Sub)

Но вида «как в студии» все равно это не дает, хотя это уже близко.