'Funktion um Quelltext einer Webseite auszulesen (UTF-8)
    Function ReadHTML(ByVal url As String) As String
 
Proxyconnect:
        proxynr = randomnr.Next(0, proxy_einzel.Length - 1)
 
        Try
            If OnlineCheck(proxy_einzel(proxynr)) Then
 
                Dim wc As New WebClient
                wc.Proxy = New WebProxy(proxy_einzel(proxynr))
                Dim res As String = UTF8.GetString(wc.DownloadData(url))
 
                Return res
 
            Else
                GoTo Proxyconnect
            End If
 
        Catch ex As WebException
            'Fehlerbehandlung
        End Try

  Public Function auslesen_abfragen() As Boolean
 
        Dim links As Integer
        Dim test() As String
        Dim test2() As String
 
        Dim urllist() As String = File.ReadAllLines(pfad_domains)
        Dim url_string As String
 
        For i = 0 To urllist.Length - 1
 
            Dim url As String = "Hier die URL"
            url_string = ReadHTML(url)
 
 
            If InStr(url_string, "Invalid Request") Or InStr(url_string, "No" & _
              "Inlinks") Or InStr(url_string, "No Results") Then
 
                links = 0
 
            Else
 
                test = Split(url_string, "<span class=" & Chr(34) & "btn" & Chr( _
                  34) & ">Inlinks (")
                test2 = Split(test(1), ")")
                links = test2(0)
 
            End If
 
            File.AppendAllText(pfad, urllist(i) & ";" & links & _
              Environment.NewLine)
 
        Next
 
    End Function