VB.NET KOD ÖRNEKLERİ : Mart 2016

WİNDOWS 10 AYAR_Hlp -_KOD_- v.2.3.08.18 İNDİR

WİNDOWS 10 AYAR - v.2.3.08.18 -EXE İNDİR

11.11.2018 - v.2.3.08.18

Form1.vb

Imports System.Environment
Imports System.Net
Imports System.IO
' Register kayıt değişikliği için Yönetici yetkisi gerekir (My Project / View Windows setting) düğmesinden
'  <requestedexecutionlevel level="requireAdministrator" uiAccess="false" /> KISMINDAKİ
'renkli (asInvoker) ayarını  (requireAdministrator) olarak değiştir

Public Class Form1
    Public TaskMngKapalı As Boolean = False
    Friend yol As String = Application.StartupPath

#Region "   FORM İŞLEMLERİ  "

Private Property BluetoothAuthenticationAgent As Object

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)
    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 = "WIN 10 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
        'Ctrl+Alt+Del  tuşlarını iptal mesajı
        'Başlangıç Menüsü mesajı
        ToolTip1.SetToolTip(Win10BaslangicMn, "Fare Sağ Tuşu ile Yardım al") '& vbCrLf & "(Başlangıç Menüsü için) Kapat Onay iste Seçili olsun")
        ToolTip1.IsBalloon = True
        TabControl1.SelectedIndex = GetSetting(Application.ProductName, Application.ProductName, " Tab index", 0)

'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

#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 "  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

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

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
        'Shell("Shutdown -r") >> Yeniden Başlat
        Dim onay As DialogResult
        onay = MessageBox.Show("Yeniden Başlatılsın mı?", "Yeniden Başlat", MessageBoxButtons.YesNo)
        If (onay = DialogResult.Yes) Then
            Shell("Shutdown -r")
        End If

End Sub

#End Region

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

Private Sub Win10Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Win10Btn.Click
        'win 10 için
        Try
            'Dim info As New ProcessStartInfo("bthprops.cpl")  'Ayarlar WIN 10 için
            'Process.Start(info)
            DurumLbl.Text = Application.StartupPath & "\reg\Ayarlar.lnk"
            DurumLbl_Click(sender, e)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

End Sub

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

Dim onay As DialogResult
        onay = MessageBox.Show("WIN 10 Başlangıç Menüsü Başlatılsın mı?" & vbCrLf & " " & vbCrLf & " Lütfen Yardım kısmını okuyunuz " & vbCrLf & " İşlem Yapmayacaksanız (Hayır) ı seçiniz !", "WIN 10 Başlangıç Menü İşlemleri", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

If (onay = DialogResult.Yes) Then
            'onay>iptal=2, Hayır=7,Evet=6
            DurumLbl.Text = Application.StartupPath & "\reg\Gelişmiş Başlangıç Menüsü.lnk"
            DurumLbl_Click(sender, e)
        End If

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 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)

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_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button29.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button29, "Önce  (Sistem ve Güvenlik) sonra (system) " & vbCrLf & "Linkine Tıklayın")
    End Sub

Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click

System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
        'OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
        'C:\WINDOWS\system32
        ' '' ''System.Diagnostics.Process.Start("control.exe")

'Dim aranan As String = "System"      ' 0 cı indexten başlaması için -1 yazıyoruz.
        'Dim index As Integer = OzelKlasörListesi.FindString(aranan, -1)
        'If index <> -1 Then
        '    OzelKlasörListesi.SetSelected(index, True) ' varsa seçili duruma gelir
        'End If
        'DurumLbl.Text = "C:\WINDOWS\system32"
        '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

Call CtrAltDelFrm.TaskMng_Kilitle()

Me.Button33.Text = "Kilitli"
        Me.Button33.BackColor = Color.Red
    End Sub

Private Sub PictureBox23_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox23.Click
        'Taskmng aç
        Call CtrAltDelFrm.TaskMgr_Calistir()
    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 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
        ''win 10 için
        Try
            DurumLbl.Text = Application.StartupPath & "\reg\Ayarlar.lnk"
            DurumLbl_Click(sender, e)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

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 Button47_Click(sender As System.Object, e As System.EventArgs) Handles Button47.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 Button52_Click(sender As System.Object, e As System.EventArgs) Handles Button52.Click
        Try

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 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\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 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, "Uçak Modu,Donanım Aygıtlarını ekleyin, görün, kaldırın" & vbCrLf & "Resimli anlatım (Sağ fare Tuşuna) tıkla")
    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)
        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)
        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 Resume Next
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        Process.Start(DurumLbl.Text)
    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

Shell("C:\Windows\System32\RunDll32.exe C:\Windows\System32\InetCpl.cpl,ClearMyTracksByProcess 1", AppWinStyle.Hide)
    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

'DisplaySwitch.exe()
        System.Diagnostics.Process.Start("DisplaySwitch.exe")
    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

#Region "  YARDIM-AÇIKLAMA.... "
    Private Sub HlpPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles HlpPic.MouseHover
        If TabControl1.SelectedIndex > 0 Then Exit Sub
        If BilgiTxt.Visible = False Then
            '265; 318

BilgiTxt.Top = 86
            BilgiTxt.Left = 220
            BilgiTxt.Width = 265
            BilgiTxt.Height = 318
            BilgiTxt.BringToFront() 'Öne getir
            BilgiTxt.Visible = True
        Else
            BilgiTxt.Visible = False
        End If
    End Sub

Private Sub Form1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove, Win10BaslangicMn.MouseMove, Panel1.MouseMove
        BilgiTxt.Visible = False
    End Sub
#End Region

#Region "WIN 10 DA  ÇALIŞMAYAN. "

'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)
    '    MsgBox("Düzenlenecek")
    'End Sub
    'Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
    '    'Process.Start("WinHlp32.exe")
    '    MsgBox("Düzenlenecek")
    '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)
    '    MsgBox("Düzenlenecek")
    '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)
    '    MsgBox("Düzenlenecek")
    'End Sub
    'Private Sub Button69_Click(sender As System.Object, e As System.EventArgs) Handles Button69.Click
    '    '"%windir%system32\SoundRecorder.exe                    Ses kaydedici
    '    MsgBox("win 10 da yok")
    '    'Dim info As New ProcessStartInfo("SoundRecorder.exe")
    '    'Process.Start(info)
    'End Sub

#End Region

Private Sub PictureBox5_Click(sender As System.Object, e As System.EventArgs)
        Button11.PerformClick()
    End Sub

Private Sub Button12_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseDown
        ResimFrm.Dispose()
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\BuBilgisayar.png", True) 'AyarlardanSYS >BuBilgisayar.
            '565 x 351

ResimFrm.Width = 600
            ResimFrm.Height = 450

ResimFrm.Show()

End If
    End Sub

Private Sub Button29_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button29.MouseDown
        ResimFrm.Dispose()
        If e.Button = Windows.Forms.MouseButtons.Right Then

ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\AyarlardanSYS.png", True)
            '723 x 416
            ResimFrm.Width = 600
            ResimFrm.Height = 450
            '741x 454  AyarlardanSYS
            ResimFrm.Show()

End If
    End Sub

Private Sub Button40_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button40.MouseDown
        ResimFrm.Dispose()
        If e.Button = Windows.Forms.MouseButtons.Right Then
            '429x683
            ResimFrm.Width = 400
            ResimFrm.Height = 450
            ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\Ayarlar_Güncelle.png", True)
            ResimFrm.Show()

End If
    End Sub

Private Sub Win10Btn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Win10Btn.MouseDown
        ResimFrm.Dispose()
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ResimFrm.Width = 400
            ResimFrm.Height = 450
            ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\Ayarlar-mn.png", True)
            ResimFrm.Show()
        End If
    End Sub

Private Sub Win10BaslangicMn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Win10BaslangicMn.MouseDown
        ResimFrm.Dispose()
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ResimFrm.Width = 750
            ResimFrm.Height = 450
            ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\BaşlangıçMenüleri.png", True)
            ResimFrm.Show()
        End If
    End Sub

Private Sub Button31_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button31.MouseDown
        ResimFrm.Dispose()
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ResimFrm.Width = 500
            ResimFrm.Height = 250
            ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\Aygıt Yöneticisi-UçakModunu iptal_3.png", True)
            ResimFrm.Show()
        End If
    End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        Me.Button33.Text = "    Kilitle"
        Me.Button33.BackColor = SystemColors.Control
  
        Call CtrAltDelFrm.TaskMng_Ac()
        Call CtrAltDelFrm.TaskMgr_Calistir()
    End Sub

End Class

ResimFrm.vb

Public Class ResimFrm
    'Form Taşıma
    Const i As Integer = &HA1
    Const j As Integer = 2

Private Sub me_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        'Form Taşıma
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Capture = False
            Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
            Me.DefWndProc(msg)
        End If
    End Sub

Protected Overrides ReadOnly Property CreateParams() As CreateParams
        'Başlıksız Form kodu
        Get
            Const WS_CAPTION As Integer = &HC00000
            Dim baseParams As CreateParams = MyBase.CreateParams
            'Başlık olmasın
            baseParams.Style = baseParams.Style And Not WS_CAPTION

Return baseParams
        End Get
    End Property

Private Sub ResimFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim mousePos As Point = Control.MousePosition
        Me.Location = mousePos
    End Sub
    Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click
        Me.Dispose()
    End Sub
End Class

CtrAltDelFrm.vb

Imports Microsoft.Win32
Public Class CtrAltDelFrm
    Public TaskMngKapalı As Boolean = False

Public Sub TaskMgr_Calistir()
        'TaskManager (Görev Yöneticisini) Çalıştır
        Try

Dim info As New ProcessStartInfo("taskmgr.exe")
            Process.Start(info)

Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Public Sub TaskMng_Ac()
        Try

'TaskManager (Görev Yöneticisini) Aç
            Dim reg As Microsoft.Win32.RegistryKey
            Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

reg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(subKey)
            reg.DeleteValue("DisableTaskMgr")
            reg.SetValue("DisableTaskMgr", 0)
            reg.Close()

Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Public Sub TaskMng_Kilitle()
        'TaskManager (Görev Yöneticisini) Kilitle
        Try
            Dim reg As Microsoft.Win32.RegistryKey
            Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

reg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(subKey)
            reg.SetValue("DisableTaskMgr", "1")
            reg.Close()
            TaskMngKapalı = True
         
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

End Sub

End Class

Sayfalar

31 Mart 2016 Perşembe

WİNDOWS 10 AYARLARI