Google Search URL Crawler

Capturas de pantalla

• DevCase for .NET Framework (algunos ejemplos de código fuente se proporcionan de forma gratuita solo en este proyecto)
• HtmlAgilityPack
• CircularProgressBar
• WinForm Animation Library

• https://github.com/ElektroStudios/Google-Search-URL-Crawler/blob/master/README.md/

Descarga

• https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.webbrowser.navigating?view=netframework-4.8

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim urls As String() = {"google.co.jp", "google.co.uk", "google.es", "google.com"}
        For Each url As String In urls
            Me.WebBrowser1.Navigate(url)
        Next
    End Sub
 
    Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        Console.WriteLine($"Starting navigation: {e.Url}")
        Me.ValidateUri(e.Url)
    End Sub
 
    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Console.WriteLine($"Completed navigation: {e.Url}")
    End Sub
 
    Private Sub ValidateUri(uri As Uri)
        If uri.AbsoluteUri.Contains("PARTE DE MI ENLACE WEB") Then
            ' ...
        End If
    End Sub
 
End Class

• https://www.pinvoke.net/default.aspx/user32.sendmessage
• https://www.pinvoke.net/default.aspx/user32.postmessage

• https://www.tangiblesoftwaresolutions.com/download.html

• http://converter.telerik.com/

• https://foro.elhacker.net/profiles/extraterreste-u596976.html;sa,account

• https://foro.elhacker.net/net/consulta_coordenadas_de_ventana_en_segundo_plano-t493667.0.html;msg2188093#msg2188093

• https://foro.elhacker.net/buscador-t491309.0.html

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
...

Imports System.IO.Ports
Imports System.Timers
 
Public NotInheritable Class SensorClass : Implements IDisposable
 
#Region "Properties"
 
    Public ReadOnly Property SerialPort As SerialPort
        Get
            Return Me.serialPort_
        End Get
    End Property
    Private serialPort_ As SerialPort
 
    Public ReadOnly Property Output As String
        Get
            Return Me.output_
        End Get
    End Property
    Private output_ As String
 
#End Region
 
#Region "Private Fields"
 
    Private WithEvents TimerSensores As Timer
 
#End Region
 
#Region "Constructors"
 
    <DebuggerStepThrough>
    Public Sub New()
        Me.CommPortSetup()
 
        Me.TimerSensores = New Timer() With {
            .AutoReset = True,
            .Interval = 100,
            .Enabled = True
        }
    End Sub
 
#End Region
 
#Region "Private Methods"
 
    <DebuggerStepThrough>
    Private Sub CommPortSetup()
        Me.serialPort_ = New SerialPort With {
            .PortName = "COM7",
            .BaudRate = 9600,
            .DataBits = 8,
            .StopBits = StopBits.One
        }
 
        Me.serialPort_.Open()
    End Sub
 
#End Region
 
#Region "Event-Handlers"
 
    <DebuggerStepperBoundary>
    Private Sub TimerSensores_Elapsed(sender As Object, e As ElapsedEventArgs) Handles TimerSensores.Elapsed
        Me.SerialPort.Write("#03A" & ControlChars.Cr)
        Me.SerialPort.DiscardInBuffer()
 
        Me.output_ = Me.SerialPort.ReadTo(ControlChars.Cr)
 
        DirectCast(sender, Timer).Interval += 1000
    End Sub
 
#End Region
 
#Region "IDisposable Implementation"
 
    Private disposedValue As Boolean ' Flag to detect redundant calls
 
    <DebuggerStepThrough>
    Public Sub Dispose() Implements IDisposable.Dispose
        Me.Dispose(disposing:=True)
    End Sub
 
    <DebuggerStepThrough>
    Private Sub Dispose(disposing As Boolean)
        If Not (Me.disposedValue) AndAlso (disposing) Then
            Me.TimerSensores?.Dispose()
            Me.serialPort_?.Dispose()
        End If
 
        Me.disposedValue = True
    End Sub
 
#End Region
 
End Class

Public Class Form1
 
    Private sensorClass As SensorClass
    Private canal0_nd03, canal1_nd03, canal2_nd03, canal3_nd03, canal4_nd03, canal5_nd03, canal6_nd03, canal7_nd03 As String
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.sensorClass = New SensorClass()
 
        With Me.Timer1
            .Interval = 100
            .Enabled = True
            .Start()
        End With
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        Dim output As String = SensorClass.Output
        Me.canal0_nd03 = output.Substring(3, 4)
        Me.canal1_nd03 = output.Substring(10, 4)
        Me.canal2_nd03 = output.Substring(17, 4)
        Me.canal3_nd03 = output.Substring(24, 4)
        Me.canal4_nd03 = output.Substring(31, 4)
        Me.canal5_nd03 = output.Substring(38, 4)
        Me.canal6_nd03 = output.Substring(44, 4)
        Me.canal7_nd03 = output.Substring(52, 4)
 
        'MOSTRAR DATOS
        Me.Label2.Text = $"{Me.canal0_nd03} ºC"
        Me.Label6.Text = $"{Me.canal1_nd03} ºC"
        Me.Label10.Text = $"{Me.canal2_nd03} ºC"
        Me.Label7.Text = $"{Me.canal3_nd03} ºC"
        Me.Label14.Text = $"{Me.canal4_nd03} ºC"
        Me.Label11.Text = $"{Me.canal5_nd03} ºC"
        Me.Label18.Text = $"{Me.canal6_nd03} ºC"
        Me.Label15.Text = $"{Me.canal7_nd03} ºC"
 
        '' Si tienes problemas para actualizar el texto de los Labels, 
        '' desactiva alguna de las siguientes lineas comentadas para invocar el método de dibujado.
        '
        ' Me.Invalidate(invalidateChildren:=True)
        ' Me.Refresh()
 
    End Sub
 
End Class

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim columnIndex As Integer = 0
 
        ' Unión entre las colecciones de elementos de ListView1, ListView2 y ListView3.
        Dim items As ListViewItem() =
            ({Me.ListView1.Items.Cast(Of ListViewItem),
              Me.ListView2.Items.Cast(Of ListViewItem),
              Me.ListView3.Items.Cast(Of ListViewItem)
             }.SelectMany(Function(sequence) sequence)
            ).ToArray()
 
        ' Agrupación de los elementos mediante pares de clave-valor (clave=texto del elemento, valor=cantidad de repeticiones).
        Dim groups As KeyValuePair(Of String, Integer)() =
            (From item As ListViewItem In items
             Let key As String = item.SubItems(columnIndex).Text
             Order By key Ascending
             Group By key Into keys = Group
             Select New KeyValuePair(Of String, Integer)(key, keys.Count())
            ).ToArray()
 
        ' Creación de nuevos elementos para añadir en el ListView4.
        Dim newItems As ListViewItem() =
            (From group As KeyValuePair(Of String, Integer) In groups
             Select New ListViewItem({group.Key, CStr(group.Value)})
            ).ToArray()
 
        ' Adición de los nuevos elementos al ListView4.
        With Me.ListView4
            .BeginUpdate()
 
            .Items.Clear()
            .Items.AddRange(newItems)
 
            .EndUpdate()
        End With
 
    End Sub
 
End Class