Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim ps1 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im tp3helper.dat")
        Dim ps3 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im androidemulator.exe")
        Dim ps4 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im aow_exe.exe")
        Dim ps5 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im QMEmulatorService.exe")
        Dim ps6 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im RuntimeBroker.exe")
        Dim ps7 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im adb.exe")
        Dim ps8 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im GameLoader.exe")
        Dim ps9 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im TBSWebRenderer.exe")
        Dim ps10 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im AppMarket.exe")
        Dim ps11 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im AndroidEmulator.exe")
        Dim ps12 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im ninja.vmp.exe")
        Dim ps13 As New ProcessStartInfo("cmd", "/c taskkill.exe /f /t /im notepad.exe")
        Dim ps14 As New ProcessStartInfo("cmd", "/c net stop aow_drv")
        Dim ps15 As New ProcessStartInfo("cmd", "/c net stop Tensafe")


        ps1.WindowStyle = ProcessWindowStyle.Hidden
        ps3.WindowStyle = ProcessWindowStyle.Hidden
        ps4.WindowStyle = ProcessWindowStyle.Hidden
        ps5.WindowStyle = ProcessWindowStyle.Hidden
        ps6.WindowStyle = ProcessWindowStyle.Hidden
        ps7.WindowStyle = ProcessWindowStyle.Hidden
        ps8.WindowStyle = ProcessWindowStyle.Hidden
        ps9.WindowStyle = ProcessWindowStyle.Hidden
        ps10.WindowStyle = ProcessWindowStyle.Hidden
        ps11.WindowStyle = ProcessWindowStyle.Hidden
        ps12.WindowStyle = ProcessWindowStyle.Hidden
        ps13.WindowStyle = ProcessWindowStyle.Hidden
        ps14.WindowStyle = ProcessWindowStyle.Hidden
        ps15.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(ps1)
        Process.Start(ps3)
        Process.Start(ps4)
        Process.Start(ps5)
        Process.Start(ps6)
        Process.Start(ps7)
        Process.Start(ps8)
        Process.Start(ps9)
        Process.Start(ps10)
        Process.Start(ps11)
        Process.Start(ps12)
        Process.Start(ps13)
        Process.Start(ps14)
        Process.Start(ps15)
        MsgBox("KilleD Successfully!")
    End Sub