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
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
- Public Class Form2
- Function SetWindowsFirewall(ByVal OnorOff As Integer) As Long
- If OnorOff = 1 Then
- Shell("netsh firewall set opmode enable")
- ElseIf OnorOff = 0 Then
- Shell("netsh firewall set opmode disable")
- End If
- End Function
- Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- SetWindowsFirewall(1)
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- SetWindowsFirewall(0)
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dr_Wesker“ ()