Feedback

VB - MS Security-Center Update Monitoring

Veröffentlicht von am 27.12.2006
(2 Bewertungen)
Die Funktion ändert das Verhalten der Update Benachrichtigungs Settings.

Manchmal ist es nicht erwünscht, dass Systeme Updates durchführen. Trotzdem warnt das MS Sec.-Center, dass Üpdates vorhanden sind.

Will man diese Anzeige/Info nicht, so kann man dies hiermit schnell ändern.
GFU-Schulungen  [Anzeige]

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

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 DisableUpdatesNotification(ByVal YesOrNo As Integer) As Boolean
        Try
            Select Case YesOrNo
                Case Is = 1
                    My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center", "UpdatesDisableNotify", 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", "UpdatesDisableNotify", 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

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 Windows Updates aktiv sein soll." & _
                                          vbCrLf & "0 = AKTIV" & vbCrLf & "1 = NICHT AKTIV", "Firewall-Monitoring", _
                                          "0")


        DisableUpdatesNotification(YesOrNo)


End Sub
Abgelegt unter Updates, Monitoring.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!