Pasted

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