Imports System.Threading
Imports WindowsApplication1.modFunktionen
 
Public Class frmMain
 
    Private strTempLinks As String
    Private strTempMails As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStart.Click
        Dim strSource As String = GetSourcecode(txtUrl.Text)
 
        Dim strLinks As ArrayList = GetLinks(strSource)
        For i As Integer = 0 To strLinks.Count - 1
            txtLinks.Text &= strLinks(i) & Environment.NewLine
        Next
 
        Dim strMails As ArrayList = GetMails(strSource)
        For i As Integer = 0 To strMails.Count - 1
            txtMails.Text &= strMails(i) & Environment.NewLine
        Next
 
        Dim thrRekusiv(strLinks.Count - 1) As Thread
        For i As Integer = 0 To strLinks.Count - 1
            thrRekusiv(i) = New Thread(AddressOf Spider)
            thrRekusiv(i).Start(strLinks(i).ToString)
        Next
 
    End Sub
 
    Private Sub Spider(ByVal sLink As String)
        Dim strSource As String = GetSourcecode(sLink)
 
        Dim strLinks As ArrayList = GetLinks(strSource)
        For i As Integer = 0 To strLinks.Count - 1
            strTempLinks &= strLinks(i) & Environment.NewLine
        Next
 
        Dim strMails As ArrayList = GetMails(strSource)
        For i As Integer = 0 To strMails.Count - 1
            strTempMails &= strMails(i) & Environment.NewLine
        Next
 
        'Dim thrRekusiv(strLinks.Count - 1) As Thread
        'For i As Integer = 0 To strLinks.Count - 1
        '    thrRekusiv(i) = New Thread(AddressOf Spider))
        '    thrRekusiv(i).Start(strLinks(i).ToString)
        'Next
    End Sub
 
    Private Sub timAktuell_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles timAktuell.Tick
        If strTempLinks <> "" Then
            txtLinks.Text &= strTempLinks
            strTempLinks = ""
 
            'txtLinks.SelectionStart = txtLinks.Text.Length
        End If
 
        If strTempMails <> "" Then
            txtMails.Text &= strTempMails
            strTempMails = ""
 
            'txtMails.SelectionStart = txtMails.Text.Length
        End If
    End Sub
End Class

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?