Hilfe zum Thema Einlesen

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Hilfe zum Thema Einlesen

    Hallo liebe Community,
    Ich wollte euch mal fragen weil ich einfach nicht mehr weiter komme wie ich es schaffe das das Programm in einer Liste [Die ich erstellt habe und die auf dem Desktop liegt] einlesen kann und wenn z.B der Name in der Process liste drinnen steht soll er geschlossen werden sprich:

    in der Liste auf dem Desktop steht drinnen : cheatengine.exe
    und in der Processliste ist es auch drinnen dann soll cheatengine.exe geschlossen werden.


    Wäre euch sehr dankbar wenn ihr mir bei diesem Problem helfen könntet.

    Mit freundlichen Grüßen,

    Cliplicht©

    Ich denke dass man eine Richtextbox braucht um eine Txtdatei auszulesen wo man dann beim laden der form

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. RichTextBox1.Text = IO.File.ReadAllText("Pfad")
    3. End Sub


    dann ist der Text da drinn in der form und Process schießen geht so



    VB.NET-Quellcode

    1. Name = "cheatengine.exe"
    2. For Each cheatengine In Process.GetProcessesByName("cheatengine")
    3. cheatengine.Kill()
    5. Next
    6. Call setwinPos(Me, True)



    ich bin aber nicht sicher ob es richtig ist

    Warum sollte man sowas machen? Das wäre so, als wollte eine Firma Eisenstangen vom LKW drei Meter weit ins Lager bringen, verpackt sie aber vorher nochmals und bringt sie durch einen unterirdischen Geheimgang rein.

    Ich möchte bloß wissen, woher du so einen Stil hast. Daten und GUI sind zu trennen.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Vileicht Hilft dir das...

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. ' Alle laufenden Processe in Listbox auflisten + Muliselect !
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. For Each Process In System.Diagnostics.Process.GetProcesses
    8. ListBox1.Items.Add(Process.ProcessName)
    9. Try
    10. Me.ListBox1.SelectionMode = SelectionMode.MultiSimple
    11. Catch ex As Exception
    12. End Try
    13. Next
    14. System.IO.Directory.CreateDirectory("C:\Taskmanager")
    15. End Sub
    17. 'Selecktedt Auswahl mit rechter Maustaste aufheben
    18. Private Sub FileListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
    19. Try
    20. If e.Button = Windows.Forms.MouseButtons.Right Then
    21. ListBox1.SelectedIndex = ListBox.NoMatches
    22. End If
    23. Catch ex As Exception
    24. End Try
    25. End Sub
    27. 'In ListBox selectierte Processe beenden !
    28. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    29. For Each Process In System.Diagnostics.Process.GetProcessesByName(ListBox1.SelectedItem)
    30. Process.Kill()
    31. Next
    32. End Sub
    34. 'Alle Processe Die in einer Textdatei stehn beenden !
    35. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    36. Dim files() As String = IO.File.ReadAllLines("C:\Taskmanager\Kill_Liste.txt")
    37. For Each file In files
    38. Dim pr() As Process = Process.GetProcessesByName(file)
    39. If pr.Length > 0 Then
    40. pr(0).Kill()
    41. End If
    42. Next
    43. End Sub
    45. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    46. 'Alle selectierten ListBoxeinträge auslesen und in (( Kill_Liste.txt )) speichern um diese nicht von Hand schreiben zu müssen !!!
    47. On Error Resume Next
    48. My.Computer.FileSystem.DeleteFile("C:\Taskmanager\Kill_Liste.txt")
    49. Dim fs As New FileStream("C:\Taskmanager\Kill_Liste.txt", FileMode.Append)
    50. Dim sw As New StreamWriter(fs)
    51. For Each item As String In ListBox1.SelectedItems
    52. sw.WriteLine(item)
    53. Next
    54. sw.Close()
    55. End Sub
    57. 'Zweite Form mit kleiner Textbox aufrufen um (( Kill_Liste.txt )) zu bearbeiten !
    58. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    59. Form2.Show()
    60. Try
    61. Form2.TextBox1.Text = File.ReadAllText("C:\Taskmanager\Kill_Liste.txt")
    62. Catch ex As Exception
    63. End Try
    64. End Sub
    65. End Class



    TEXT DATEI - ("C:\Taskmanager\Kill_Liste.txt") VON HAND BEARBEITEN !

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form2
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. 'Änderungen die in Textbox1 gemacht wurden in datei speichern
    6. Try
    7. Dim txt As String = TextBox1.Text
    8. Dim fss As StreamWriter = File.CreateText("C:\Taskmanager\Kill_Liste.txt")
    9. fss.Write(txt)
    10. fss.Close()
    11. Catch ex As Exception
    12. End Try
    14. 'Dateiänderungen in Textbox1 aktualisieren
    15. Try
    16. TextBox1.Text = File.ReadAllText("C:\Taskmanager\Kill_Liste.txt")
    17. Catch ex As Exception
    18. End Try
    19. End Sub
    22. End Class


    So hatte ich es mal für mich gemacht ,,,, vergleich muss ich grübeln ,,,schauen ;(
    Aber was macht das für ein Unterschied ob er jetzt erst vergleicht und dann beendet ,,,oder für die Programme auf der Blackliste ab und zu en Befehl schickt !?
    LG Andre.....

    Dieser Beitrag wurde bereits 13 mal editiert, zuletzt von „TVX“ ()

    Oder Überprüfen was aus Deiner Liste läuft und dann killen ,, das ganze über en Timer noch !

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim p As Process
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim files() As String = IO.File.ReadAllLines("C:\Taskmanager\Kill_Liste.txt")
    8. For Each file In files
    9. For Each p In Diagnostics.Process.GetProcesses()
    10. If p.ProcessName = file Then
    11. MessageBox.Show(file & " Läuft !") 'Und dann hier Kill (-:
    12. End If
    13. Next
    14. Next
    15. End Sub
    17. End Class

    @TVX

    OPTION STRICT ON, Informier Dich mal über Try-Catch, bevor Du damit um Dich wirfst, lerne, wie man anständig neue Forms instanziert und und und. Deine Codebeispiele sind absolut nicht dazu geeignet, jemanden zu helfen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    SpaceyX schrieb:

    @TVX

    OPTION STRICT ON, Informier Dich mal über Try-Catch, bevor Du damit um Dich wirfst, lerne, wie man anständig neue Forms instanziert und und und. Deine Codebeispiele sind absolut nicht dazu geeignet, jemanden zu helfen.


    Ja hätte ich catchen können fals die Datei nicht da ist ,, mit MsgBox als Fehlerausgabe !

    OK /// OPTION STRICT ON /// Ja hätte ich sollen :)

    Und ja ich catche manchmal Sachen die es eigentlich gar nicht brauchen :rolleyes:

Facebook
Telefonspende