'Beispiel: VB .Net - Firewall - Ein- /ausschalten ' ' Option Explicit On Option Strict Off 'Late binding Public Class Form1 Private FirewallState As Boolean Private StateImages(1) As Image Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim fw As New Firewall() If Me.FirewallState Then fw.DisableFirewall() FirewallState = fw.ReturnFirewallState() If FirewallState = False Then Me.Button1.Text = "Firewall ist ausgeschaltet [ Klicken zum einschalten ]" If StateImages(1) IsNot Nothing Then Me.PictureBox1.Image = StateImages(1) Else Me.Button1.Text = "Firewall ist eingeschaltet" End If Else fw.EnableFirewall() FirewallState = fw.ReturnFirewallState() If FirewallState Then Me.Button1.Text = "Firewall ist eingeschaltet [ Klicken zum ausschalten ]" If StateImages(0) IsNot Nothing Then Me.PictureBox1.Image = StateImages(0) Else Me.Button1.Text = "Firewall ist ausgeschaltet" End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MyPath As String = Application.StartupPath If MyPath.EndsWith("\") = False Then MyPath &= "\" If IO.File.Exists(MyPath & "firewall.jpg") And _ IO.File.Exists(MyPath & "firewall_invert.jpg") Then Try StateImages(0) = Image.FromFile(MyPath & "firewall.jpg") StateImages(1) = Image.FromFile(MyPath & "firewall_invert.jpg") Catch ex As Exception Throw New Exception(ex.Message) End Try End If Dim fw As New Firewall() If fw.OS() Then FirewallState = fw.ReturnFirewallState() Select Case FirewallState Case True Me.Button1.Text = "Firewall ist eingeschaltet" If StateImages(0) IsNot Nothing Then Me.PictureBox1.Image = StateImages(0) Case Else Me.Button1.Text = "Firewall ist ausgeschaltet" If StateImages(1) IsNot Nothing Then Me.PictureBox1.Image = StateImages(1) End Select Else MessageBox.Show("Operating system is not supported", "Info") Application.Exit() End If End Sub End Class Public Class Firewall Public ReadOnly Property OS() As Boolean Get Return Me.IsWindowsXP() End Get End Property Public ReadOnly Property ReturnFirewallState() As Boolean Get Return Me.IsFirewallEnabled() End Get End Property Private Function IsFirewallEnabled() As Boolean Dim hObject As Object Dim cp As Object Dim State As Boolean Try hObject = CreateObject("HNetCfg.FwMgr") cp = hObject.LocalPolicy.CurrentProfile If cp.FirewallEnabled Then State = True Else State = False End If cp = Nothing hObject = Nothing Return State Catch ex As Exception Return False End Try Return False End Function Public Sub DisableFirewall() Try Dim hObject As Object = CreateObject("HNetCfg.FwMgr") Dim cp As Object = hObject.LocalPolicy.CurrentProfile cp.FirewallEnabled = False Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub Public Sub EnableFirewall() Try Dim hObject As Object = CreateObject("HNetCfg.FwMgr") Dim cp As Object = hObject.LocalPolicy.CurrentProfile cp.FirewallEnabled = True Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub Private Function IsWindowsXP() As Boolean Dim OS As OperatingSystem = Environment.OSVersion Dim Result As Boolean = OS.Platform = PlatformID.Win32NT AndAlso _ ((OS.Version.Major = 5 AndAlso _ OS.Version.Minor >= 1) OrElse _ OS.Version.Major > 5) If Result Then Return True Else Return False End If End Function End Class