VB.NET KOD ÖRNEKLERİ : 2016

8 Kasım 2016 Salı

Resimleri Boyutlandırma

RESİM BOYUTLANDIRMA PROJE KODLARI İNDİR

Form Kodları

Imports System.IO
Imports System.Drawing

Public Class Form1

#Region "GENEL DEĞİŞKENLER"

Dim ResmiYenidenBoyutla As Image
    Dim ResimOzellikleri As Image
    Dim ResimEni As Integer
    Dim ResimBoyu As Integer

#End Region

#Region "FORM İŞLEMLERİ "

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Program kapatılırken karartma yapılır
        Dim iCount As Integer
        For iCount = 100 To 1 Step -2
            Me.Opacity = iCount / 100
            Threading.Thread.Sleep(10)
        Next
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AllowDrop = True 'Drag drop ile forma resim yüklemek için gerekli
    End Sub

#End Region

#Region "RESİM BOYUTLAMA PROSEDÜRLERİ"

Sub ResizeTheImage()
        ' (NumBoyYzdesi) değeri temelinde PictureBox'u boyutlandır..
        picBox.Image = Image.FromFile(LblYol.Text)
        Dim yeniEni As Integer = ((numBoyYzdesi.Value / 100) * ResimEni)
        Dim yeniBoyu As Integer = ((numBoyYzdesi.Value / 100) * ResimBoyu)
        Dim YeniBoyut As New Size(yeniEni, yeniBoyu)
        lblYeniBoyut.Text = yeniEni.ToString + " x " + yeniBoyu.ToString
        ResmiYenidenBoyutla = New Bitmap(picBox.Image, YeniBoyut)
        picBox.Image = ResmiYenidenBoyutla
        If YeniBoyut.Width < 400 Or YeniBoyut.Height < 400 Then
            Label4.Text = ""
            picBox.SizeMode = PictureBoxSizeMode.CenterImage
        Else
            Label4.Text = "Resim Boyutu artırılırken, 400 pixel üstü Görüntülerin buradaki görünümü küçültülür."
            picBox.SizeMode = PictureBoxSizeMode.Zoom
        End If
    End Sub

Sub ResimBoyutunuAl()
        ' PictureBox'un içine dosyadan genişlik ve yükseklik değerini alın. buna göre yakınlaştırma ve merkezi ayarlayın.
        ResimOzellikleri = Image.FromFile(LblYol.Text)
        ResimEni = ResimOzellikleri.Size.Width
        ResimBoyu = ResimOzellikleri.Size.Height
        If ResimEni < 400 Or ResimBoyu < 400 Then

picBox.SizeMode = PictureBoxSizeMode.CenterImage
        Else
            picBox.SizeMode = PictureBoxSizeMode.Zoom
        End If
        lblOrjBoyut.Text = ResimEni.ToString + " x " + ResimBoyu.ToString
    End Sub

Private Sub numBoyYzdesi_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numBoyYzdesi.ValueChanged
        'Görüntü PictureBox içine yüklendiğinde, yeniden boyutlandırmak için GC.Collect()  komutu ile (Garbage Collector) derleme yapılır
        Try
            ResizeTheImage() 'Resmi yeniden boyutlandırma işlemi yapılıyor
            lblDurum.Text = "Değişiklikler Saklanmadı"
            lblDurum.ForeColor = Color.DarkRed
            GC.Collect()

Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub

#End Region

#Region "Dosya Açmk ve Saklama işlemleri "

Private Sub btnDsySakla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDsySakla.Click
        '  Boyutlandırılan görüntüyü kaydet.
        If OpenFileDialog1.FileName = "" Then
            MsgBox("Yüklenecek görüntü yok." & vbCrLf & "Resim yükleyip yeniden deneyin.", vbOKOnly, "Hata")
            Exit Sub
        End If
        Try
            SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) + "_YeniBoyut" + OpenFileDialog1.DefaultExt
            If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                picBox.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                lblDurum.Text = "Değişiklikler kaydedildi"
                lblDurum.ForeColor = Color.Black
                LblYol.Text = SaveFileDialog1.FileName
                GC.Collect()
            End If
        Catch ex As Exception
            MsgBox("Geçerli bir dosya  ve konum seçtiğinizden emin olun.", vbOKOnly, "Hata")
            GC.Collect()
        End Try
    End Sub

Private Sub btnDsyAc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDsyAc.Click
        'PictureBox içine  açılan dosyayı göstermek için açar.
        lblYeniBoyut.Text = "" : lblOrjBoyut.Text = "" : numBoyYzdesi.Value = 100

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            LblYol.Text = OpenFileDialog1.FileName
            lblDurum.Text = "Resim Yüklendi"
            lblDurum.ForeColor = Color.Black
            picBox.Image = Image.FromFile(LblYol.Text)
            ResimBoyutunuAl()
        End If
    End Sub
#End Region

#Region " Label 'e tıklayarak dosya seçmeyi açmak"

Private Sub LblYol_Click(sender As System.Object, e As System.EventArgs) Handles LblYol.Click
        btnDsyAc.PerformClick()
    End Sub
#End Region

#Region " Balon Yazı  "

Private Sub btnDsyAc_MouseHover(sender As System.Object, e As System.EventArgs) Handles btnDsyAc.MouseHover
        ToolTip1.SetToolTip(btnDsyAc, "Resim Dosyası Yükle")
    End Sub

Private Sub btnDsySakla_MouseHover(sender As System.Object, e As System.EventArgs) Handles btnDsySakla.MouseHover
        ToolTip1.SetToolTip(btnDsySakla, "Resim Dosyası Sakla")
    End Sub
#End Region

#Region " Drag drop ile forma resim yüklemek "

Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop

Dim Dsy() As String = e.Data.GetData(DataFormats.FileDrop)

For Each path In Dsy

LblYol.Text = path
            picBox.Image = Image.FromFile(path)
            lblDurum.Text = "Resim Yüklendi"
            lblDurum.ForeColor = Color.Black
            picBox.Image = Image.FromFile(LblYol.Text)
            ResimBoyutunuAl()
        Next

OpenFileDialog1.FileName = LblYol.Text

End Sub

Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

#End Region

#Region " PicBox Arka Fonu Seçmek "
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then
            picBox.BackColor = SystemColors.ButtonHighlight
        Else
            picBox.BackColor = SystemColors.ActiveCaptionText
        End If
    End Sub

Private Sub lblDurum_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lblDurum.MouseDown
        'lblDurum 'a sağFare tuşu ile tıklandığında PicBox arka fonu "siyah" veye "Beyaz" yapılır
        If e.Button = Windows.Forms.MouseButtons.Right Then

If CheckBox1.Checked = False Then
                CheckBox1.Checked = True
            Else
                CheckBox1.Checked = False
            End If
        End If
    End Sub

#End Region

End Class

26 Mayıs 2016 Perşembe

Acronis True İmage İle Bootable USB Oluşturmak

Bir USB belleği; bootable (ön yüklenebilir bir disk) haline getirmek için komut istemini açıyoruz

Bilgisayardaki arama bölümüne cmd yazarak Komut İstemi ' ni açıyoruz

Diskpart Komutunu giriyoruz

1-diskpart
Komutunu girip enter tuşuna basarak diskpart aracına geçiş yapıyoruz.

(list disk) komutu ile bilgisayarımıza bağlı tüm diskleri listeliyoruz.

Bu bölümde kendi USB belleğimizi bulmamız ve disk numarasını öğrenmemiz gerekiyor. Bunu anlamanın en kolay yolu kapasitesini kontrol etmektir. Örneğimizde "Disk 1" belleğimizi ifade ediyor. Eğer yanlış disk kodunu kullanırsanız başka bir diski silme ihtimaliniz bulunmakta. Lütfen dikkatli olun.

2-select disk 1
(select disk 1) komutu ile belleğimizi seçiyoruz.

3-clean
(Clean) komutu ile seçtiğimiz disk temizleniyor

4-create partition primary
(create partition primary) komutunu vererek yeni bölüm oluşturuyoruz.

5-select partition 1
(Select partition primery) komutu ile de oluşturduğumuz bölümü seçiyoruz.

6-active
(active) komutunu girerek belleği aktif yapıyoruz

7-format quick fs=fat32
(format quick fs) komutu ile belleğimizi fat32 dosya sistemi ile biçimlendiriyoruz. Eğer quick komutunu eklemezseniz işlem uzun sürebilir.

8-assign

(Assign) komutu ile belleğimize bir harf atayıp işlemimizi bitiriyoruz. Eğer tüm işlemler başarılıysa artık komut penceresini kapatabiliriz.

Üstteki resimde Komutların toplu halini görüyorsunuz

Artık USB belleğimiz bootable hale geldi.
Şimdi Acronis True Images ISO dosyasından veya DVD içinde bulunan tüm dosyaları USB belleğimize kopyalıyoruz.

Kopyalama işlemi bittikten sonra belleğimizi kullanarak istediğimiz bilgisayara format atabiliriz.

Not: Bilgisayarın belleğinizi tanıması için Bios ayarlarındaki Boot menüsünden belleği en üst sıraya almanız gerekmektedir.
(Bootable Acranis True Image 2018) ISO Dosyası (614 MB) İNDİR
(Bootable Acranis True Image 2020) Türkçe ISO Dosyası (Alternatif) İNDİR
ISO Dosyasını Açmak için POWER ISO v4.7 İNDİR

Windows 8'i Silip Yerine Windows 7 Yüklemek için PDF Dosyasını İNDİR

25 Nisan 2016 Pazartesi

EKRANI ve GÖREV YÖNETİCİ MENÜSÜNÜ KİLİTLEME PROJE KODLARI

NOT: Win 10 için geçerlidir
EKRANI KİLİTLEME PROJE KODLARI _(V1.0.16) İNDİR

SADECE EXE PROGRAMI İNDİR

Win 7 için örnek
EKRAN KALKANI-KOD İNDİR

9 Nisan 2016 Cumartesi

ÇOKLU ALARM ÖRNEK PROJESİ

ÇOKLU ALARM PROJE KODLARI İNDİR

Public Class Form1
    Dim AlarmCal As Boolean = False
    Dim TimerAyarla As Boolean = False
    Dim eylemSuresi As Byte = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim xDizi As String
        Timer1.Enabled = True
        Timer2.Enabled = True
        ' Menüleri Boşalt
        alarm_Cmb1A.Items.Add("")
        alarm_Cmb2A.Items.Add("")
        alarm_Cmb3A.Items.Add("")
        alarm_Cmb1B.Items.Add("")
        alarm_Cmb2B.Items.Add("")
        alarm_Cmb3B.Items.Add("")
        'Saat Bölümünü doldur
        For n As Byte = 0 To 23
            xDizi = n
            IKI(xDizi)
            alarm_Cmb1A.Items.Add(xDizi)
            alarm_Cmb2A.Items.Add(xDizi)
            alarm_Cmb3A.Items.Add(xDizi)
        Next
        'Dakika Bölümünü doldur
        For n As Byte = 0 To 59
            xDizi = n
            IKI(xDizi)
            alarm_Cmb1B.Items.Add(xDizi)
            alarm_Cmb2B.Items.Add(xDizi)
            alarm_Cmb3B.Items.Add(xDizi)
        Next

End Sub

Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

Dim SesliUyar As Boolean = False
        If alarm_Cmb1A.Text <> "" And alarm_Cmb1B.Text <> "" Then SesliUyar = True
        If alarm_Cmb2A.Text <> "" And alarm_Cmb2B.Text <> "" Then SesliUyar = True
        If alarm_Cmb3A.Text <> "" And alarm_Cmb3B.Text <> "" Then SesliUyar = True
        If timer_LblKronometre.Text <> "00:00" Then SesliUyar = True
        If SesliUyar = True Then
            If MsgBox("Çıkmak istediğinizden emin misiniz?", _
            MsgBoxStyle.YesNo, "Çoklu Alarm Uyarısı") = MsgBoxResult.No Then
                e.Cancel = True
            End If
        End If

End Sub

Private Sub TimerButonları(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles timer_Btn10.Click, timer_Btn5.Click, timer_Btn1.Click, timer_BtnBASLAT.Click

Dim Btn_Text As Control = CType(sender, Control)
        Dim Ekle As Byte
        Dim Basamak As String

Select Case Btn_Text.Text
            Case "+1"
                Ekle = 1
            Case "+5"
                Ekle = 5
            Case "+10"
                Ekle = 10
            Case "Başla"
                timer_BtnBASLAT.Text = "Sıfırla"
                timer_BtnBASLAT.ForeColor = Color.Red
                TimerAyarla = True
                timer_LblKronometre.Enabled = True
                Exit Sub
            Case "Sıfırla"
                timer_BtnBASLAT.ForeColor = SystemColors.ControlText
                timer_BtnBASLAT.Text = "Başla"
                timer_BtnBASLAT.Enabled = False
                timer_LblKronometre.Enabled = False
                TimerAyarla = False
                timer_LblKronometre.Text = "00:00"
                Exit Sub
        End Select
        timer_BtnBASLAT.Enabled = True
        'TIMER  için 1, 5 veya 10 dakika ekle
        Basamak = Mid(timer_LblKronometre.Text, 1, 2) + Ekle
        IKI(Basamak)
        'iki basamaktaki sayı 99 dan büyükse çık
        'iki basamaklı sayıyı hatırla
        If Basamak > 99 Then Exit Sub
        'Değişiklikleri uygula
        timer_LblKronometre.Text = Basamak & ":" & Mid(timer_LblKronometre.Text, 4, 5)
    End Sub

Private Sub btnDUR_Click(sender As System.Object, e As System.EventArgs) Handles btnDUR.Click
        AlarmSesi("Dur")
        btnDUR.BackColor = SystemColors.Control
        btnDUR.ForeColor = SystemColors.ControlText
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'ALARM CODE

Dim SaatBLM As String = DateTime.Now.Hour  'Saat
        Dim DakikaBLM As String = DateTime.Now.Minute  'Dakika
        Dim SaniyeBLM As String = DateTime.Now.Second  'Saniye Bölümü

IKI(SaatBLM)
        IKI(DakikaBLM)
        IKI(SaniyeBLM)

SaatLbl.Text = SaatBLM & ":" & DakikaBLM & ":" & SaniyeBLM

If alarm_Cmb1A.Text = SaatBLM _
        And alarm_Cmb1B.Text = DakikaBLM _
        And SaniyeBLM = "00" Then
            AlarmSesi("Başla")
        End If

If alarm_Cmb2A.Text = SaatBLM _
        And alarm_Cmb2B.Text = DakikaBLM _
        And SaniyeBLM = "00" Then
            AlarmSesi("Başla")
        End If

If alarm_Cmb3A.Text = SaatBLM _
        And alarm_Cmb3B.Text = DakikaBLM _
        And SaniyeBLM = "00" Then
            AlarmSesi("Başla")
        End If

'TIMER KODLARI

If TimerAyarla = True Then

If timer_LblKronometre.Text = "00:00" Then
                TimerAyarla = False
                timer_BtnBASLAT.Text = "Başla"
                timer_BtnBASLAT.Enabled = False
                timer_LblKronometre.Enabled = False
                AlarmSesi("Başla")
                Exit Sub
            End If

If Mid(timer_LblKronometre.Text, 4, 5) <> "00" Then
                Dim SecilenKrnm As String = Mid(timer_LblKronometre.Text, 4, 5) - 1
                IKI(SecilenKrnm)
                timer_LblKronometre.Text = Mid(timer_LblKronometre.Text, 1, 2) & ":" & SecilenKrnm
            Else
                Dim Basamak As String = Mid(timer_LblKronometre.Text, 1, 2) - 1
                IKI(Basamak)
                timer_LblKronometre.Text = Basamak & ":" & "59"
            End If

End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If AlarmCal = True Then
            My.Computer.Audio.Play(My.Resources.BipBip, AudioPlayMode.Background)
            eylemSuresi += 1
         
        End If
        If eylemSuresi > 15 Then
            Timer2.Interval = 200
        End If
        If eylemSuresi > 215 Then
            AlarmSesi("Dur")
            btnDUR.BackColor = SystemColors.Control
            btnDUR.ForeColor = SystemColors.ControlText
        End If
    End Sub

Private Sub AlarmSesi(ByVal eylem)
        Select Case eylem
            Case "Başla"
                AlarmCal = True
                btnDUR.Enabled = True
                btnDUR.BackColor = Color.Red
                btnDUR.ForeColor = Color.White
            Case ("Dur")
                AlarmCal = False
                btnDUR.Enabled = False
                btnDUR.BackColor = SystemColors.Control
                btnDUR.ForeColor = SystemColors.ControlText
                eylemSuresi = 0
                Timer2.Interval = 1000
        End Select
    End Sub

Private Sub IKI(ByRef deger)
        If deger < 10 Then
            deger = "0" & deger
        End If
    End Sub

End Class

SON ÇALIŞILAN DOSYALAR

SON ÇALIŞILAN DOSYALARI GÖRME,ÇALIŞTIRMA.SİLME PROJESİ İNDİR

Imports System.IO, System.Diagnostics, System.ComponentModel

Public Class Form1

Dim SonCalDsyKlasoru As String = Environment.GetFolderPath(Environment.SpecialFolder.Recent)

Private Property eleman As ListViewItem

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        SCDsyGosterBtn.PerformClick()
    End Sub

Private Sub SCDsyGosterBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SCDsyGosterBtn.Click
        ListView1.Items.Clear()

Dim lstitem As New ListViewItem()
        imageList1.Images.Clear()
        For Each SonCalDsy In Directory.GetFiles(SonCalDsyKlasoru)
            Dim yol As String
            yol = Path.GetFileNameWithoutExtension(SonCalDsy)

imageList1.Images.Add(SonCalDsy, Icon.ExtractAssociatedIcon(SonCalDsy)) 'Dosya adı ve ikonu
            lstitem = ListView1.Items.Add(Path.GetFileNameWithoutExtension(SonCalDsy), SonCalDsy)
            lstitem.SubItems.Add(New FileInfo(SonCalDsy).CreationTime.ToLongDateString()) 'Tarih ToLongDateString
            lstitem.SubItems.Add(SonCalDsy) 'yol ekle
        Next
    End Sub

Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Try
            Process.Start(TextBox1.Text)

Catch m As Win32Exception
        End Try
    End Sub

Private Sub openToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcTSm.Click, DosyaAçTSmn.Click
        ListView1_DoubleClick(sender, e)
    End Sub

Private Sub openLocationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DsyKlsAcTsm.Click, DsyKlsAçTsmn.Click
        Process.Start(SonCalDsyKlasoru)
    End Sub

Private Sub TumSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TumSilTsm.Click
        For Each TumCalDsy In Directory.GetFiles(SonCalDsyKlasoru)

File.Delete(TumCalDsy)
        Next

ListView1.Items.Clear()
    End Sub

Dim DosyaSil As String

Private Sub SecilSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SecilSilTsm.Click
        For Each selected In ListView1.SelectedItems
            DosyaSil = selected.ToString.Remove(0, selected.ToString.IndexOf("{") + 1).Replace("}", "")
            File.Delete(DosyaSil)
            ListView1.Items.RemoveByKey(DosyaSil)
        Next
    End Sub

Private Sub SilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilTsm.Click
        File.Delete(ListView1.SelectedItems(0).Text)
        ListView1.Items.RemoveByKey(ListView1.SelectedItems(0).Text)
    End Sub

Private Sub ListView1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If (ListView1.SelectedItems.Count > 0) Then
                'contextMenuStrip3.Show(ListView1, 0, -50)
                contextMenuStrip1.Show(ListView1, ListView1.SelectedItems(0).Position.X + 20, ListView1.SelectedItems(0).Position.Y + 20)
            End If
        End If
    End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim sayi As Integer = ListView1.Items.Count
        Dim eleman As ListViewItem
        For i As Integer = 0 To sayi - 1
            eleman = ListView1.Items(i)
            If eleman.Selected Then
                Label1.Text = ListView1.Items(i).SubItems(0).Text
                TextBox1.Text = ListView1.Items(i).SubItems(2).Text

End If
        Next
    End Sub

#Region " ESC İLE KAPATMA, DELETE İLE SATIR SİLME...."

Private Sub ListView1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = Keys.Delete Then
            Call ListedenSatırSil()
        End If
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub

Public Sub ListedenSatırSil()
        On Error Resume Next
        Dim indeksler As ListView.SelectedIndexCollection = ListView1.SelectedIndices
        Dim index As Integer

TextBox1.Text = Nothing

For Each index In indeksler
            ListView1.Items.RemoveAt(index)
        Next

If index = 0 Then index = 0

index = index - 1

If index = -1 Then index = 0

eleman = ListView1.Items(index)
        eleman.Selected = True
        ListView1.Focus()

End Sub
#End Region

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim yol As String = Application.StartupPath & "\zzz"
        Try
            For Each file As IO.FileInfo In New IO.DirectoryInfo(yol).GetFiles("*.txt")
                If (Now - file.CreationTime).Days < 7 Then file.Delete()

Next
            MsgBox(yol & " *.TXT Dosyaları silindi")
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

End Sub
End Class

31 Mart 2016 Perşembe

WİNDOWS 10 AYARLARI

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

8 Kasım 2016 Salı

Resimleri Boyutlandırma

26 Mayıs 2016 Perşembe

Acronis True İmage İle Bootable USB Oluşturmak

25 Nisan 2016 Pazartesi

EKRANI ve GÖREV YÖNETİCİ MENÜSÜNÜ KİLİTLEME PROJE KODLARI

9 Nisan 2016 Cumartesi

ÇOKLU ALARM ÖRNEK PROJESİ

SON ÇALIŞILAN DOSYALAR

31 Mart 2016 Perşembe

WİNDOWS 10 AYARLARI