Sub WindowsFirewallKapat()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "netsh advfirewall set allprofiles state off", 0, True
Set objShell = Nothing
End Sub
Sub WindowsFirewallAc()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "netsh advfirewall set allprofiles state on", 0, True
Set objShell = Nothing
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.