For-Schleife in unendlich schleife :/

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ThePlexian.

    For-Schleife in unendlich schleife :/

    Ich versuche per For-Schleife Infos aller Installierte Programme unter folgender registrypfad: "Local_Machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" in eine listview aufzulisten.
    Ich weiß es geht alles viel einfacher ohne diese unnötigen umwege, aber ich kann leider aufgrund meines Projektes keine einfache methoden verwenden. Am ende darf ich nix anderes als Strings in die listview adden. Keine String Array, list of string oder sonstiges, nur String weshalb ich auch String.Builder benutze.

    Hier ist mein Fortschritt:

    VB.NET-Quellcode

    1. Public NameCount As Integer
    2. Public PublisherCount As Integer
    3. Public InstallCount As Integer
    4. Public VersionCount As Integer
    5. Public UninstallCount As Integer
    7. Function GetSoftwareNames()
    8. Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    9. Dim iList As New List(Of String)
    10. For Each App As String In Registry.LocalMachine.OpenSubKey(DestKey).GetSubKeyNames
    11. iList.Add(Registry.LocalMachine.OpenSubKey(DestKey & App & "\").GetValue("DisplayName"))
    12. NameCount = iList.Count
    13. Next
    14. Return iList
    15. End Function
    16. Function GetSoftwarePublisher()
    17. Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    18. Dim iList As New List(Of String)
    19. For Each App As String In Registry.LocalMachine.OpenSubKey(DestKey).GetSubKeyNames
    20. iList.Add(Registry.LocalMachine.OpenSubKey(DestKey & App & "\").GetValue("Publisher"))
    21. PublisherCount = iList.Count
    22. Next
    23. Return iList
    24. End Function
    25. Function GetSoftwareInstall()
    26. Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    27. Dim iList As New List(Of String)
    28. For Each App As String In Registry.LocalMachine.OpenSubKey(DestKey).GetSubKeyNames
    29. iList.Add(Registry.LocalMachine.OpenSubKey(DestKey & App & "\").GetValue("InstallDate"))
    30. InstallCount = iList.Count
    31. Next
    32. Return iList
    33. End Function
    34. Function GetSoftwareVersion()
    35. Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    36. Dim iList As New List(Of String)
    37. For Each App As String In Registry.LocalMachine.OpenSubKey(DestKey).GetSubKeyNames
    38. iList.Add(Registry.LocalMachine.OpenSubKey(DestKey & App & "\").GetValue("DisplayVersion"))
    39. VersionCount = iList.Count
    40. Next
    41. Return iList
    42. End Function
    43. Function GetSoftwareUninstall()
    44. Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    45. Dim iList As New List(Of String)
    46. For Each App As String In Registry.LocalMachine.OpenSubKey(DestKey).GetSubKeyNames
    47. iList.Add(Registry.LocalMachine.OpenSubKey(DestKey & App & "\").GetValue("UninstallString"))
    48. UninstallCount = iList.Count
    49. Next
    50. Return iList
    51. End Function
    53. Private Sub reload()
    54. Dim NameVals As List(Of String) = GetSoftwareNames()
    55. Dim PublisherVals As List(Of String) = GetSoftwarePublisher()
    56. Dim InstallVals As List(Of String) = GetSoftwareInstall()
    57. Dim VersionVals As List(Of String) = GetSoftwareVersion()
    58. Dim UninstallVals As List(Of String) = GetSoftwareUninstall()
    60. Dim BuilderName As StringBuilder = New StringBuilder()
    61. Dim BuilderPublisher As StringBuilder = New StringBuilder()
    62. Dim BuilderInstall As StringBuilder = New StringBuilder()
    63. Dim BuilderVersion As StringBuilder = New StringBuilder()
    64. Dim BuilderUninstall As StringBuilder = New StringBuilder()
    66. For Each ValName As String In NameVals
    67. BuilderName.Append(ValName).Append("<")
    68. Next
    69. For Each ValPublisher As String In PublisherVals
    70. BuilderPublisher.Append(ValPublisher).Append("<")
    71. Next
    72. For Each ValInstall As String In InstallVals
    73. BuilderInstall.Append(ValInstall).Append("<")
    74. Next
    75. For Each ValVersion As String In VersionVals
    76. BuilderVersion.Append(ValVersion).Append("<")
    77. Next
    78. For Each ValUninstall As String In UninstallVals
    79. BuilderUninstall.Append(ValUninstall).Append("<")
    80. Next
    82. Dim SoftwareName = BuilderName.ToString()
    83. Dim SoftwarePublisher = BuilderPublisher.ToString()
    84. Dim SoftwareInstall = BuilderInstall.ToString()
    85. Dim SoftwareVersion = BuilderVersion.ToString()
    86. Dim SoftwareUninstall = BuilderUninstall.ToString()
    88. Dim xName As String() = SoftwareName.Split("<")
    89. Dim xPublisher As String() = SoftwarePublisher.Split("<")
    90. Dim xInstall As String() = SoftwareInstall.Split("<")
    91. Dim xVersion As String() = SoftwareVersion.Split("<")
    92. Dim xUninstall As String() = SoftwareUninstall.Split("<")
    94. For i As Integer = 0 To NameCount - 1
    95. For ip As Integer = 0 To PublisherCount - 1
    96. For iI As Integer = 0 To InstallCount - 1
    97. For iV As Integer = 0 To VersionCount - 1
    98. For iU As Integer = 0 To UninstallCount - 1
    99. With ListView1.Items.Add(xName(i))
    100. Application.DoEvents()
    101. .SubItems.Add(xPublisher(ip))
    102. Application.DoEvents()
    103. .SubItems.Add(xInstall(iI))
    104. Application.DoEvents()
    105. .SubItems.Add(xVersion(iV))
    106. Application.DoEvents()
    107. .SubItems.Add(xUninstall(iU))
    108. End With
    109. Next
    110. Next
    111. Next
    112. Next
    113. Next
    115. End Sub


    Ich habe die "Application:DoEvents()" hinzugefügt damit es nicht crasht und man nachverfolgen kann wo es stecken bleibt.
    In dem Fall ist es in einer Unendlichschleife drin & fügt die items auch nicht korrekt hinzu. Wenn man nur eine For-Schleife ausführt funktionierts perfekt, nur macht es probleme bei mehreren gleichzeitig...

    Ich schaff es nicht die Fehler zu beheben :(
    Hoffe mir kann jmnd helfen, danke.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „SEX“ ()

    also abgesehen davon, dass es total irre ist Schleifen so zu verschachteln, würd ich mir vorher NameCount, InstallCount etc. anzeigen lassen um zu sehen, ob auch plausible Werte drinne stehn.
    Dann würd ich anstatt nur next next i, next iI, next iV etc. eintragen, damit da nichts durcheinander kommt.
    Option strict = on

    If it's stupid and it works it ain't stupid.

    Nils_Kr schrieb:

    also abgesehen davon, dass es total irre ist Schleifen so zu verschachteln, würd ich mir vorher NameCount, InstallCount etc. anzeigen lassen um zu sehen, ob auch plausible Werte drinne stehn.
    Dann würd ich anstatt nur next next i, next iI, next iV etc. eintragen, damit da nichts durcheinander kommt.

    Hab alle counts bereits per msgbox geprüft und bei allen kommt exakt 424 raus.
    Was meinst du mit "Dann würd ich anstatt nur next next i, next iI, next iV etc. eintragen, damit da nichts durcheinander kommt.", könntest du einen kleinen Beispiel zeigen?
    thx

    Dann ist es doch erstmal wichtig zu wissen, ob es tatsächlich eine Endlosschleife ist, oder ob die 13mio Durchläufe einfach solange dauern,
    dass du davon ausgehst, dass es sich um eine Endlosschleife handelt. Weil je nachdem hast du entweder einen Programmierfehler, oder
    aber dein Programmaufbau ist einfach falsch. Ich geh hier von zweitem aus, weil wozu soll man 13mio Durchläufe brauchen?

    Was ich mit next i meine wäre das hier:

    VB.NET-Quellcode

    1. for i = 0 to 10
    2. ....
    3. next i
    Wobei das hier wahrscheinlich nicht das Problem ist. Ich vesteh auch nicht so ganz, was du genau damit bezweckst,
    aber wäre es nicht sinnvoller die Schleifen einfach nacheinander durchlaufen zu lassen?
    Option strict = on

    If it's stupid and it works it ain't stupid.

    Nils_Kr schrieb:

    Dann ist es doch erstmal wichtig zu wissen, ob es tatsächlich eine Endlosschleife ist, oder ob die 13mio Durchläufe einfach solange dauern,
    dass du davon ausgehst, dass es sich um eine Endlosschleife handelt. Weil je nachdem hast du entweder einen Programmierfehler, oder
    aber dein Programmaufbau ist einfach falsch. Ich geh hier von zweitem aus, weil wozu soll man 13mio Durchläufe brauchen?

    Was ich mit next i meine wäre das hier:

    VB.NET-Quellcode

    1. for i = 0 to 10
    2. ....
    3. next i
    Wobei das hier wahrscheinlich nicht das Problem ist. Ich vesteh auch nicht so ganz, was du genau damit bezweckst,
    aber wäre es nicht sinnvoller die Schleifen einfach nacheinander durchlaufen zu lassen?


    Ohje da hab ich in der tat zu kompliziert gecodet... Okay habs nun hingekriegt indem ich die schleifen einzelnd laufen ließ.
    Vielen Dank nochmal für deine Hilfe!

    Mfg

    Warum soll jedes Item (der Name) in der ListView, alle Eigenschaften zigfach bekommen ? Was soll das?
    Sorry, aber sind die Variablen nicht alle gleich ? Also haben den gleichen WErt ?

    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais