Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim firewall As New Process()
firewall.StartInfo.FileName = "cmd.exe"
firewall.StartInfo.WorkingDirectory = "\windows\system32\"
firewall.StartInfo.Arguments = "/c netsh firewall set opmode mode=enable"
firewall.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim firewall As New Process()
firewall.StartInfo.FileName = "cmd.exe"
firewall.StartInfo.WorkingDirectory = "\windows\system32\"
firewall.StartInfo.Arguments = "/c netsh firewall set opmode mode=disable"
firewall.Start()
End Sub
End Class
No comments:
Post a Comment