Fragen von Cherry

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • So also ich zeig dir jetzt an einem Beispiel mit einem Button.

      Als erstes fügst du deiner Form einen Button hinzu und fügst den Code hier ein:

      PHP-Quellcode

      1. Public Class Form1
      3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      4. Dim p As Process = Process.GetProcessesByName("ICQ")(0)
      5. p.CloseMainWindow()
      6. Threading.Thread.Sleep(500)
      7. If Process.GetProcessesByName("ICQ").Length > 0 Then
      8. p.Kill()
      9. End If
      11. End Sub
      12. End Class
      Alles anzeigen


      ICQ ist der Prozess! Du musst es bisschen abwiegen manchmal reicht der name aber öfters musst du zbsp "ICQ.exe" einfügen.

      Wenn du nun den Debug Modus startest und den Button drückst sollte der Prozess gekillt werden.


      MFG

    • [FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]Dann kommt ein error

      Quellcode

      1. Public Class BeachGuard
      2. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      3. Dim p As Process = Process.GetProcessesByName("Cheat Engine")(0)
      4. p.CloseMainWindow()
      5. Threading.Thread.Sleep(500)
      6. If Process.GetProcessesByName("Cheat Engine").Length > 0 Then
      7. p.Kill()
      8. End If
      9. Dim [COLOR="DarkRed"]p [/COLOR]As Process = Process.GetProcessesByName("Cheat Engine")(0)
      10. p.CloseMainWindow()
      11. Threading.Thread.Sleep(500)
      12. If Process.GetProcessesByName("Cheat Engine").Length > 0 Then
      13. p.Kill()
      14. End If
      15. End Sub
      16. End Class
      Alles anzeigen


      Fehler 1 Die lokale Variable "p" ist bereits im aktuellen Block deklariert. C:\Users\Philipp\Documents\Visual Studio 2008\Projects\Beach Guard v0.1.vb 9 13 BeachGuard v0.1[/SIZE][/COLOR][/FONT]

      Kann man auch so eien schleife machen das er überüprüft ob Cheat Engine an und es sofort killt ?

    • Quellcode

      1. Public Class Form1
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. Timer1.Start()
      5. Timer1.Interval = 5000
      6. End Sub
      8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      9. Dim local As Process() = Process.GetProcesses
      10. Dim i As Integer
      11. For i = 0 To local.Length - 1
      12. If Strings.UCase(local(i).ProcessName) = Strings.UCase("Cheat Engine") Then
      13. local(i).Kill()
      14. End If
      15. Next
      17. Dim locall As Process() = Process.GetProcesses
      18. Dim ii As Integer
      19. For ii = 0 To local.Length - 1
      20. If Strings.UCase(local(ii).ProcessName) = Strings.UCase("was anderes") Then
      21. locall(ii).Kill()
      22. End If
      23. Next
      25. End Sub
      26. End Class
      Alles anzeigen

    • [FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]

      Quellcode

      1. Public Class BeachGuard
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. Timer1.Start()
      5. Timer1.Interval = 1000
      6. End Sub
      8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      9. Dim local As Process() = Process.GetProcesses
      10. Dim CE As Integer
      11. For CE = 0 To local.Length - 1
      12. If Strings.UCase(local(CE).ProcessName) = Strings.UCase("Cheat Engine") Then
      13. local(CE).Kill()
      14. End If
      15. Next
      17. Dim locall As Process() = Process.GetProcesses
      18. Dim PA As Integer
      19. For PA = 0 To local.Length - 1
      20. If Strings.UCase(local(PA).ProcessName) = Strings.UCase("PacketEditor by yannickMAMA") Then
      21. locall(PA).Kill()
      22. End If
      23. Next
      25. Dim localll As Process() = Process.GetProcesses
      26. Dim PA2 As Integer
      27. For PA2 = 0 To local.Length - 1
      28. If Strings.UCase(local(PA2).ProcessName) = Strings.UCase("PacketEditor by yannickMAMA V1.2") Then
      29. locall(PA2).Kill()
      30. End If
      31. Next
      33. Dim locallll As Process() = Process.GetProcesses
      34. Dim PA3 As Integer
      35. For PA3 = 0 To local.Length - 1
      36. If Strings.UCase(local(PA3).ProcessName) = Strings.UCase("PacketEditor by yannickMAMA V1.3") Then
      37. locall(PA3).Kill()
      38. End If
      39. Next
      41. Dim localllll As Process() = Process.GetProcesses
      42. Dim A As Integer
      43. For A = 0 To local.Length - 1
      44. If Strings.UCase(local(A).ProcessName) = Strings.UCase("FlyFF Automaton") Then
      45. locall(A).Kill()
      46. End If
      47. Next
      49. Dim locallllll As Process() = Process.GetProcesses
      50. Dim A1 As Integer
      51. For A1 = 0 To local.Length - 1
      52. If Strings.UCase(local(A1).ProcessName) = Strings.UCase("Automaton") Then
      53. locall(A1).Kill()
      54. End If
      55. Next
      57. Dim locallllllll As Process() = Process.GetProcesses
      58. Dim F As Integer
      59. For F = 0 To local.Length - 1
      60. If Strings.UCase(local(F).ProcessName) = Strings.UCase("ftool") Then
      61. locall(F).Kill()
      62. End If
      63. Next
      65. Dim localllllllll As Process() = Process.GetProcesses
      66. Dim F1 As Integer
      67. For F1 = 0 To local.Length - 1
      68. If Strings.UCase(local(F1).ProcessName) = Strings.UCase("ftool_Buffer") Then
      69. locall(F1).Kill()
      70. End If
      71. Next
      73. Dim locallllllllll As Process() = Process.GetProcesses
      74. Dim F2 As Integer
      75. For F2 = 0 To local.Length - 1
      76. If Strings.UCase(local(F2).ProcessName) = Strings.UCase("ftool_buffer") Then
      77. locall(F2).Kill()
      78. End If
      79. Next
      81. Dim localllllllllll As Process() = Process.GetProcesses
      82. Dim F3 As Integer
      83. For F3 = 0 To local.Length - 1
      84. If Strings.UCase(local(F3).ProcessName) = Strings.UCase("ftool_spammer1") Then
      85. locall(F3).Kill()
      86. End If
      87. Next
      89. Dim locallllllllllll As Process() = Process.GetProcesses
      90. Dim F4 As Integer
      91. For F4 = 0 To local.Length - 1
      92. If Strings.UCase(local(F4).ProcessName) = Strings.UCase("ftool_spammer2") Then
      93. locall(F4).Kill()
      94. End If
      95. Next
      97. Dim localllllllllllll As Process() = Process.GetProcesses
      98. Dim F6 As Integer
      99. For F6 = 0 To local.Length - 1
      100. If Strings.UCase(local(F6).ProcessName) = Strings.UCase("ftool_spammer3") Then
      101. locall(F6).Kill()
      102. End If
      103. Next
      105. Dim locallllllllllllll As Process() = Process.GetProcesses
      106. Dim F5 As Integer
      107. For F5 = 0 To local.Length - 1
      108. If Strings.UCase(local(F5).ProcessName) = Strings.UCase("ftool_spammer4") Then
      109. locall(F5).Kill()
      110. End If
      111. Next
      113. Dim localllllllllllllll As Process() = Process.GetProcesses
      114. Dim PA1 As Integer
      115. For PA = 0 To local.Length - 1
      116. If Strings.UCase(local(PA1).ProcessName) = Strings.UCase("PaketEditor by yannickMAMA") Then
      117. locall(PA1).Kill()
      118. End If
      119. Next
      121. Dim locallllllllllllllll As Process() = Process.GetProcesses
      122. Dim PA21 As Integer
      123. For PA21 = 0 To local.Length - 1
      124. If Strings.UCase(local(PA21).ProcessName) = Strings.UCase("PaketEditor by yannickMAMA V1.2") Then
      125. locall(PA21).Kill()
      126. End If
      127. Next
      129. Dim localllllllllllllllll As Process() = Process.GetProcesses
      130. Dim PA31 As Integer
      131. For PA31 = 0 To local.Length - 1
      132. If Strings.UCase(local(PA31).ProcessName) = Strings.UCase("PaketEditor by yannickMAMA V1.3") Then
      133. locall(PA31).Kill()
      134. End If
      135. Next
      137. Dim locallllllllllllllllll As Process() = Process.GetProcesses
      138. Dim PA311 As Integer
      139. For PA311 = 0 To local.Length - 1
      140. If Strings.UCase(local(PA311).ProcessName) = Strings.UCase("Form1") Then
      141. locall(PA311).Kill()
      142. End If
      143. Next
      146. [COLOR="Red"] Dim c() As Process = Process.GetProcessesByName("Beach Guard v1.1")
      147. Select Case c.Length
      148. Case 0 : Label1.Text = "Prozess nicht gefunden"
      149. Case Else : Label1.Text = "Prozess gefunden"
      150. End Select[/COLOR]
      151. End Sub
      153. End Class
      Alles anzeigen


      Aber wenn man den Guard schließt passiert nichts[/SIZE][/COLOR][/FONT]

    • @ Cherry es ist doch so simpel.
      Befolge den Rat von Mono und du wirst um einiges schlauer sein ;)

      Quellcode

      1. Public Class Form1
      3. 'So wenn du es jetzt nicht verstehst ja dann ...
      4. '1x Label (Label1)
      5. '1x Timer
      6. '1x Textbox
      8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      9. Timer1.Start() ' Beim Start von Form1 , startet Timer1
      10. Timer1.Interval = 5000 ' Beim Start von Form1 wird das Interval vom Timer1 auf 5000 gesetzt
      11. End Sub
      13. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      14. Dim local As Process() = Process.GetProcesses 'prozess ;)
      15. Dim i As Integer ' variable o.ô
      16. For i = 0 To local.Length - 1
      17. If Strings.UCase(local(i).ProcessName) = Strings.UCase(TextBox1.Text) Then 'Textbox1 steht für den Prozessnamen...
      18. local(i).Kill() 'killt prozess
      19. End If
      20. Next
      22. 'so und nächstes mal erstmal lernen ;)
      23. End Sub
      24. End Class
      Alles anzeigen

    • ich hasse das wenn leute versuchen was versuchen was sie sowiso noch nicht packen
      ist es so schwer so kannst du die if abfrage mit or immer erweitern
      Module Module1
      Dim thread As New Threading.Thread(AddressOf sala)
      Sub Main()
      thread.Start()
      End Sub
      Sub sala()
      While 1
      For Each P As Process In Process.GetProcesses

      If Strings.UCase(P.ToString) = Strings.UCase("System.Diagnostigs.Process(name1)") Or Strings.UCase(P.ToString) = Strings.UCase("System.Diagnostigs.Process(name2)") Then
      P.Close()
      End If
      Next
      thread.Sleep(100)
      End While
      End Sub

      End Module