Foro de elhacker.net

• https://msdn.microsoft.com/en-us/library/system.windows.forms.control.dock(v=vs.110).aspx (https://msdn.microsoft.com/en-us/library/system.windows.forms.control.dock(v=vs.110).aspx)

public class WebBrowserExtended : WebBrowser {
	public WebBrowserExtended() {}
}

<DisplayName("WebBrowserExtended")>
<Description("A extended WebBrowser control.")>
<DesignTimeVisible(True)>
<DesignerCategory("UserControl")>
<ToolboxBitmap(GetType(WebBrowser), "WebBrowser.bmp")>
<ToolboxItemFilter("System.Windows.Forms", ToolboxItemFilterType.Require)>
<ClassInterface(ClassInterfaceType.AutoDispatch)>
<ComVisible(True)>
<DefaultProperty("Url")>
<DefaultEvent("DocumentCompleted")>
<Docking(DockingBehavior.Ask)>
<PermissionSet(SecurityAction.Demand, Name:="FullTrust")>
Public Class WebBrowserExtended : Inherits WebBrowser
 
#Region " Private Fields "
 
    ' Keeps an event-suitable reference of the current WebBrowser.Document instance.
    Private WithEvents doc As HtmlDocument
 
    ' Keeps an event-suitable reference of the current WebBrowser.Document.Body instance.
    Private WithEvents body As HtmlElement
 
#End Region
 
#Region " Events "
 
    Public Event DocumentMouseDown As EventHandler(Of HtmlElementEventArgs)
    Public Event DocumentMouseUp As EventHandler(Of HtmlElementEventArgs)
 
    Public Event BodyMouseDown As EventHandler(Of HtmlElementEventArgs)
    Public Event BodyMouseUp As EventHandler(Of HtmlElementEventArgs)
 
#End Region
 
#Region " Constructors "
 
    <DebuggerNonUserCode>
    Public Sub New()
        Me.ScriptErrorsSuppressed = True
    End Sub
 
#End Region
 
#Region " Event Invocators "
 
    Protected Overridable Sub OnDocumentMouseDown(ByVal e As HtmlElementEventArgs)
        If (Me.DocumentMouseDownEvent IsNot Nothing) Then
            RaiseEvent DocumentMouseDown(Me, e)
        End If
    End Sub
 
    Protected Overridable Sub OnDocumentMouseUp(ByVal e As HtmlElementEventArgs)
        If (Me.DocumentMouseUpEvent IsNot Nothing) Then
            RaiseEvent DocumentMouseUp(Me, e)
        End If
    End Sub
 
    Protected Overridable Sub OnBodyMouseDown(ByVal e As HtmlElementEventArgs)
        If (Me.BodyMouseDownEvent IsNot Nothing) Then
            RaiseEvent BodyMouseDown(Me, e)
        End If
    End Sub
 
    Protected Overridable Sub OnBodyMouseUp(ByVal e As HtmlElementEventArgs)
        If (Me.BodyMouseUpEvent IsNot Nothing) Then
            RaiseEvent BodyMouseUp(Me, e)
        End If
    End Sub
 
#End Region
 
#Region " Event Handlers "
 
    Private Sub WebBrowser_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Handles Me.Navigated
        Me.doc = Me.Document
        Me.body = Me.Document.Body
    End Sub
 
    Private Sub WebBrowser_Document_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles doc.MouseDown
        Me.OnDocumentMouseDown(e)
    End Sub
 
    Private Sub WebBrowser_Document_MouseUp(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles doc.MouseUp
        Me.OnDocumentMouseUp(e)
    End Sub
 
    Private Sub WebBrowser_Body_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles body.MouseDown
        Me.OnBodyMouseDown(e)
    End Sub
 
    Private Sub WebBrowser_Body_MouseUp(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles body.MouseUp
        Me.OnBodyMouseUp(e)
    End Sub
 
#End Region
 
End Class

Public Class Form1
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown
        ' Cargo una página web aleatoria...
        Me.WebBrowserExtended1.Navigate("http://foro.elhacker.net/")
    End Sub
 
    Private Sub WebBrowserExtended1_DocumentMouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles WebBrowserExtended1.DocumentMouseDown
 
        ' Creo una referencia corta de nuestro WebBrowser.
        Dim wb As WebBrowserExtended = DirectCast(sender, WebBrowserExtended)
 
        Select Case e.MouseButtonsPressed
 
            ' El botón central del ratón se ha pulsado.
            Case MouseButtons.Middle
 
                ' Obtengo el elemento Html que esté situadio en las coordenadas actuales del puntero del ratón.
                Dim element As HtmlElement = wb.Document.GetElementFromPoint(e.ClientMousePosition)
                ' Comprobación de seguridad.
                If (element IsNot Nothing) Then
                    ' Obtengo el atributo href que contiene la url destino.
                    ' Nótese que esto no funcionará con todo tipo de elementos, 
                    ' eso requiere una implementación/análisis/parsing más sofisticado sobre el elemento obtenido, y no es mi tarea hacer eso, 
                    ' pero esta metodología cubre la gran mayoría, que es lo que importa para poder extender este ejemplo funcional.
                    Dim url As String = element.GetAttribute("href")
                    ' Comprobación de seguridad.
                    If Not String.IsNullOrWhiteSpace(url) Then
                        Dim uri As Uri = Nothing
                        ' Antes de hacer nada más, compruebo que la url es realmente una url válida.
                        If (Uri.TryCreate(url, UriKind.RelativeOrAbsolute, uri)) Then
                            ' Desactivo temporálmente la navegación de este WebBrowser;
                            ' esto es como decirle: "no hagas nada, que yo me encargo de controlar el evento del ratón".
                            wb.AllowNavigation = False
                            ' Finálmente, aquí podemos hacer lo que queramos con la url obtenida. Por ejemplo:
                            Otro_WebBrowser.Navigate(uri)
                        Else
                            ' La supuesta url no tiene una sintaxis válida. 
                            ' Se puede ignorar, o controlar y considerarlo como error.
                        End If ' uri
                    End If ' url
                End If ' element
 
            Case Else
                ' Si se ha pulsado un botón distinto al botón central del ratón, 
                ' entonces habilito la navegación del WebBrowser para que controle el evento y navegue a la nueva url.
                wb.AllowNavigation = True
 
        End Select
 
    End Sub
 
End Class

using System;
using System.ComponentModel;
using System.Diagnostics;
using System.Drawing;
using System.Runtime.InteropServices;
using System.Security.Permissions;
using System.Windows.Forms;
 
namespace WindowsFormsApplication1 {
 
    [DisplayName("WebBrowserExtended")]
    [Description("A extended WebBrowser control.")]
    [DesignTimeVisible(true)]
    [DesignerCategory("UserControl")]
    [ToolboxBitmap(typeof(WebBrowser), "WebBrowser.bmp")]
    [ToolboxItemFilter("System.Windows.Forms", ToolboxItemFilterType.Require)]
    [ClassInterface(ClassInterfaceType.AutoDispatch)]
    [ComVisible(true)]
    [DefaultProperty("Url")]
    [DefaultEvent("DocumentCompleted")]
    [Docking(DockingBehavior.Ask)]
    [PermissionSet(SecurityAction.Demand, Name = "FullTrust")]
    public class WebBrowserExtended : WebBrowser {
 
        #region " Properties "
 
        // Keeps an event-suitable reference of the current WebBrowser.Document instance.
        private HtmlDocument Doc {
            get { return this.docB; }
            set {
                if (this.docB != null) {
                    this.docB.MouseDown -= this.WebBrowser_Document_MouseDown;
                    this.docB.MouseUp -= this.WebBrowser_Document_MouseUp;
                }
                this.docB = value;
                if (this.docB != null) {
                    this.docB.MouseDown += this.WebBrowser_Document_MouseDown;
                    this.docB.MouseUp += this.WebBrowser_Document_MouseUp;
                }
            }
        }
        private HtmlDocument docB; // Backing field.
 
        // Keeps an event-suitable reference of the current WebBrowser.Document.Body instance.
        private HtmlElement Body {
            get { return this.bodyB; }
            set {
                if (this.bodyB != null) {
                    this.bodyB.MouseDown -= this.WebBrowser_Body_MouseDown;
                    this.bodyB.MouseUp -= this.WebBrowser_Body_MouseUp;
                }
                this.bodyB = value;
                if (this.bodyB != null) {
                    this.bodyB.MouseDown += this.WebBrowser_Body_MouseDown;
                    this.bodyB.MouseUp += this.WebBrowser_Body_MouseUp;
                }
            }
        }
        private HtmlElement bodyB; // Backing field.
 
        #endregion
 
        #region " Events "
 
        public event EventHandler<HtmlElementEventArgs> DocumentMouseDown;
        public event EventHandler<HtmlElementEventArgs> DocumentMouseUp;
 
        public event EventHandler<HtmlElementEventArgs> BodyMouseDown;
        public event EventHandler<HtmlElementEventArgs> BodyMouseUp;
 
        #endregion
 
        #region " Constructors "
 
        [DebuggerNonUserCode()]
        public WebBrowserExtended() {
            this.Navigated += this.WebBrowser_Navigated;
            this.ScriptErrorsSuppressed = true;
        }
 
        #endregion
 
        #region " Event Invocators "
 
        protected virtual void OnDocumentMouseDown(HtmlElementEventArgs e) {
            this.DocumentMouseDown?.Invoke(this, e);
        }
 
        protected virtual void OnDocumentMouseUp(HtmlElementEventArgs e) {
            this.DocumentMouseUp?.Invoke(this, e);
        }
 
        protected virtual void OnBodyMouseDown(HtmlElementEventArgs e) {
            this.BodyMouseDown?.Invoke(this, e);
        }
 
        protected virtual void OnBodyMouseUp(HtmlElementEventArgs e) {
            this.BodyMouseUp?.Invoke(this, e);
        }
 
        #endregion
 
        #region " Event Handlers "
 
        private void WebBrowser_Navigated(object sender, WebBrowserNavigatedEventArgs e) {
            this.Doc = this.Document;
            this.Body = this.Document.Body;
        }
 
        private void WebBrowser_Document_MouseDown(object sender, HtmlElementEventArgs e) {
            this.OnDocumentMouseDown(e);
        }
 
        private void WebBrowser_Document_MouseUp(object sender, HtmlElementEventArgs e) {
            this.OnDocumentMouseUp(e);
        }
 
        private void WebBrowser_Body_MouseDown(object sender, HtmlElementEventArgs e) {
            this.OnBodyMouseDown(e);
        }
 
        private void WebBrowser_Body_MouseUp(object sender, HtmlElementEventArgs e) {
            this.OnBodyMouseUp(e);
        }
 
        #endregion
 
    }
 
}

using System;
using System.Windows.Forms;
 
namespace WindowsFormsApplication1 {
 
    public partial class Form1 : Form {
 
        public Form1() {
            this.InitializeComponent();
            this.Shown += this.Form1_Shown;
            this.webBrowserExtended1.DocumentMouseDown += this.WebBrowserExtended1_DocumentMouseDown;
        }
 
        private void Form1_Shown(object sender, EventArgs e) {
            // Cargo una página web aleatoria...
            this.webBrowserExtended1.Navigate("http://foro.elhacker.net/");
        }
 
        private void WebBrowserExtended1_DocumentMouseDown(object sender, HtmlElementEventArgs e) {
 
            // Creo una referencia corta de nuestro WebBrowser.
            WebBrowserExtended wb = (WebBrowserExtended)sender;
 
            switch (e.MouseButtonsPressed) {
 
                // El botón central del ratón se ha pulsado.
                case MouseButtons.Middle:
 
                    // Obtengo el elemento Html que esté situadio en las coordenadas actuales del puntero del ratón.
                    HtmlElement element = wb.Document.GetElementFromPoint(e.ClientMousePosition);
                    // Comprobación de seguridad.
                    if (element != null) {
                        // Obtengo el atributo href que contiene la url destino.
                        // Nótese que esto no funcionará con todo tipo de elementos, 
                        // eso requiere una implementación/análisis/parsing más sofisticado sobre el elemento obtenido, y no es mi tarea hacer eso, 
                        // pero esta metodología cubre la gran mayoría, que es lo que importa para poder extender este ejemplo funcional.
                        string url = element.GetAttribute("href");
                        // Comprobación de seguridad.
                        if (!string.IsNullOrWhiteSpace(url)) {
                            Uri uri = null;
                            // Antes de hacer nada más, compruebo que la url es realmente una url válida.
                            if (Uri.TryCreate(url, UriKind.RelativeOrAbsolute, out uri)) {
                                // Desactivo temporálmente la navegación de este WebBrowser;
                                // esto es como decirle: "no hagas nada, que yo me encargo de controlar el evento del ratón".
                                wb.AllowNavigation = false;
                                // Finálmente, aquí podemos hacer lo que queramos con la url obtenida. Por ejemplo:
                                Otro_WebBrowser.Navigate(uri);
                            } else {
                                // La supuesta url no tiene una sintaxis válida. 
                                // Se puede ignorar, o controlar y considerarlo como error.
                            } // uri
                        } // url
                    }  // element
                    break;
 
                default:
                    // Si se ha pulsado un botón distinto al botón central del ratón, 
                    // entonces habilito la navegación del WebBrowser para que controle el evento y navegue a la nueva url.
                    wb.AllowNavigation = true;
                    break;
            }
 
        }
 
    }
}

• Manuales de .NET (http://foro.elhacker.net/net/manuales_de_net-t122607.0.html;msg1960666#msg1960666)

• Attribute Class (https://msdn.microsoft.com/en-us/library/system.attribute(v=vs.110).aspx)
• Attributes Tutorial (https://msdn.microsoft.com/en-us/library/aa288454(v=vs.71).aspx)

public class MiControl : Control {
 
	[DisplayName("Nombre a mostrar")]
	[Description("Descripción a mostrar.")]
	public string MiPropiedad { get; set; }
 
}

• HtmlDocument Events (https://msdn.microsoft.com/en-us/library/system.windows.forms.htmldocument_events(v=vs.110).aspx)
• HtmlElement Events (https://msdn.microsoft.com/en-us/library/system.windows.forms.htmlelement_events(v=vs.110).aspx)

element.GetAttribute("href")

• http://stackoverflow.com/a/43762965/1248295

• http://stackoverflow.com/a/30423534/1248295

• http://foro.elhacker.net/net/boton_favorito_de_mozilla_firefox_y_otras_cosas-t468665.0.html;msg2121077#msg2121077

public class WebBrowserExtended : WebBrowser {
...

• https://msdn.microsoft.com/en-us/library/588zwc2k.aspx

namespace WindowsFormsApplication1 {
 
    public partial class Form1 : Form {
 
        public Form1() {
            this.InitializeComponent();
            this.Shown += this.Form1_Shown;
            this.webBrowserExtended1.DocumentMouseDown += this.WebBrowserExtended1_DocumentMouseDown;
        }
 
        private void Form1_Shown(object sender, EventArgs e) {
            // Cargo una página web aleatoria...
            this.webBrowserExtended1.Navigate("http://foro.elhacker.net/");
        }

this.webBrowserExtended1.Navigate("http://foro.elhacker.net/");

• String.IsNullOrWhiteSpace Method | MSDN (https://msdn.microsoft.com/en-us/library/system.string.isnullorwhitespace(v=vs.110).aspx?cs-save-lang=1&cs-lang=csharp)

public static bool IsNullOrWhiteSpace(string value)
        {
            if (value != null)
            {
                for (int i = 0; i < value.Length; i++)
                {
                    if (!char.IsWhiteSpace(value[i]))
                    {
                        return false;
                    }
                }
            }
            return true;
        }
 

private void WebBrowserExtended1_DocumentMouseDown(object sender, HtmlElementEventArgs e)
        {
 
            // Creo una referencia corta de nuestro WebBrowser.
            WebBrowserExtended wb = (WebBrowserExtended)sender;
 
            switch (e.MouseButtonsPressed)
            {
 
                // El botón central del ratón se ha pulsado.
                case MouseButtons.Middle:
 
                    // Obtengo el elemento Html que esté situadio en las coordenadas actuales del puntero del ratón.
                    HtmlElement element = wb.Document.GetElementFromPoint(e.ClientMousePosition);
                    // Comprobación de seguridad.
                    if (element != null)
                    {
                        // Obtengo el atributo href que contiene la url destino.
                        // Nótese que esto no funcionará con todo tipo de elementos, 
                        // eso requiere una implementación/análisis/parsing más sofisticado sobre el elemento obtenido, y no es mi tarea hacer eso, 
                        // pero esta metodología cubre la gran mayoría, que es lo que importa para poder extender este ejemplo funcional.
                        string url = element.GetAttribute("href");
                        // Comprobación de seguridad.
                        if (!WBrowser.IsNullOrWhiteSpace(url))
                        {
                            Uri uri = null;
                            // Antes de hacer nada más, compruebo que la url es realmente una url válida.
                            if (Uri.TryCreate(url, UriKind.RelativeOrAbsolute, out uri))
                            {
                                // Desactivo temporálmente la navegación de este WebBrowser;
                                // esto es como decirle: "no hagas nada, que yo me encargo de controlar el evento del ratón".
                                wb.AllowNavigation = false;
                                // Finálmente, aquí podemos hacer lo que queramos con la url obtenida. Por ejemplo:
                                addNewTab();
                                getCurrentBrowser().Navigate(uri);
                            }
                            else
                            {
                                // La supuesta url no tiene una sintaxis válida. 
                                // Se puede ignorar, o controlar y considerarlo como error.
                            } // uri
                        } // url
                    }  // element
                    break;
 
                default:
                    // Si se ha pulsado un botón distinto al botón central del ratón, 
                    // entonces habilito la navegación del WebBrowser para que controle el evento y navegue a la nueva url.
                    wb.AllowNavigation = true;
                    break;
            }
 
        }
 

addNewTab();
                                getCurrentBrowser().Navigate(uri);

this.WebBrowserExtended1.DocumentMouseDown += this.WebBrowserExtended1_DocumentMouseDown;

WebBrowserExtended miObjeto = new WebBrowserExtended();

this.miObjeto.DocumentMouseDown += this.WebBrowserExtended1_DocumentMouseDown;