C# KOD ÖRNEKLERİ: WIN 8 VE 8.1 İÇİN AYARLAR KOD ÖRNEĞİ

COMPUTEST Cihazları hakkında bilgi almak isterseniz burayı tıklayın

WINDOWS 10 İÇİN AYARLAR KOD PROJESİ İNDİR

WINDOWS 10 (sadece exe Pro) İNDİR

NOT : Ana Sayfanın alt solundaki Soru işaretli ikon üzerine gidildiğinde Sağdaki Açıklama Text kısmı görüntülenir. Fare Düğmeden uzaklaşınca Menü düğmeleri görüntülenir (3 ve 1. resim)

WIN 8 , 8.1 ve WIN 10 İÇİNAYARLAR (Sadece EXE Pro) 16.10.2015 İNDİR

WIN 8 , 8.1 ve WIN 10 İÇİN AYARLAR KOD ÖRNEĞİ İNDİR

Imports System.Environment
Imports System.Net
Imports System.IO

Public Class Form1

Private yol As String = Application.StartupPath

#Region "   FORM İŞLEMLERİ  "

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If Me.Top < 0 Or Me.Left < 0 Then
            Me.Top = 100 : Me.Left = 500
        End If
        SaveSetting(Application.ProductName, Application.ProductName, "Üst", Me.Top)
        SaveSetting(Application.ProductName, Application.ProductName, "Sol", Me.Left)
        SaveSetting(Application.ProductName, Application.ProductName, " Tab index", TabControl1.SelectedIndex)
        SaveSetting(Application.ProductName, Application.ProductName, "Onay", OnayChk.Checked)
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListeYukle(OzelKlasörListesi, GetType(Environment.SpecialFolder))
        Me.Text = "WINDOWS 8  AYARLARI" & "- V." & Application.ProductVersion
        Me.Top = GetSetting(Application.ProductName, Application.ProductName, "Üst", 300)
        Me.Left = GetSetting(Application.ProductName, Application.ProductName, "Sol", 500)
        If Me.Top < 0 Or Me.Left < 0 Then
            Me.Top = 100 : Me.Left = 500
        End If
        TabControl1.SelectedIndex = GetSetting(Application.ProductName, Application.ProductName, " Tab index", 0)
        OnayChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Onay", OnayChk.Checked)

'FORMUN AUTOSİZEMODE= growandshrink  'yapılınca boyut sabitlenir
        Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        LinkLabel1.Text = "Bilgisayar Dünyası"
        LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil.blogspot.com/")
        Dim sys As String = My.Computer.Info.OSFullName
        'Windos 8 veya 8.1 veya win 10 Pro değilse Düğmeyi Pasif yap
        If sys <> "Microsoft Windows 8.1 Single Language" And _
            sys <> "Microsoft Windows 8 Single Language" And _
            sys <> "Microsoft Windows 10 Pro" Then Win10Btn.Enabled = False : Win10BaslangicMn.Enabled = False

End Sub

#Region "  Enum (Sıralama) İşleme..."

Private Sub ListeYukle(ByVal lst As ListBox, ByVal typ As Type)
        lst.DataSource = System.Enum.GetNames(typ)
    End Sub

Private Function GetSpecialFolderFromList() As Environment.SpecialFolder
        Return CType(System.Enum.Parse(GetType(Environment.SpecialFolder), _
        OzelKlasörListesi.SelectedItem.ToString), Environment.SpecialFolder)
    End Function

Private Sub ListeYukle(ByVal lst As ListBox, ByVal ic As ICollection)
        Dim astrItems(ic.Count - 1) As String
        ic.CopyTo(astrItems, 0)
        lst.DataSource = astrItems
    End Sub
#End Region

Private Sub OzelKlasörListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OzelKlasörListesi.SelectedIndexChanged
        Dim sf As Environment.SpecialFolder

sf = GetSpecialFolderFromList()
        If OzelKlasörListesi.Text = "MyComputer" Then
            OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
            Exit Sub
        End If
        OzelKlasorLbl.Text = GetFolderPath(sf)

End Sub
#End Region

#Region "   LİSTEYE EKLENEN KOMUTLAR.."

Private Sub HizBul()
        Try
            Dim SaveFile As New StreamWriter("c:\Yeniden.vbs")
            SaveFile.Write(YenidenBaslatTxt.Text)
            SaveFile.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

#End Region

#Region "  DENETİM MASASI  "

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        If My.Computer.Network.IsAvailable = False Then
            MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
            Exit Sub
        End If
        System.Diagnostics.Process.Start(e.Link.LinkData)
    End Sub

#End Region

#Region "  KAPAT, UYKU, KİLİTLE, YENİDEN BAŞLAT, OTURUM KAPAT "

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Shell("Shutdown -s")  '>> Kapat
        'Shell("Shutdown -r") >> Yeniden Başlat

'Shell("Shutdown -l") >> Oturumu kapat
        'Shell("Shutdown -h") >> Hibernate-Uyku
        'Shell("Shutdown -a") >> Abort
        If OnayChk.Checked = True Then
            Dim onay As DialogResult
            onay = MessageBox.Show("Bilgisayar Kapatılsın mı?", "Kapat", MessageBoxButtons.YesNo)
            If (onay = DialogResult.Yes) Then
                System.Diagnostics.Process.Start("shutdown.exe", "-s -t 0") 'Kapat
            End If
        Else
            System.Diagnostics.Process.Start("shutdown.exe", "-s -t 0") 'Kapat
        End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'Oturumu kapat -kilit
        Shell("Shutdown -l")
    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Kilitle - oklar
        Shell("rundll32.exe PowrProf.dll,SetSuspendState")
    End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

'Uykuya al -askıya al
        Shell("Shutdown -h")
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Hide()
        Exit Sub
    End Sub

#End Region

#Region " ONAY CHECKBOX.."

Private Sub OnayChk_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles OnayChk.CheckedChanged
        If OnayChk.Checked = True Then
            OnayChk.Text = "Kapatırken Onay iste"
        Else
            OnayChk.Text = "Onaysız Uygula"
        End If
    End Sub
#End Region

#Region "  BUTON İŞLEMLERİ.... "

Private Sub Button29_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button29.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button29, "Bilgisayarım ikonuna sağ tıkla," & vbCrLf & " Çıkan menüden Özellikleri Seç.")
    End Sub

Private Sub Win10BaslangicMn_Click(sender As System.Object, e As System.EventArgs) Handles Win10BaslangicMn.Click

If OnayChk.Checked = True Then
            Dim onay As DialogResult
            onay = MessageBox.Show("Başlangıç Menüsü Başlatılsın mı?", "Bilgisayar Kapatılır", MessageBoxButtons.YesNo)
            If (onay = DialogResult.Yes) Then
                DurumLbl.Text = Application.StartupPath & "\reg\Gelişmiş Başlangıç Menüsü.lnk"
                DurumLbl_Click(sender, e)

End If
            Exit Sub
        End If
    End Sub

Private Sub Win10BaslangicMn_MouseHover(sender As System.Object, e As System.EventArgs) Handles Win10BaslangicMn.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Win10BaslangicMn, "Devam" & vbCrLf & "Sorun Gider" & vbCrLf & "Bilgisayarı Kapat" _
                           & vbCrLf & "Bilgisayar Sıfırla" & vbCrLf & "Gelişmiş Seçenekler" _
                           & vbCrLf & "Sistem Geri Yükleme" & vbCrLf & "Sistem Görüntüsü" & vbCrLf & "Başlangıç Onarma" _
                           & vbCrLf & "Önceki Sürüme Geri Dön" & vbCrLf & "Sistem Görüntüsü Kurtarma" _
                           & vbCrLf & "Komut İstemi" & vbCrLf & "Başlangıç Ayarları" & vbCrLf & "Önceki Sürüme Dön" _
                           & vbCrLf & "Bu Bilgisayarı Sıfırlar" & vbCrLf & "Gelişmiş Seçenekler")
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        System.Diagnostics.Process.Start("C:\Windows\System32\regedt32.exe")
    End Sub

Private Sub OzelKlasörListesi_DoubleClick(sender As System.Object, e As System.EventArgs) Handles OzelKlasörListesi.DoubleClick

Dim KullAdi As String = SystemInformation.UserName
        Try
            If OzelKlasörListesi.Text = "MyComputer" Then
                System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
                Exit Sub
            End If
            If OzelKlasörListesi.Text = "Windows" Then
                Process.Start("explorer.exe", OzelKlasorLbl.Text)
                Exit Sub
            End If
            If OzelKlasörListesi.Text = "UserProfile" Then
                Process.Start("explorer.exe", OzelKlasorLbl.Text)
                Exit Sub

End If

Process.Start(OzelKlasorLbl.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        Process.Start("WinHlp32.exe")

End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        Process.Start("control", "printers")
    End Sub

Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        Process.Start("control", "userpasswords")

End Sub

Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        System.Diagnostics.Process.Start("control.exe")

End Sub

Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
        'hepsi de Bilgisayarım 'ı Açar
        '-------------------------------------
        ' userinit.exe bu bilgisayar
        'System.Diagnostics.Process.Start("userinit.exe")
        '-------------------------------------
        'OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
        System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
        '-------------------------------------
        'Bilgisayar klasörünü Aç
        'System.Diagnostics.Process.Start("Explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")

End Sub

Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
        Dim info As New ProcessStartInfo("taskmgr.exe")
        Process.Start(info)
    End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        On Error Resume Next
        'Masaüstü Simge Ayaraı
        DurumLbl.Text = yol & "\reg\MasaustuSimgeAyarlari.lnk"
        DurumLbl_Click(sender, e)

''"%windir%system32\Utilman.exe                          Erişim Kolaylığı merkezi

''Dim info As New ProcessStartInfo("Utilman.exe")  win 8.1 de çalışmıyor
        'Dim info As New ProcessStartInfo("control.exe")
        'Process.Start(info)
    End Sub

Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click
        ''appwiz.cpl          'program kaldır

Try
            Dim info As New ProcessStartInfo("%windir%system32\appwiz.cpl")
            Process.Start("appwiz.cpl")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

End Sub

Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click
        'calc()
        Dim info As New ProcessStartInfo("calc.exe")
        Process.Start(info)
    End Sub

Private Sub Button18_Click(sender As System.Object, e As System.EventArgs) Handles Button18.Click
        'ses düzey karıştırıcı   'C:\Windows\System32\SndVol.exe
        Try
            Dim info As New ProcessStartInfo("SndVol.exe")
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
        '"%windir%system32\perfmon.exe                         performans izleyici
        Try
            Dim info As New ProcessStartInfo("perfmon.exe")
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button20_Click(sender As System.Object, e As System.EventArgs) Handles Button20.Click
        ''Netplwiz.exe     Kullanıcı Hesapları
        Try
            Dim info As New ProcessStartInfo("Netplwiz.exe")
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
        '"%windir%system32\SystemPropertiesPerformance.exe      Sistem özellikleri-PERFORMANS
        Try
            Dim info As New ProcessStartInfo("SystemPropertiesPerformance.exe")
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        '"%windir%system32\cttune.exe                          ClearType Metin Ayarlayıcı

Dim info As New ProcessStartInfo("cttune.exe")
        Process.Start(info)
    End Sub

Private Sub Button23_Click(sender As System.Object, e As System.EventArgs) Handles Button23.Click
        'C:\Windows\System32\wscui.cpl                       Sistem ve Güvenlik İşlem Merkezi
        Dim info As New ProcessStartInfo("wscui.cpl")
        Process.Start(info)
    End Sub

Private Sub Button24_Click(sender As System.Object, e As System.EventArgs) Handles Button24.Click
        '"%windir%system32\UserAccountControlSettings.exe       Kullanıcı Hesbı denetim Ayarları (UAC)
        Dim info As New ProcessStartInfo("UserAccountControlSettings.exe")
        Process.Start(info)
    End Sub

Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles Button25.Click
        'Dosya Yedekle ve Geri Yükle
        Process.Start("control", "wscui.cpl")
    End Sub

Private Sub Button26_Click(sender As System.Object, e As System.EventArgs) Handles Button26.Click

'"%windir%system32\msconfig.exe                         Sistem yapılandırma
        Dim info As New ProcessStartInfo("msconfig.exe")
        Process.Start(info)
    End Sub

Private Sub Button28_Click(sender As System.Object, e As System.EventArgs) Handles Button28.Click
        '"%windir%system32\psr.exe                             Sorun Adınmlarını kaydedici
        Dim info As New ProcessStartInfo("psr.exe")
        Process.Start(info)
    End Sub

Private Sub Button29_Click(sender As System.Object, e As System.EventArgs) Handles Button29.Click
        '"C:\Windows\System32\control.exe system"                  Sistem
        DurumLbl.Text = "C:\Windows\System32\control.exe system"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button30_Click(sender As System.Object, e As System.EventArgs) Handles Button30.Click
        '"%windir%system32\hdwwiz.exe                          Donanım Ekleme Sihirbazı

Dim info As New ProcessStartInfo("hdwwiz.exe")
        Process.Start(info)
    End Sub

Private Sub Button31_Click(sender As System.Object, e As System.EventArgs) Handles Button31.Click
        '"%windir%system32\hdwwiz.cpl                          Aygıt yöneticisi

Dim info As New ProcessStartInfo("hdwwiz.cpl")
        Process.Start(info)
    End Sub

Private Sub Button32_Click(sender As System.Object, e As System.EventArgs) Handles Button32.Click
        '"%windir%system32\mmsys.cpl      ' Ses
        Dim info As New ProcessStartInfo("mmsys.cpl")
        Process.Start(info)
    End Sub

Private Sub Button33_Click(sender As System.Object, e As System.EventArgs) Handles Button33.Click
        '"C:\Windows\System32\control.exe system"                  Sistem

Dim info As New ProcessStartInfo("sysdm.cpl")
        Process.Start(info)
    End Sub

'Private Sub Button34_Click(sender As System.Object, e As System.EventArgs) Handles Button34.Click
    '    '"%windir%system32\msconfig.exe                         Sistem yapılandırma
    '    Dim info As New ProcessStartInfo("msconfig.exe")
    '    Process.Start(info)
    'End Sub

Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles Button35.Click
        '%windir%\system32\msinfo32.exe                        Sistem Bilgisi

Dim info As New ProcessStartInfo("msinfo32.exe")
        Process.Start(info)
    End Sub

Private Sub Button36_Click(sender As System.Object, e As System.EventArgs) Handles Button36.Click
        '"%windir%system32\SystemPropertiesHardware.exe         Sistem özellikleri-DONANIM

Dim info As New ProcessStartInfo("SystemPropertiesHardware.exe")
        Process.Start(info)
    End Sub

Private Sub Button37_Click(sender As System.Object, e As System.EventArgs) Handles Button37.Click
        '"%windir%system32\SystemPropertiesAdvanced.exe        Sistem özellikleri-GELİŞMİŞ
        Dim info As New ProcessStartInfo("SystemPropertiesAdvanced.exe")
        Process.Start(info)
    End Sub

''Private Sub Button38_Click(sender As System.Object, e As System.EventArgs)
    ''    '"%windir%system32\SystemPropertiesDataExecutionPrevention.exe      Sistem özellikleri-PERFORMANS SEÇENEKLERİ

''    'Dim info As New ProcessStartInfo("SystemPropertiesDataExecutionPrevention.exe")
    ''    'Process.Start(info)
    ''End Sub

Private Sub Button39_Click(sender As System.Object, e As System.EventArgs) Handles Button39.Click
        '"%windir%system32\rstrui.exe                          Sistemi geri Yükleme
        Try
            Process.Start("rstrui.exe")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button40_Click(sender As System.Object, e As System.EventArgs) Handles Button40.Click
        '%windir%\system32\wuapp.exe startmenu  GÜNCELLEMELER

Dim info As New ProcessStartInfo("wuapp.exe")
        Process.Start(info)
    End Sub

Private Sub Button41_Click(sender As System.Object, e As System.EventArgs) Handles Button41.Click
        '"C:\Windows\System32\ncpa.cpl" AĞ BAĞLANTILARI

Dim info As New ProcessStartInfo("ncpa.cpl")
        Process.Start(info)

' başka bir kodalama biçimi
        ''"C:\Windows\System32\ncpa.cpl"
        'DurumLbl.Text = "C:\Windows\System32\ncpa.cpl"
        'DurumLbl_Click(sender, e)

End Sub

Private Sub Button42_Click(sender As System.Object, e As System.EventArgs) Handles Button42.Click
        '"%windir%system32\msra.exe  
        Dim info As New ProcessStartInfo("msra.exe")
        Process.Start(info)
    End Sub

Private Sub Button43_Click(sender As System.Object, e As System.EventArgs) Handles Button43.Click

'"%windir%system32\SystemPropertiesRemote.exe           Sistem özellikleri-UZAK
        Dim info As New ProcessStartInfo("SystemPropertiesRemote.exe")
        Process.Start(info)
    End Sub

Private Sub Button44_Click(sender As System.Object, e As System.EventArgs) Handles Button44.Click
        '"%windir%system32\cliconfg.exe                        Ağ Yardımcı Programı
        Dim info As New ProcessStartInfo("cliconfg.exe")
        Process.Start(info)
    End Sub

'Private Sub Button50_Click(sender As System.Object, e As System.EventArgs) Handles Button50.Click

'    If My.Computer.Network.IsAvailable = True Then
    '        Dim info As New ProcessStartInfo("nslookup.exe")
    '        Process.Start(info)
    '    Else
    '        MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
    '    End If

'End Sub

Private Sub Button47_Click(sender As System.Object, e As System.EventArgs) Handles Button47.Click
        'C:\Windows\System32\control.exe /name Microsoft.Troubleshooting                       Windows Sorun Giderme
        DurumLbl.Text = "C:\Windows\System32\control.exe /name Microsoft.Troubleshooting"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button52_Click(sender As System.Object, e As System.EventArgs) Handles Button52.Click
        Try
            ''Process.Start("SndVol.exe")
            Dim info As New ProcessStartInfo("powercfg.cpl") 'Güç seçenekleri  
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button54_Click(sender As System.Object, e As System.EventArgs) Handles Button54.Click

Try
            Dim info As New ProcessStartInfo("timedate.cpl") 'Tarih Ve Saat
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button53_Click(sender As System.Object, e As System.EventArgs) Handles Button53.Click
        Try
            Dim info As New ProcessStartInfo("desk.cpl")  'Ekran Çözünürlüğü
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Win10Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Win10Btn.Click
        Try
            Dim info As New ProcessStartInfo("bthprops.cpl")  'Bilgisayar Ve Cihazlar WIN 8.1 için
            Process.Start(info)
            ''System.Diagnostics.Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button55_Click(sender As System.Object, e As System.EventArgs) Handles Button55.Click
        Try
            Dim info As New ProcessStartInfo("Firewall.cpl") 'Windows güvenlik Duvarı
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
        ''"%windir%system32\dfrgui.exe                          Disk Birleştirici
        Try
            Process.Start("dfrgui.exe")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button60_Click(sender As System.Object, e As System.EventArgs) Handles Button60.Click
        '%windir%\system32\cleanmgr.exe                            Disk Temizle

Dim info As New ProcessStartInfo("cleanmgr.exe")
        Process.Start(info)
    End Sub

Private Sub Button59_Click(sender As System.Object, e As System.EventArgs) Handles Button59.Click
        'C:\Windows\System32\diskmgmt.msc                         Disk Yönetimi (Bölümleme)
        Dim info As New ProcessStartInfo("diskmgmt.msc")
        Process.Start(info)
    End Sub

Private Sub Button17_Click(sender As System.Object, e As System.EventArgs) Handles Button17.Click
        '"%windir%system32\colorcpl.exe                        Renk Yönetimi

Dim info As New ProcessStartInfo("Colorcpl.exe")
        Process.Start(info)
    End Sub

Private Sub Button61_Click(sender As System.Object, e As System.EventArgs) Handles Button61.Click
        '"%windir%system32\dccw.exe                            Ekran Renk Ayarı
        Dim info As New ProcessStartInfo("dccw.exe")
        Process.Start(info)
    End Sub

Private Sub Button62_Click(sender As System.Object, e As System.EventArgs) Handles Button62.Click
        '"%windir%system32\DpiScaling.exe                    Ekranın Okunmasını Kolaylaştır

Dim info As New ProcessStartInfo("DpiScaling.exe")
        Process.Start(info)
    End Sub

Private Sub Button63_Click(sender As System.Object, e As System.EventArgs) Handles Button63.Click
        '"%windir%system32\MdSched.exe                          Windows Bellek tanılama
        Dim info As New ProcessStartInfo("MdSched.exe")
        Process.Start(info)
    End Sub

Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
        '"%windir%system32\dcomcnfg.exe                        Bileşen Hizmetleri
        Dim info As New ProcessStartInfo("dcomcnfg.exe")
        Process.Start(info)
    End Sub

Private Sub Button66_Click(sender As System.Object, e As System.EventArgs) Handles Button66.Click
        '"%windir%system32\msra.exe                            Windows Uzaktan Yardım
        '"%windir%system32\mstsc.exe                           Uzak masaÜstü bağlantısı

Dim info As New ProcessStartInfo("mstsc.exe")
        Process.Start(info)
    End Sub

Private Sub Button67_Click(sender As System.Object, e As System.EventArgs) Handles Button67.Click
        '%windir%\system32\narrator.exe    ekran okuyucu

Dim info As New ProcessStartInfo("narrator.exe")
        Process.Start(info)
    End Sub

Private Sub Button69_Click(sender As System.Object, e As System.EventArgs) Handles Button69.Click
        '"%windir%system32\SoundRecorder.exe                    Ses kaydedici

Dim info As New ProcessStartInfo("SoundRecorder.exe")
        Process.Start(info)
    End Sub

Private Sub Button70_Click(sender As System.Object, e As System.EventArgs) Handles Button70.Click
        '"%windir%system32\OptionalFeatures.exe                 Windows Özelliklerini Aç Kapat

Dim info As New ProcessStartInfo("OptionalFeatures.exe")
        Process.Start(info)
    End Sub

Private Sub Button71_Click(sender As System.Object, e As System.EventArgs) Handles Button71.Click
        '"%windir%system32\lpksetup.exe                        Görüntüleme Dillerini Ekle kaldır
        Dim info As New ProcessStartInfo("lpksetup.exe")
        Process.Start(info)
    End Sub

Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click
        '"%windir%system32\credwiz.exe                         Depolanan Kullanıcı Adı ve Parolalar
        Dim info As New ProcessStartInfo("credwiz.exe")
        Process.Start(info)
    End Sub

Private Sub Button73_Click(sender As System.Object, e As System.EventArgs) Handles Button73.Click
        '"%windir%system32\DevicePairingWizard.exe             Aygıt Ekle
        Dim info As New ProcessStartInfo("DevicePairingWizard.exe")
        Process.Start(info)
    End Sub

Private Sub Button74_Click(sender As System.Object, e As System.EventArgs) Handles Button74.Click

'"%windir%system32\SystemPropertiesProtection.exe       Sistem özellikleri-SİSTEM KORUMA
        Dim info As New ProcessStartInfo("SystemPropertiesProtection.exe") ' Sistem Koruma (Geri yükleme noktası oluşturma,silme)
        Process.Start(info)
    End Sub

Private Sub Button27_Click(sender As System.Object, e As System.EventArgs) Handles Button27.Click
        Try
            Dim info As New ProcessStartInfo("main.cpl")  ' Fare Özellikleri
            Process.Start(info)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

'Private Sub Button34_Click(sender As System.Object, e As System.EventArgs)
    '    'Menüde YOK
    '    ''Gözatma geçmişi sil
    '    'Shell("C:\Windows\System32\RunDll32.exe C:\Windows\System32\InetCpl.cpl,ClearMyTracksByProcess 1", AppWinStyle.Hide)
    'End Sub

#End Region

#Region "  BUTON BALON AÇIKLAMALARI.. "

Private Sub Button21_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button21.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button21, "*Performans Seçenekleri*" & vbCrLf & "Görsel Efekt Ayarları" _
                           & vbCrLf & "İşlemci zamanlaması" & vbCrLf & "Veri Yürütme Engellemesi.")
    End Sub

Private Sub Button23_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button23.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button23, "Güvenlik" & vbCrLf & "Bakım" _
                           & vbCrLf & "Sorun Giderme" & vbCrLf & "Kurtarma")
    End Sub

Private Sub Button25_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button25.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button25, "Kurtarma Sürücüsü oluştur" & vbCrLf & "Sistem Geri Yüklemeyi Aç" _
                           & vbCrLf & "Sistem Geri Yüklemeyi Yapılandır" & vbCrLf & "Dosya Geçmişi")
    End Sub
    Private Sub Button31_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button31.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button31, "Donanım Aygıtlarını ekleyin, görün, kaldırın")
    End Sub

Private Sub Button37_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button37.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button37, "Performans, kullanıcı profilleri, Başlangıç ve Kurtarma Ayarları")
    End Sub
    Private Sub Button39_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button39.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button39, "Bilgisayar Sisteminizi " & vbCrLf & "Önceki bir duruma yükleyin")

End Sub

Private Sub Button40_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button40.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button40, "Bilgisayarınızı  Güncelleyin")
    End Sub

Private Sub Button59_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button59.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button59, "Disk Bölümleyin")
    End Sub

Private Sub Button62_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button62.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button62, "** Görüntü Ayarları **" & vbCrLf & "1-Öğelerin ve Metin boyutunu değiştir" _
                           & vbCrLf & "2-Aygıt ve Yazıcılar" & vbCrLf & "3-Renk, Çözünürlük, Parlaklık Ayarla" _
                           & vbCrLf & "4-İkinci Ekrana yansıt" & vbCrLf & "5-Kişiselleştirme")
    End Sub

Private Sub Button74_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button74.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button74, "** SİSTEM KORUMASI **" & vbCrLf & "1-Sistem Geri Yükleme" _
                           & vbCrLf & "2-Geri Yükleme Ayar Yapılandırma" & vbCrLf & "3-Yükleme Noktası oluşturma" _
                           & vbCrLf & "4-Yükleme Noktası Silme")
    End Sub

#End Region

#Region "  G E N E L   İŞLEMLERİ.... "

Private Sub DurumLbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DurumLbl.Click

'On Error GoTo pas
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        Process.Start(DurumLbl.Text)
        '        Exit Sub
        'pas:

'        Dim processID As Integer
        '        Windows.Forms.Cursor.Current = Cursors.AppStarting
        '        processID = Shell(DurumLbl.Text, AppWinStyle.MaximizedFocus)
        '        'KlasorSecenekleri.lnk()
    End Sub

Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        On Error Resume Next
        DurumLbl.Text = yol & "\reg\KlasorSecenekleri.lnk"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
        On Error Resume Next
        'IP_Goster.vbs
        'DurumLbl.Text = yol & "\reg\ipconfig_all_komutu.vbs"
        If My.Computer.Network.IsAvailable = True Then
            'MsgBox("Bilgisayarınız İnternete Bağlı.")
            DurumLbl.Text = yol & "\reg\IP_Goster.vbs"
            'Process.Start(DurumLbl.Text)
            DurumLbl_Click(sender, e)
        Else
            MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
        End If

End Sub

Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click

DurumLbl.Text = "c:\windows\system32\inetcpl.cpl"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
        'Veri Yürütme engellemesi
        DurumLbl.Text = "c:\windows\system32\SystemPropertiesDataExecutionPrevention.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
        'bu kod ile diğeri aynı işlevi görür
        'Dim myProcess As Process = System.Diagnostics.Process.Start("C:\Windows\System32\cmd.exe /k %windir%\system32\ipconfig.exe")

Dim myProcess As Process = System.Diagnostics.Process.Start("C:\Windows\System32\cmd.exe", "/K ipconfig")
        myProcess.WaitForExit()
        myProcess.Close()

End Sub
    Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click
        'Ayrıntılı IP ve Mac Adresşini Gör
        DurumLbl.Text = yol & "\reg\ipconfig_all_komutu.vbs"
        If My.Computer.Network.IsAvailable = True Then
            DurumLbl.Text = yol & "\reg\ipconfig_all_komutu.vbs"
            DurumLbl_Click(sender, e)
        Else
            MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
        End If

End Sub

Private Sub Button77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'c:\windows\system32\cliconfg.exe                        Ağ Yardımcı Programı
        DurumLbl.Text = "c:\windows\system32\cliconfg.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button78.Click
        'internet Seçenekleri
        'c:\windows\system32\inetcpl.cpl  
        DurumLbl.Text = "c:\windows\system32\inetcpl.cpl"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button79.Click
        'c:\windows\system32\SystemPropertiesPerformance.exe      Sistem özellikleri-PERFORMANS
        DurumLbl.Text = "c:\windows\system32\SystemPropertiesPerformance.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button80.Click
        'c:\windows\system32\DpiScaling.exe                    Ekranın Okunmasını Kolaylaştır
        DurumLbl.Text = "c:\windows\system32\DpiScaling.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
        DurumLbl.Text = yol & "\reg\Varsayilanyaziciyidegistir.lnk"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
        On Error Resume Next
        'Yaziciekle.lnk
        DurumLbl.Text = yol & "\reg\Yaziciekle.lnk"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
        'c:\windows\system32\hdwwiz.cpl                            Aygıt yöneticisi
        DurumLbl.Text = "c:\windows\system32\hdwwiz.cpl"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
        'c:\windows\system32\MdSched.exe                          Windows Bellek tanılama

DurumLbl.Text = "c:\windows\system32\MdSched.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button75.Click
        'c:\windows\system32\SnippingTool.exe                    Ekran yakalama Aracı
        DurumLbl.Text = "c:\windows\system32\SnippingTool.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button76.Click
        'c:\windows\system32\ComputerDefaults.exe                Program erişimini ve Bilgisayar Varsayılanlarını Ayarla
        DurumLbl.Text = "c:\windows\system32\ComputerDefaults.exe"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button77_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click
        ''%windir%\system32\control.exe /name Microsoft.DefaultPrograms   Varsayılan Programlar
        DurumLbl.Text = "c:\windows\system32\control.exe /name Microsoft.DefaultPrograms"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button81.Click
        On Error Resume Next
        'KlavyelerveDiller.lnk
        DurumLbl.Text = yol & "\reg\KlavyelerveDiller.lnk"
        DurumLbl_Click(sender, e)
    End Sub

Private Sub Button14_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button14, "MasaÜstü Simge Ayarları" _
                           & vbCrLf & "1- Bilgisayar" & vbCrLf & "2- Kullanıcı Dosyaları " & vbCrLf & _
                           "3- Geri Dönüşüm Kutusu" & vbCrLf & "4_ Ağ" & vbCrLf & "5- Denetim Masası" & vbCrLf & "İkonları eklenip kaldırılır")
    End Sub

Private Sub OzelKlasorLbl_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OzelKlasorLbl.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Clipboard.SetText(OzelKlasorLbl.Text, TextDataFormat.Text)
        End If
    End Sub

Private Sub OzelKlasorLbl_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OzelKlasorLbl.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(OzelKlasorLbl, "Sağ Fare Tuşu ile Panoya alınır")

End Sub

Private Sub OzelKlasorLbl_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OzelKlasorLbl.MouseMove
        Windows.Forms.Cursor.Current = Cursors.Hand
    End Sub

Private Sub Button82_Click(sender As System.Object, e As System.EventArgs) Handles Button82.Click
        ' userinit.exe bu bilgisayar
        System.Diagnostics.Process.Start("userinit.exe")
    End Sub
#End Region

End Class
<textarea>

26 Aralık 2014 Cuma

WIN 8 VE 8.1 İÇİN AYARLAR KOD ÖRNEĞİ