Feedback

VB - MS Security-Center Firewallmonitoring

Veröffentlicht von am 27.12.2006
(3 Bewertungen)
Die Funktion ändert das Verhalten der Firewall Settings.

Ist es nötig, das Firewall-Monitoring des MS Security-Centers zu verändern, so kann das dieser Code.

Müssen sie aus Ihrem Code heraus die FW deaktivieren, so wird das vom MS Sec.-Center mit dem Hinweis kommentiert, dass keine Firewall aktiv ist. Dies kann den User verunsichern.

Hier können Sie das Verhalten des Sec-Centers Ihren Wünschen entsprechend verändern.
GFU-Schulungen  [Anzeige]

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

''' <summary>
''' Der Wert muss als Integer uebergeben werden, damit
''' in der Registrey auch ein REG_DWORD geschrieben 
''' wird
''' </summary>
''' <param name="YesOrNo"></param>
''' <returns></returns>
''' <remarks></remarks>

Function DisableFirewallNotification(ByVal YesOrNo As Integer) As Boolean
        Try
            Select Case YesOrNo
                Case Is = 1
                    My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center", "FirewallDisableNotify", YesOrNo)
                    MessageBox.Show("... completed successfully" & vbCrLf & "Please reboot system.", _
                                    "Reg. Manipulation ...", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Case Is = 0
                    Try
                        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center", "FirewallDisableNotify", YesOrNo)
                        MessageBox.Show("... completed successfully" & vbCrLf & "Please reboot system.", _
                                        "Reg. Manipulation ...", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    Catch ex As Exception
                        MessageBox.Show(ex.Message, "Reg. Manipulation failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
            End Select


        Catch ex As Exception
            MessageBox.Show(ex.Message, "Reg. Manipulation failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
End Function

'Aufruf und Überbage der Parameter

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim YesOrNo As Integer = InputBox("Bitte geben Sie an, ob das Monitoring der Firewall aktiv sein soll." & _
                                          vbCrLf & "0 = AKTIV" & vbCrLf & "1 = NICHT AKTIV", "Firewall-Monitoring", _
                                          "0")


        DisableFirewallNotification(YesOrNo)


End Sub
Abgelegt unter Firewall, Monitoring.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!