VB.Net Windows Defender Güvenlik Duvarını Devre dışı brakma ve Etkinleştirme Kodu "Kodlar Bana Ait!" Windows 7/8/8.1 Version

ndngailesi · 20 Şub 2019

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:

VB.Net:

Imports Microsoft.Win32

Devre Dışı Brakma Kodu:

Kod:

        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 Kodu:

Kod:

        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()

Patronburak · 20 Şub 2019

Emegine saglık kardeşim bazı arkadaşlarımızın işine yarayabilir.

ndngailesi · 20 Şub 2019

Patronburak' Alıntı:
Emegine saglık kardeşim bazı arkadaşlarımızın işine yarayabilir.

Eyw bro internette yok bu kod.

Bliss · 20 Şub 2019

Ellerine Sağlık

AnilYener · 20 Şub 2019

kodları senmi yazdın sen yazdıysan nerden öğrendin böyle kodlar yazmayı bende c# biliyorum ama nasıl hile yazarım onu bilmiyorum

h4emRe · 20 Şub 2019

Thanks

loganz · 20 Şub 2019

adamsın bro bende bir kaç kod denedim ama çakal yine çalışmaya devam etti bu işe yarar inşallah

ndngailesi · 20 Şub 2019

sugi' Alıntı:
kodları senmi yazdın sen yazdıysan nerden öğrendin böyle kodlar yazmayı bende c# biliyorum ama nasıl hile yazarım onu bilmiyorum

knk registry işlemleri araştır

Post automatically merged: 20 Şub 2019

loganz' Alıntı:
adamsın bro bende bir kaç kod denedim ama çakal yine çalışmaya devam etti bu işe yarar inşallah

<3 çalışır çalışır

Post automatically merged: 20 Şub 2019

EmreÇelik2121' Alıntı:
Thanks

<3

Post automatically merged: 20 Şub 2019

emndnz25' Alıntı:
Ellerine Sağlık

<3

AtaXS · 20 Şub 2019

eywwallah

ndngailesi · 20 Şub 2019

AtakaNs2' Alıntı:
eywwallah

<3 bu kodları başka yerde bulamazsın broooo

AtaXS · 20 Şub 2019

@ndngailesi dostum win64 benimki değiştirremmi onu 64diye
?

ndngailesi · 20 Şub 2019

Post automatically merged: 20 Şub 2019

AtakaNs2' Alıntı:
@ndngailesi dostum win64 benimki değiştirremmi onu 64diye
?

Yok knk en onu değişirsen altdaki kodların yarısı çalışmaz.

Anveegun · 20 Şub 2019

Selamlar. Her şeyi doğru yaptığımı düşünüyorum. Bu ilk hazırladığım şey. Acemiyim evet. Kodlarda hata mı var acaba. Butonlardan Devre Dışı Bırak olarak ayarladığım butona basınca devredışı kalmıyor, Bilgisayarı kapatıp açtım. Hala açık.
Discorddan yardım edersen çok sevinirim Hyperion #3619
Kodlar:

VB.Net:

Imports Microsoft.Win32
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        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")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        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()
    End Sub
End Class

AtaXS · 20 Şub 2019

bende şimdi winodws defender kısmı bile açılmıyor

SA

Anveegun · 20 Şub 2019

AtakaNs2' Alıntı:
bende şimdi winodws defender kısmı bile açılmıyor SA

Hyperion #3619
Ekleyebilir misin. Yardımcı olsan bi

ndngailesi · 20 Şub 2019

Anveegun' Alıntı:
Hyperion #3619
Ekleyebilir misin. Yardımcı olsan bi

Hmm Win8.1de ve altındaki sürümlerde çalışıyor windows 10 için güncwlliyecem yarın

Anveegun · 20 Şub 2019

ndngailesi' Alıntı:
Hmm Win8.1de ve altındaki sürümlerde çalışıyor windows 10 için güncwlliyecem yarın

Keşke forumun başında da bahsetseydin. İlk defa bir şey yapmayı denemiştim. Başaramayınca üzüldüm şahsen

ndngailesi · 20 Şub 2019

Anveegun' Alıntı:
Keşke forumun başında da bahsetseydin. İlk defa bir şey yapmayı denemiştim. Başaramayınca üzüldüm şahsen

Konunun başına çalışan windows sürümlerini ekledim herkezden özür dilerim. Yarın windows 10 içinayrı bir kod çıkaracam

Post automatically merged: 20 Şub 2019

Anveegun' Alıntı:

Selamlar. Her şeyi doğru yaptığımı düşünüyorum. Bu ilk hazırladığım şey. Acemiyim evet. Kodlarda hata mı var acaba. Butonlardan Devre Dışı Bırak olarak ayarladığım butona basınca devredışı kalmıyor, Bilgisayarı kapatıp açtım. Hala açık.
Discorddan yardım edersen çok sevinirim Hyperion #3619
Kodlar:

VB.Net:

Imports Microsoft.Win32
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        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")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        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()
    End Sub
End Class

Yönetici olarak acmaya denedinmi ??

Anveegun · 20 Şub 2019

ndngailesi' Alıntı:
Konunun başına çalışan windows sürümlerini ekledim herkezden özür dilerim. Yarın windows 10 içinayrı bir kod çıkaracam

Post automatically merged: 20 Şub 2019

Yönetici olarak acmaya denedinmi ??

evet yönetici olarak ta açtım

ndngailesi · 20 Şub 2019

Anveegun' Alıntı:
evet yönetici olarak ta açtım

Microsoft her gün geçtikce Windows 10'un güvenlik seviyesini arttırıyor ve ben kullandığımda işe yarıyordu 1, 2 güne tekrar güncellerim kodları.

Ara

VB.Net Windows Defender Güvenlik Duvarını Devre dışı brakma ve Etkinleştirme Kodu "Kodlar Bana Ait!" Windows 7/8/8.1 Version

ndngailesi

☞ MaMo434376

Patronburak

Pubg : KAOSツBurak33

ndngailesi

☞ MaMo434376

Bliss

❤❤

AnilYener

Boş

h4emRe

Doomsday is approaching

loganz

ndngailesi

☞ MaMo434376

AtaXS

AMATÖR TASARIMCI

ndngailesi

☞ MaMo434376

AtaXS

AMATÖR TASARIMCI

ndngailesi

☞ MaMo434376

Anveegun

AtaXS

AMATÖR TASARIMCI

Anveegun

ndngailesi

☞ MaMo434376

Anveegun

ndngailesi

☞ MaMo434376

Anveegun

ndngailesi

☞ MaMo434376

Benzer Konular