Problem bei firewall ein/ausschalten

  • VB.NET

    Problem bei firewall ein/ausschalten

    moin moin ich habe ein kleines problem mit meinen programm
    man soll einfach damit die firewall ein und auschalten können

    da passiert nix es kommt keine meldung von windows das die firewall an oder aus ist

    hier mein code

    VB.NET-Quellcode

    1. Public Class Form2
    2. Function SetWindowsFirewall(ByVal OnorOff As Integer) As Long
    3. If OnorOff = 1 Then
    4. Shell("netsh firewall set opmode enable")
    5. ElseIf OnorOff = 0 Then
    6. Shell("netsh firewall set opmode disable")
    7. End If
    8. End Function
    9. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. End Sub
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. SetWindowsFirewall(1)
    13. End Sub
    14. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    15. SetWindowsFirewall(0)
    16. End Sub
    17. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dr_Wesker“ ()