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>

bu Aralık 25, 2014 Komentar

Google Facebook Twitter More

• Pinterest
• Digg
• Linkedin
• Stumbleupon
• Delicious
• Tumblr
• BufferApp
• Pocket
• Evernote

Related Posts

• SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1Computest Cihazları hakkında bilgi almak isterseniz burayı tıklayınSES KAYIT VE EKRAN YAKALAMA v.1.0.0.1 PROJ
• DLL uygulaması ve Class modul Kod örneğiDLL uygulaması ve Class modul Kod örneği       İNDİR  Dll Kodları' NOT: Yapılandır
• BAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORMBAŞLIKSIZ, TAŞINABİLİR VE BOYUTLANIR FORM  KODLARI           İNDİR' başlıksız form
• VB.Net Uygulamasına Harita Eklemekİkinci el araç alım satımında kullanılan cihazlar hakkında bilgi almak isterseniz burayı tıklayınNOT : İntern
• EKRAN KORUYUCU (LOGO)LOGONUZU EKRAN KORUYUCU OLARAK KULLANABİLEN  PROJE  ÖRNEĞİKOD İNDİREXE İNDİR NOT : EkranKoruyucu.EXE pro
• RADYOLU MP3 ÇALAR Sadece (EXE) Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın ErAsMP3 V2.08.2015 MP3 VE RADYO - K

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

4/ 5

Oleh bu