Allow users to apply a specific string and bypass the rest of the HideSettingsPages UI. about hidesettingspages HOT 4 CLOSED

'MinimalGUI - Minimal GUI for HideSettingsPages
'(MinimalGUI also known as HideSettingsPages Minimal GUI)
'Copyright (C) 2017  Drew Naylor
'Microsoft Windows and all related words are copyright
'and trademark Microsoft Corporation.
'Any other companies mentioned own their respective copyrights/trademarks.
'(Note that the copyright years include the years left out by the hyphen.)
'
'This file is part of HideSettingsPages
'(Program is also known as "Hide Windows 10 Settings App Pages.")
'
'HideSettingsPages Minimal GUI is free software: you can redistribute it and/or modify
'it under the terms of the GNU General Public License as published by
'the Free Software Foundation, either version 3 of the License, or
'(at your option) any later version.
'
'HideSettingsPages Minimal GUI is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.
'
'You should have received a copy of the GNU General Public License
'along with HideSettingsPages Minimal GUI.  If not, see <http://www.gnu.org/licenses/>.



Imports System.Windows.Forms
Public Class aaformMinimalGUI
    Private Sub buttonApply_Click(sender As Object, e As EventArgs) Handles buttonApply.Click
        If textboxFullValue.TextLength > 0 Then
            ' Tell the registry helper app to apply the key value in the Registry.
            Dim proc As New ProcessStartInfo
            proc.FileName = My.Application.Info.DirectoryPath & "\hsp_registry-helper.exe"
            proc.Arguments = "/apply " & textboxFullValue.Text
            proc.Verb = "runas"
            Try
                Process.Start(proc)
                ' We have to catch this exception
                ' in case the user clicks "No" in the UAC
                ' dialog. Otherwise, we get an error
                ' that says that the operation was
                ' canceled by the user.
            Catch ex As System.ComponentModel.Win32Exception
            End Try
        Else

            ' If there's nothing in the textbox, complain.
            MessageBox.Show("Textbox is empty.")

        End If

    End Sub

    Private Sub buttonUndo_Click(sender As Object, e As EventArgs) Handles buttonUndo.Click
        ' Tell the registry helper app to delete the key value in the Registry.
        Dim proc As New ProcessStartInfo
        proc.FileName = My.Application.Info.DirectoryPath & "\hsp_registry-helper.exe"
        proc.Arguments = "/undo "
        proc.Verb = "runas"
        Try
            Process.Start(proc)
            ' We have to catch this exception
            ' in case the user clicks "No" in the UAC
            ' dialog. Otherwise, we get an error
            ' that says that the operation was
            ' canceled by the user.
        Catch ex As System.ComponentModel.Win32Exception
        End Try
    End Sub

    Private Sub buttonCancel_Click(sender As Object, e As EventArgs) Handles buttonCancel.Click
        Me.Close()
    End Sub

    Private Sub linklabelAbout_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linklabelAbout.LinkClicked
        ' Show an About window and give a link to th license.
        MessageBox.Show("HideSettingsPages Minimal GUI version 0.1" & vbCrLf &
                        "Copyright 2017 Drew Naylor. Licensed under Gnu GPL v3+." & vbCrLf &
                        "See <http://www.gnu.org/licenses/> for the full license." & vbCrLf &
                        "Any copyrights or trademarks owned by Microsoft or other" & vbCrLf &
                        "companies or people are owned by them.")
    End Sub
End Class