[DEV] Defender Açma Ve Kapatma Kodları !

[1Jeff]

Arkadaşlar ben bu kodu çok aradım internetde ama bulamadım ve kendim yapmaya karar verdim. Her neyse kodları vereyim hemen

DİKKAT VİSUAL STUDİO'YU YÖNETİCİK OLARAK ÇALIŞTIRIP YAPIN VE YAPTIGINIZI PROGRAMI YÖNETİCİ OLARAK ÇALIŞTIRIRSANIZ ÇALIŞIR ANCAK!!

Windows 7/8/8.1

En üste gelecek kod:

Imports Microsoft.Win32

Devre Dışı Brakma Kodu:

  Dim rehcey As Object
        Dim regKey As RegistryKey
        Dim regKeY1 As RegistryKey
        Dim regKeY2 As RegistryKey
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        rehcey = CreateObject("WScript.Shell")
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Policies\Microsoft", True)
        regKey.CreateSubKey("Windows Defender")
        regKey.Close()
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 1, "REG_DWORD")
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        regKeY1 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Policies\Microsoft\Windows Defender", True)
        regKeY1.CreateSubKey("Real-Time Protection")
        regKeY1.Close()
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection\DisableBehaviorMonitoring", 1, "REG_DWORD")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection\DisableOnAccessProtection", 1, "REG_DWORD")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection\DisableScanOnRealtimeEnable", 1, "REG_DWORD")
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        regKeY2 = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services", True)
        regKeY2.CreateSubKey("SecurityHealthService")
        regKeY2.Close()
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\DisplayName", "@%systemroot%\system32\SecurityHealthAgent.dll, -1002", "REG_SZ")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\ErrorControl", 1, "REG_DWORD")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\ImagePath", "%SystemRoot%\system32\SecurityHealthService.exe", "REG_EXPAND_SZ")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\Start", 3, "REG_DWORD")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\Type", 10, "REG_DWORD")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\Description", "@%systemroot%\system32\SecurityHealthAgent.dll,-1001", "REG_SZ")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\ObjectName", "LocalSystem", "REG_SZ")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\ServiceSidType", 1, "REG_DWORD")
        rehcey.regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\LaunchProtected", 2, "REG_DWORD")

Etkinleştirme Kodları :

Dim regKeyEtkin As RegistryKey
        Dim regKeyDefEtkin As RegistryKey
        Dim regKeyDefEtkin1 As RegistryKey
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        On Error Resume Next
        regKeyEtkin = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services", True)
        regKeyEtkin.DeleteSubKey("SecurityHealthService")
        regKeyEtkin.Close()
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        On Error Resume Next
        regKeyDefEtkin = Registry.LocalMachine.OpenSubKey("SOFTWARE\Policies\Microsoft\Windows Defender", True)
        regKeyDefEtkin.DeleteSubKey("Real-Time Protection")
        regKeyDefEtkin.Close()
        '-----------------------------------------------------------------------------------------------------------------------------------------------------------
        On Error Resume Next
        regKeyDefEtkin1 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Policies\Microsoft", True)
        regKeyDefEtkin1.DeleteSubKey("Windows Defender")
        regKeyDefEtkin1.Close()

 

[1Jeff]

++