Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
    Private Sub cmd_a_Click(sender As System.Object, e As System.EventArgs) Handles cmd_a.Click
        Dim question As String = txt_q.Text.Replace(" ", "+")
        Dim gresult As String = googeln(question)
        'den suchergebnisbereich ausschneiden
        Dim sdel As String = "<div id=" + Chr(34) + "res" + Chr(34)
        Dim edel As String = "<div id=" + Chr(34) + "foot" + Chr(34)
        Dim sindex As Integer = gresult.IndexOf(sdel)
        Dim dlength As Integer = gresult.IndexOf(edel) - sindex
        Dim erg As String = gresult.Substring(sindex, dlength)
        'zusammenfassungen trennen
        Dim st As String = "<span class=" + Chr(34) + "st" + Chr(34) + ">"
        Dim br As String = "</span><br>"
        Dim ergspl As String() = erg.Split({st, br}, StringSplitOptions.None)
        Dim zusammen As String
        For i As Integer = 1 To ergspl.Length - 1 Step 2
            zusammen += ergspl(i)
        Next
        zusammen = zusammen.ToLower
        'Wörter die in Frage vorkommen entfernen
        Dim qwords As String() = txt_q.Text.ToLower.Split(" ")
        For i = 0 To qwords.Length - 1
            zusammen = zusammen.Replace(qwords(i), "")
        Next
        Dim weach As String() = zusammen.Split(New Char() {" ", ",", ".", ";", ":", "<b>", "</b>", "<br>", "...", """}, StringSplitOptions.RemoveEmptyEntries)
        lbl_a.Text = countWords(weach)
    End Sub
    Private Function googeln(ByVal q As String) As String
        Dim surl As String = "https://www.google.de/search?q=" + q
        Try
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(surl), HttpWebRequest)
            Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
            Dim myString As String = reader.ReadToEnd()
            If Not response Is Nothing Then response.Close()
            Return myString
        Catch
            Return "Error"
        End Try
    End Function
    Private Function countWords(ByVal x As String()) As String
        Dim max As Integer
        Dim a As Integer = 0
        For i = 0 To x.Length - 1
            If x(i).Length > 3 Then
                Dim gleich = From word In x
                         Where word = x(i)
                         Select word
                Dim count As Integer = gleich.Count()
                If count > a Then
                    a = count
                    max = i
                End If
            End If
        Next
        Return x(max)
    End Function
End Class