Absturz ohne Fehler (Im Debugmodus) Verfasst am: 19.11.2009, 17:16
Visual Basic:
Code:
<br>Imports System.Threading<br>Imports WindowsApplication1.modFunktionen<br><br>Public Class frmMain<br><br> Private strTempLinks As String<br> Private strTempMails As String<br><br> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br><br> End Sub<br><br> Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click<br> Dim strSource As String = GetSourcecode(txtUrl.Text)<br><br> Dim strLinks As ArrayList = GetLinks(strSource)<br> For i As Integer = 0 To strLinks.Count - 1<br> txtLinks.Text &= strLinks(i) & Environment.NewLine<br> Next<br><br> Dim strMails As ArrayList = GetMails(strSource)<br> For i As Integer = 0 To strMails.Count - 1<br> txtMails.Text &= strMails(i) & Environment.NewLine<br> Next<br><br> Dim thrRekusiv(strLinks.Count - 1) As Thread<br> For i As Integer = 0 To strLinks.Count - 1<br> thrRekusiv(i) = New Thread(AddressOf Spider)<br> thrRekusiv(i).Start(strLinks(i).ToString)<br> Next<br><br> End Sub<br><br> Private Sub Spider(ByVal sLink As String)<br> Dim strSource As String = GetSourcecode(sLink)<br><br> Dim strLinks As ArrayList = GetLinks(strSource)<br> For i As Integer = 0 To strLinks.Count - 1<br> strTempLinks &= strLinks(i) & Environment.NewLine<br> Next<br><br> Dim strMails As ArrayList = GetMails(strSource)<br> For i As Integer = 0 To strMails.Count - 1<br> strTempMails &= strMails(i) & Environment.NewLine<br> Next<br><br> 'Dim thrRekusiv(strLinks.Count - 1) As Thread<br> 'For i As Integer = 0 To strLinks.Count - 1<br> ' thrRekusiv(i) = New Thread(AddressOf Spider))<br> ' thrRekusiv(i).Start(strLinks(i).ToString)<br> 'Next<br> End Sub<br><br> Private Sub timAktuell_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timAktuell.Tick<br> If strTempLinks <> "" Then<br> txtLinks.Text &= strTempLinks<br> strTempLinks = ""<br><br> 'txtLinks.SelectionStart = txtLinks.Text.Length<br> End If<br><br> If strTempMails <> "" Then<br> txtMails.Text &= strTempMails<br> strTempMails = ""<br><br> 'txtMails.SelectionStart = txtMails.Text.Length<br> End If<br> End Sub<br>End Class<br>
Hat jemand ne Idee wo es hakt?
mrprogram Newbie
Anmeldedatum: 05.01.2010 Beiträge: 8
... Verfasst am: 05.01.2010, 19:46
kann einiges sein, eventuell sind auch die Kerndateien von .net Framework beschädigt. Aber zeigt er das bei einem bestimmten Befehl oder einfach immer wieder an ?
Registrieren
Login
