Imports Microsoft.Win32

'Created by MooreR-Software.com
'Download Source + Binary @ http://moorer-software.com/old/.NET%20Projects/SkypeAdRemover.zip

Public Class Form1

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

        Try

            Dim regSkype As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\skype.com\apps")
            regSkype.SetValue("https", "00000004", RegistryValueKind.DWord)

            If CheckAds() Then
                IsEnabled()
            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        IsEnabled()
    End Sub

    Public Sub IsEnabled()

        If CheckAds() Then
            Label1.ForeColor = Color.DarkGreen
            Label1.Text = "Skype ads are disabled!"
            Button1.Enabled = False
        Else
            Label1.ForeColor = Color.Red
            Label1.Text = "Skype ads are enabled!"
            Button1.Enabled = True
        End If

    End Sub

    Public Function CheckAds() As Boolean

        Try

            If Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\skype.com\apps", "https", "") Then
                Return True
            End If

        Catch ex As Exception

        End Try

        Return False

    End Function

End Class