Wieso hängt sich das Programm auf?

  • VB.NET
  • .NET (FX) 4.0

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von mox.

    Wieso hängt sich das Programm auf?

    Hallo, ich schreibe ein kleines Tool womit man Stellenangebote von der JobBörse automatisch ermitteln kann. An sich funktioniert das auch schon recht gut, allerdings hängt sich das Programm einfach auf ab der dritten Seite, aber wieso? Ich bekomme keine Fehlermeldung oder sonst was, was ich aber sagen kann ist das es mit Sicherheit an der Funktion loadJobInfo liegt. Denn wenn ich dies beim umblättern weg lasse funktioniert das alles einwandfrei. Hat jemand eine Idee woran es liegen kann?

    // Edit(Sry code vergessen ^^)

    VB.NET-Quellcode

    1. ​Imports System.Text.RegularExpressions
    2. Imports System.Net
    3. Imports System.Web
    4. Imports System.IO
    6. Public Class Form1
    7. Private email As String
    8. Private name_ As String
    9. Private lastname As String
    10. Private nameTitle As String
    12. Private jobTitle As String
    13. Private jobDesc As String
    15. Private host As String
    16. Private responseHost As String
    17. 'Private WithEvents Webbrowser_ As New WebBrowser
    18. Private Function loadJobInfo(ByVal url As String)
    19. email = Nothing
    20. name_ = Nothing
    21. lastname = Nothing
    22. nameTitle = Nothing
    23. jobTitle = Nothing
    24. jobDesc = Nothing
    26. Dim Request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
    27. Dim client As New Net.WebClient
    28. Dim str As String = client.DownloadString(url)
    29. Dim myWebRequest As WebRequest = WebRequest.Create(url)
    31. ' Send the 'WebRequest' and wait for response.
    32. Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
    34. host = myWebRequest.RequestUri.Host
    35. responseHost = myWebResponse.ResponseUri.Host
    37. If host = responseHost Then
    38. Dim mail_reg As New Regex("<a id=""vermittlung.stellenangeboteverwalten.detailszumstellenangebot.email"" href=""mailto:.*"" class=""externerLink"" target=""_blank"" title=""Zur Erstellung einer E-Mail. Legt eine neue E-Mail in Ihrem Mailprogramm an, wenn Sie ein Mailprogramm installiert haben""><span>.*</span>")
    39. Dim mail_mat As Match = mail_reg.Match(str)
    40. If mail_mat.Success = True Then
    41. email = mail_mat.Value.Split("<")(2).Split(">")(1)
    42. End If
    44. If str.Contains("Herr") Then
    45. nameTitle = "Herr"
    46. Else
    47. If str.Contains("Frau") Then
    48. nameTitle = "Frau"
    49. Else
    50. nameTitle = "Damen und Herren"
    51. End If
    53. End If
    54. title_lb.Text = "Titel: " & nameTitle
    55. Dim name_reg As New Regex("<span id=""vorname_-2147483648"">.*</span>")
    56. Dim name_mat As Match = name_reg.Match(str)
    57. If name_mat.Success = True Then
    58. name_ = name_mat.Value.Split("<")(1).Split(">")(1)
    60. End If
    61. Dim desc_reg As New Regex("<span id=""stellenbeschreibung"">.*</span>")
    62. Dim desc_mat As Match = desc_reg.Match(str)
    63. If desc_mat.Success = True Then
    64. Dim rep As String = desc_mat.Value.Replace("<span id=""stellenbeschreibung"">", "").Replace("</span>", "").Replace("<br />", "")
    65. rep = rep.Replace("&auml;", "ä")
    66. rep = rep.Replace("&ouml;", "ö")
    67. rep = rep.Replace("&uuml;", "ü")
    68. rep = rep.Replace("&Auml;", "Ä")
    69. rep = rep.Replace("&Ouml;", "Ö")
    70. rep = rep.Replace("&Uuml;", "Ü")
    71. rep = rep.Replace("&szlig;", "ß")
    72. jobDesc = rep
    73. description_txt.Text = jobDesc
    74. End If
    76. Dim lastname_reg As New Regex("<span id=""nachname_-2147483648"">.*</span>")
    77. Dim lastname_mat As Match = lastname_reg.Match(str)
    78. If lastname_mat.Success = True Then
    79. lastname = lastname_mat.Value.Split("<")(1).Split(">")(1)
    80. End If
    82. Dim jobtitle_reg As New Regex("<b>.*</b>")
    83. Dim jobtitle_mat As Match = jobtitle_reg.Match(str)
    84. If jobtitle_mat.Success = True Then
    85. jobTitle = jobtitle_mat.Value.Split("<")(1).Split(">")(1)
    86. jobTitle = jobTitle.Replace("&auml;", "ä")
    87. jobTitle = jobTitle.Replace("&ouml;", "ö")
    88. jobTitle = jobTitle.Replace("&uuml;", "ü")
    89. jobTitle = jobTitle.Replace("&Auml;", "Ä")
    90. jobTitle = jobTitle.Replace("&Ouml;", "Ö")
    91. jobTitle = jobTitle.Replace("&Uuml;", "Ü")
    92. jobTitle = jobTitle.Replace("&szlig;", "ß")
    94. End If
    95. jobtitle_txt.Text = jobTitle
    97. email_lb.Text = "E-Mail: " & email
    98. name_lb.Text = "Vorname: " & name_
    99. lastname_lb.Text = "Nachname: " & lastname
    100. Else
    101. Me.Text = "Externer Server"
    102. End If
    103. End Function
    105. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    106. Webbrowser_.Navigate("https://jobboerse.arbeitsagentur.de" & ListBox1.SelectedItem)
    107. End Sub
    109. Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    110. Webbrowser_.Navigate("https://jobboerse.arbeitsagentur.de/vamJB/stellenangeboteFinden.html")
    111. End Sub
    112. Dim index As Integer = -1
    113. Dim jobList As New List(Of String)
    114. Private Sub Webbrowser__DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Webbrowser_.DocumentCompleted
    116. Try
    117. Webbrowser_.Document.GetElementById("arbeitsort.ort").InnerText = city_txt.Text
    118. Webbrowser_.Document.GetElementById("stellenangebotesuchen_unten").InvokeMember("click")
    119. Catch ex As Exception
    121. End Try
    122. If Webbrowser_.Document.Url.AbsolutePath = "/vamJB/stellenangeboteFinden.html" Then
    123. index += 1
    124. If Webbrowser_.Document.Url.AbsoluteUri.Contains("_eventId_detailView") Then
    125. Webbrowser_.Document.GetElementById("vorblaettern").InvokeMember("click")
    126. loadJobInfo(Webbrowser_.Document.Url.OriginalString)
    127. Else
    129. index += 1
    130. Dim get_jobID As New Regex("<a id=""zugang.stellenangebotesuchen.ergebnisanzeigedersuchenachstellenangeboten.berufsbezeichnungdesstellenangebots_.*""")
    132. Dim get_jobmat As MatchCollection = get_jobID.Matches(Webbrowser_.DocumentText)
    134. For Each tt As Match In get_jobmat
    135. If tt.Value.Contains("internerLink") Then
    136. jobList.Add(tt.Value.Split(""" href=")(1))
    137. End If
    138. Next
    140. If Webbrowser_.Document.GetElementById("zugang.stellenangebotesuchen.ergebnisanzeigedersuchenachstellenangeboten.berufsbezeichnungdesstellenangebots_0").OuterHtml.Contains("internerLink") Then
    141. Webbrowser_.Document.GetElementById("zugang.stellenangebotesuchen.ergebnisanzeigedersuchenachstellenangeboten.berufsbezeichnungdesstellenangebots_0").InvokeMember("click")
    142. End If
    143. End If
    144. End If
    145. End Sub
    147. End Class

    Mr. Johny schrieb:

    Ohne Fehlermeldung oder sonst was
    Das ist sehr allgemein gehalten...
    Passiert diese Erscheinung im Produktivbetrieb? Sonst gehe einmal in den Debugmodus und steppe diese Routine einmal durch...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    downloadstring ist eine sehr sehr bescheidene und sehr schlechte methode um den quellcode einer website zu erhalten und es dauert ewig bis was passiert. in dieser zeit hängt sich da programm auch auf. aber ich weiss jetzte nicht genau ob du dieses problem meinst oder noch ein anderes. ausserdem ist regex nicht so gut zum parsen von html. htmlagilitypack ist das was du brauchst.

    Hier könnte meine Signatur stehen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mox“ ()

Facebook
Telefonspende