C# KOD ÖRNEKLERİ: 2014

26 Aralık 2014 Cuma

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>

9 Kasım 2014 Pazar

Çok İşlevli Proje

Servis Ekipmanları hakkında bilgi almak isterseniz burayı tıklayın

BİR ÇOK KÜÇÜK PROJEYİ BİR ARADA BARINDIRAN BİR PROJE İNDİR

21 Ekim 2014 Salı

GÖREV PLANLAMA PROGRAM ÖRNEĞİ

ANAFORM KODLARI:

Option Explicit On
Option Strict On

Imports System.Globalization

Public Class Anafrm
    Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal process As IntPtr, ByVal minimumWorkingSetSize As Integer, ByVal maximumWorkingSetSize As Integer) As Integer

Dim izinVer As Boolean = False

#Region " BUTON STİLİ... "

Private Sub btnTakvim_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles btnTakvim.MouseMove
        btnTakvim.ForeColor = Color.Red
    End Sub
    Private Sub btnTakvim_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTakvim.MouseLeave
        btnTakvim.ForeColor = Color.Black
    End Sub
    Private Sub btnGorevler_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles btnGorevler.MouseMove
        btnGorevler.ForeColor = Color.Red
    End Sub

Private Sub btnGorevler_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGorevler.MouseLeave
        btnGorevler.ForeColor = Color.Black
    End Sub

Private Sub btnAyarlar_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles btnAyarlar.MouseMove
        btnAyarlar.ForeColor = Color.Red
    End Sub

Private Sub btnAyarlar_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAyarlar.MouseLeave
        btnAyarlar.ForeColor = Color.Black
    End Sub

Private Sub btnYardim_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles btnYardim.MouseMove
        btnYardim.ForeColor = Color.Red
    End Sub

Private Sub btnYardim_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnYardim.MouseLeave
        btnYardim.ForeColor = Color.Black
    End Sub

#End Region

Private Sub BellegeGom()
        GC.Collect()
        GC.WaitForPendingFinalizers()

If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
            SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)
        End If
    End Sub

Private Sub GrupAyariGuncelle()
        lblSifreNotu.Visible = False

If (Not SifreAyarla()) And (My.Settings.SifreTipi <> 0) Then
            lblSifreNotu.Visible = True
        End If
    End Sub

Public Sub GorevYukle()
        Dim HerGorev As Task
        Dim Item As ListViewItem
        Dim I As Integer = 0

LWgorevler.Items.Clear()

If Gorevler Is Nothing Then Exit Sub

For Each HerGorev In Gorevler
            If (HerGorev.Tip = 0) Or (HerGorev.Tip = 1) Then
                Takvim.AddBoldedDate(HerGorev.BitimTarihi)
            End If

Item = LWgorevler.Items.Add(HerGorev.isim)
            Item.Tag = I

If HerGorev.Etkin = False Then
                Item.ForeColor = Color.Gray
            End If
            Item.Checked = HerGorev.Etkin

Item.SubItems.Add(ZamanDizesi(HerGorev.Tip, HerGorev.BitimTarihi))
            Item.SubItems.Add(EylemicinDize(HerGorev.GorevTipi, HerGorev.EylemTipi))

I += 1
        Next

Takvim.UpdateBoldedDates()
        Takvim_DateSelected(Nothing, Nothing)
    End Sub

Public Sub GrupDegisti(ByRef Grup As GroupBox)
        If ((My.Settings.SifreTipi = 1) And (Not izinVer)) Or ((My.Settings.SifreTipi = 2) And (Not izinVer) And (Grup Is grpAyarlar)) Then
            GrbTakvim.Visible = False
            grpGorevler.Visible = False
            grpAyarlar.Visible = False
            grpYardim.Visible = False
            grpSifreYoksa.Visible = True
        Else
            If Grup.Visible = False Then
                GrbTakvim.Visible = False
                grpGorevler.Visible = False
                grpAyarlar.Visible = False
                grpYardim.Visible = False
                grpSifreYoksa.Visible = False
                Grup.Visible = True
            End If
        End If
    End Sub

Private Sub Anafrm_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        BellegeGom()
    End Sub

Private Sub Anafrm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Dispose(True)
        'End
    End Sub

Private Sub Anafrm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If (My.Settings.SifreTipi = 0) Or (Not SifreAyarla()) Then
            RadioBtnSifresiz.Checked = True
            lblYanSifre.Visible = False
            txtYanSifre.Visible = False
            btnSifreDogrula.Visible = False
            LblSifreKontrol.Visible = False
            izinVer = True
        Else
            lblYanSifre.Visible = True
            txtYanSifre.Visible = True
            btnSifreDogrula.Visible = True
            LblSifreKontrol.Visible = True
            btnEkle.Enabled = False
            EkleBtn.Enabled = False
            LblSifreKontrol.ForeColor = Color.DarkRed

If My.Settings.SifreTipi = 1 Then
                RadioBtnSifreli.Checked = True
                LblSifreKontrol.Text = "Şifre olmadan Göremez ve Görev düzenleyemezsiniz."
            Else
                RadioBtnSifreDegis.Checked = True
                LblSifreKontrol.Text = "Şifre olmadan Görev düzenleyemezsiniz."
            End If
        End If

btnTakvim.ForeColor = Color.Gray
        btnGorevler.ForeColor = Color.Gray
        btnAyarlar.ForeColor = Color.Gray
        btnYardim.ForeColor = Color.Gray

GrupDegisti(GrbTakvim)
        GrupAyariGuncelle()
    End Sub

Private Sub btnTakvim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTakvim.Click
        GrupDegisti(GrbTakvim)
    End Sub

Private Sub btnGorevler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGorevler.Click
        GrupDegisti(grpGorevler)
    End Sub

Private Sub GorevLW_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles GorevLW.ItemCheck
        If e.NewValue = CheckState.Checked Then
            Gorevler(CInt(GorevLW.Items(e.Index).Tag)).Etkin = True
            GorevLW.Items(e.Index).ForeColor = Color.Black
        Else
            Gorevler(CInt(GorevLW.Items(e.Index).Tag)).Etkin = False
            GorevLW.Items(e.Index).ForeColor = Color.Gray
        End If

GorevGuncelle()
    End Sub

Private Sub LWgorevler_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LWgorevler.SelectedIndexChanged
        If (My.Settings.SifreTipi = 2) And (Not izinVer) Then
            btnKaldir.Enabled = False
            btnDuzenle.Enabled = False
        Else
            If LWgorevler.SelectedItems.Count = 0 Then
                If Not btnKaldir.Enabled = False Then btnKaldir.Enabled = False
                If Not btnDuzenle.Enabled = False Then btnDuzenle.Enabled = False
                btnGit.Enabled = False
            Else
                If Not btnKaldir.Enabled = True Then btnKaldir.Enabled = True
                If Not btnDuzenle.Enabled = True Then btnDuzenle.Enabled = True

If (Gorevler(CInt(LWgorevler.Items(LWgorevler.SelectedItems(0).Index).Tag)).Tip = 0) Or (Gorevler(CInt(LWgorevler.Items(LWgorevler.SelectedItems(0).Index).Tag)).Tip = 1) Then
                    btnGit.Enabled = True
                Else
                    btnGit.Enabled = False
                End If
            End If
        End If
    End Sub

Private Sub Takvim_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles Takvim.DateSelected
        Dim HerGorev As Task
        Dim Oge As ListViewItem
        Dim I As Integer = 0

GorevLW.Items.Clear()
        If Gorevler Is Nothing Then Exit Sub
        For Each HerGorev In Gorevler
            If ((HerGorev.Tip = 0) Or (HerGorev.Tip = 1)) And (HerGorev.BitimTarihi.Year = Takvim.SelectionRange.Start.Year) And (HerGorev.BitimTarihi.Month = Takvim.SelectionRange.Start.Month) And (HerGorev.BitimTarihi.Day = Takvim.SelectionRange.Start.Day) Then
                Oge = GorevLW.Items.Add(HerGorev.isim)
                Oge.Tag = I

If HerGorev.Etkin = False Then
                    Oge.ForeColor = Color.Gray
                End If

Oge.Checked = HerGorev.Etkin
                Oge.SubItems.Add(EylemicinDize(HerGorev.GorevTipi, HerGorev.EylemTipi))
            End If

I += 1
        Next

If GorevLW.SelectedItems.Count = 0 Then
            If Not KaldirBtn.Enabled = False Then KaldirBtn.Enabled = False
            If Not DuzenleBtn.Enabled = False Then DuzenleBtn.Enabled = False
        Else
            If Not KaldirBtn.Enabled = True Then KaldirBtn.Enabled = True
            If Not DuzenleBtn.Enabled = True Then DuzenleBtn.Enabled = True
        End If
    End Sub

Private Sub GorevLW_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GorevLW.SelectedIndexChanged
        If (My.Settings.SifreTipi = 2) And (Not izinVer) Then
            KaldirBtn.Enabled = False
            DuzenleBtn.Enabled = False
        Else
            If GorevLW.SelectedItems.Count = 0 Then
                If Not KaldirBtn.Enabled = False Then KaldirBtn.Enabled = False
                If Not DuzenleBtn.Enabled = False Then DuzenleBtn.Enabled = False
            Else
                If Not KaldirBtn.Enabled = True Then KaldirBtn.Enabled = True
                If Not DuzenleBtn.Enabled = True Then DuzenleBtn.Enabled = True
            End If
        End If
    End Sub

Private Sub EkleBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EkleBtn.Click
        Dim YeniGorevEkle As New GorevEklefrm
        YeniGorevEkle.dtpTarih.Value = Takvim.SelectionRange.Start
        YeniGorevEkle.ShowDialog(Me)
    End Sub

Private Sub btnEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEkle.Click
        Dim YeniGorevEkle As New GorevEklefrm
        YeniGorevEkle.ShowDialog(Me)
    End Sub

Private Sub LWgorevler_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles LWgorevler.ItemCheck
        If e.NewValue = CheckState.Checked Then
            Gorevler(CInt(LWgorevler.Items(e.Index).Tag)).Etkin = True
            LWgorevler.Items(e.Index).ForeColor = Color.Black
        Else
            Gorevler(CInt(LWgorevler.Items(e.Index).Tag)).Etkin = False
            LWgorevler.Items(e.Index).ForeColor = Color.Gray
        End If

GorevGuncelle()
    End Sub

Private Sub KaldirBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaldirBtn.Click
        If GorevLW.SelectedItems.Count = 0 Then Exit Sub
        If MsgBox("Görevi kaldırmak istediğinizden emin misiniz '" & Gorevler(CInt(GorevLW.SelectedItems(0).Tag)).isim & "'?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "Görev Zamanla") = MsgBoxResult.Yes Then
            GorevKaldir(CInt(GorevLW.Items(GorevLW.SelectedItems(0).Index).Tag))
            GorevGuncelle()
            GorevYukle()
        End If
    End Sub

Private Sub btnKaldir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaldir.Click
        If LWgorevler.SelectedItems.Count = 0 Then Exit Sub
        If MsgBox("Görevi kaldırmak istediğinizden emin misiniz '" & Gorevler(CInt(LWgorevler.SelectedItems(0).Tag)).isim & "'?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "Görev Zamanla") = MsgBoxResult.Yes Then
            GorevKaldir(CInt(LWgorevler.Items(LWgorevler.SelectedItems(0).Index).Tag))
            GorevGuncelle()
            GorevYukle()
        End If
    End Sub

Private Sub btnDuzenle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDuzenle.Click
        Dim YeniGorevEkle As GorevEklefrm

If LWgorevler.SelectedItems.Count > 0 Then
            YeniGorevEkle = New GorevEklefrm
            YeniGorevEkle.Duzenle(CInt(LWgorevler.Items(LWgorevler.SelectedItems(0).Index).Tag))
            YeniGorevEkle.ShowDialog(Me)
        End If
    End Sub

Private Sub DuzenleBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DuzenleBtn.Click
        Dim YeniGorevEkle As GorevEklefrm

If GorevLW.SelectedItems.Count > 0 Then
            YeniGorevEkle = New GorevEklefrm
            YeniGorevEkle.Duzenle(CInt(GorevLW.Items(GorevLW.SelectedItems(0).Index).Tag))
            YeniGorevEkle.ShowDialog(Me)
        End If
    End Sub

Private Sub btnAyarlar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAyarlar.Click
        GrupDegisti(grpAyarlar)
    End Sub

Private Sub btnSifreAyarla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreAyarla.Click
        SifreHataUyarisiVer.Clear()
        If TxtSifre.Text = TxtSifreTekrari.Text Then
            If TxtSifre.Text <> "" Then
                SifreyiAyarla(TxtSifre.Text)
                izinVer = True
                GrupAyariGuncelle()
                MsgBox("Parola kurulmuştur. Şifrenizi unutmayın!" & vbCrLf & "Şifreniz : " & TxtSifre.Text, MsgBoxStyle.Information, "Görev Zamanla")
            Else
                SifreHataUyarisiVer.SetError(TxtSifre, "Lütfen bir şifre girin.")
            End If
        Else
            SifreHataUyarisiVer.SetError(TxtSifreTekrari, "aynı şifreleri yazmanız gerekir.")
        End If
    End Sub

Private Sub RadioBtnSifresiz_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioBtnSifresiz.CheckedChanged
        If RadioBtnSifresiz.Checked And Me.Visible = True Then
            My.Settings.SifreTipi = 0
            SifreyiAyarla("")
            GrupAyariGuncelle()
        End If
    End Sub

Private Sub RadioBtnSifreli_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioBtnSifreli.CheckedChanged
        If RadioBtnSifreli.Checked And Me.Visible = True Then
            My.Settings.SifreTipi = 1
            GrupAyariGuncelle()
        End If
    End Sub

Private Sub RadioBtnSifreDegis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioBtnSifreDegis.CheckedChanged
        If RadioBtnSifreDegis.Checked And Me.Visible = True Then
            My.Settings.SifreTipi = 2
            GrupAyariGuncelle()
        End If
    End Sub

Private Sub btnDogrulama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreDogrula.Click
        If SifreDogrula(txtYanSifre.Text) Then
            txtYanSifre.Enabled = False
            btnSifreDogrula.Enabled = False
            LblSifreKontrol.Visible = True
            LblSifreKontrol.ForeColor = Color.DarkGreen
            LblSifreKontrol.Text = "Görüntüleyebilir ve görevleri düzenleyebilirsiniz."

izinVer = True
            btnEkle.Enabled = True
            EkleBtn.Enabled = True
            LWgorevler_SelectedIndexChanged(Nothing, Nothing)
            GorevLW_SelectedIndexChanged(Nothing, Nothing)

GrupDegisti(GrbTakvim)
        Else
            LblSifreKontrol.Text = "Yanlış şifre."
        End If
    End Sub

Private Sub chkBaslarken_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBaslarken.CheckedChanged
        Dim StartupKey As Microsoft.Win32.RegistryKey

My.Settings.Baslangicta = chkBaslarken.Checked

StartupKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        If chkBaslarken.Checked Then
            StartupKey.SetValue("GörevZamanla", Application.ExecutablePath & " -startup")
        Else
            StartupKey.DeleteValue("GörevZamanla", False)
        End If
    End Sub

Private Sub btnYardim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYardim.Click
        GrupDegisti(grpYardim)
    End Sub

Private Sub btnYedekOlustur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYedekOlustur.Click
        If YedekAlSaveFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.CopyFile(System.AppDomain.CurrentDomain.BaseDirectory() & "Görevler.dat", YedekAlSaveFileDlg.FileName, True)
            MsgBox("Görevler yedeklenmiş.", MsgBoxStyle.Information, "Görev Zamanla")
        End If
    End Sub

Private Sub btnYedektenYukle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYedektenYukle.Click
        If YedektenYukleSaveFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            If MsgBox("yedeği geri yüklemek istediğinizden emin misiniz?" & vbCrLf & "Bu varolan görevler üzerine yazılır.", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Görev Zamanla") = MsgBoxResult.Yes Then
                My.Computer.FileSystem.CopyFile(YedektenYukleSaveFileDlg.FileName, System.AppDomain.CurrentDomain.BaseDirectory() & "Görevler.dat", True)
                Gorevler = Nothing
                GorevleriOku()
                GorevYukle()
                MsgBox("Görev yedeklemesi restore edilmiştir.", MsgBoxStyle.Information, "Görev Zamanla")
            End If
        End If
    End Sub

Private Sub btnGit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGit.Click
        If LWgorevler.SelectedItems.Count > 0 Then
            Takvim.SetDate(Gorevler(CInt(LWgorevler.Items(LWgorevler.SelectedItems(0).Index).Tag)).BitimTarihi)
            Takvim_DateSelected(Nothing, Nothing)
            GrupDegisti(GrbTakvim)
        End If

End Sub

End Class

Görev Ekleme Formu

Option Explicit On
Option Strict On

Public Class GorevEklefrm
    Dim Kapatizini As Boolean = False
    Dim DuzenleModu As Boolean = False
    Dim GorevID As Integer

Public Sub Duzenle(ByVal GorevIndex As Integer)
        DuzenleModu = True
        GorevID = GorevIndex
        cmbTip.SelectedIndex = 0
        cmbGorevTipi.SelectedIndex = 0
        cmbEylemTipi.SelectedIndex = 0
        cmbSes.SelectedIndex = 0

With Gorevler(GorevIndex)
            Me.Text = "GörevZamanla - Görev Düzenle"
            lblBaslik.Text = "Görev Düzenle"

cmbTip.SelectedIndex = .Tip
            Select Case .Tip
                Case 0
                    dtpTarih.Value = .BitimTarihi
                    mtbTarih.Text = .BitimTarihi.ToString("HH:mm")
                Case 1
                    dtpTarih.Value = .BitimTarihi
                Case 2
                    mtbTarih.Text = .BitimTarihi.ToString("HH:mm")
            End Select

cmbGorevTipi.SelectedIndex = .GorevTipi
            Select Case .GorevTipi
                Case 0
                    cmbEylemTipi.SelectedIndex = .EylemTipi
                Case 1
                    txtKomutlar.Text = .EylemDizesi
                Case 2
                    cmbSurecListesi.Text = .EylemDizesi
                Case 3
                    If .EylemTipi = 0 Then
                        rdbBalon.Checked = True
                    Else
                        rdbMsjKutusu.Checked = True
                    End If

txtMesaj.Text = .EylemDizesi
                Case 4
                    Select Case .EylemTipi
                        Case 0
                            rdbKopya.Checked = True
                            txtilk.Text = .EylemDizesi.Split("|".ToCharArray)(0)
                            txtikinci.Text = .EylemDizesi.Split("|".ToCharArray)(1)
                        Case 1
                            rdbAddegis.Checked = True
                            txtilk.Text = .EylemDizesi.Split("|".ToCharArray)(0)
                            txtikinci.Text = .EylemDizesi.Split("|".ToCharArray)(1)
                        Case 2
                            rdbSil.Checked = True
                            txtilk.Text = .EylemDizesi
                    End Select
            End Select

txtAdi.Text = .isim
            If .Ses_Etkin = False Then
                cmbSes.SelectedIndex = 0
            Else
                Select Case .SesDosyasi
                    Case "1"
                        cmbSes.SelectedIndex = 1
                    Case "2"
                        cmbSes.SelectedIndex = 2
                    Case "3"
                        cmbSes.SelectedIndex = 3
                    Case "4"
                        cmbSes.SelectedIndex = 4
                    Case Else
                        cmbSes.SelectedIndex = 5
                End Select
            End If

chkOnay.Checked = .Bilgi_iste
            If .Bilgi_iste Then
                txtOnayMsj.Text = .Bilgi_iste_Msj
            End If
            chkOtomatikOnayla.Checked = CBool(IIf(.OtomatikOnayla = 0, False, True))
            If .OtomatikOnayla <> 0 Then nudOtoOnay.Value = .OtomatikOnayla

chkEtkin.Checked = .Etkin
            chkBirKez.Checked = .bir_kez
            chkConfirm_CheckedChanged(Nothing, Nothing)
        End With
    End Sub

Private Sub GorevEklefrm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Not Kapatizini Then
            If MsgBox("Sihirbazı kapatmak" & vbCrLf & "istiyormusunuz?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Görev Zamanla") = MsgBoxResult.No Then
                e.Cancel = True
            End If
        End If
    End Sub

Private Sub GorevEklefrm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not DuzenleModu Then
            chkOnay.Checked = False
            chkConfirm_CheckedChanged(Nothing, Nothing)
            cmbTip.SelectedIndex = 0
            cmbGorevTipi.SelectedIndex = 0
            cmbEylemTipi.SelectedIndex = 0
            cmbSes.SelectedIndex = 0
        End If

btnYenile_Click(Nothing, Nothing)
    End Sub

Private Sub cmbGorevTipi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGorevTipi.SelectedIndexChanged
        pnlEylem0.Visible = False
        pnlEylem1.Visible = False
        pnlEylem2.Visible = False
        pnlEylem3.Visible = False
        pnlEylem4.Visible = False

Select Case cmbGorevTipi.SelectedIndex
            Case 0
                pnlEylem0.Visible = True
            Case 1
                pnlEylem1.Visible = True
            Case 2
                pnlEylem2.Visible = True
            Case 3
                pnlEylem3.Visible = True
            Case 4
                pnlEylem4.Visible = True
        End Select
    End Sub

Private Sub cmbTip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTip.SelectedIndexChanged
        Select Case cmbTip.SelectedIndex
            Case 0
                dtpTarih.Enabled = True
                mtbTarih.Enabled = True
            Case 1
                dtpTarih.Enabled = True
                mtbTarih.Enabled = False
            Case 2
                dtpTarih.Enabled = False
                mtbTarih.Enabled = True
            Case 3
                dtpTarih.Enabled = False
                mtbTarih.Enabled = False
        End Select
    End Sub

Private Sub btnileri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnileri.Click
        Dim Ses_Etkin As Boolean
        Dim SesDosyasi As String = ""
        Dim EylemTipi As Integer
        Dim EylemDizesi As String = ""
        Dim BitimTarihi As Date
        Dim I As Integer

SifreHataUyarisi.Clear()
        If pnlZaman.Visible = True Then
            If (cmbTip.SelectedIndex = 0) Or (cmbTip.SelectedIndex = 2) Then
                If (mtbTarih.Text Like "* *") Or (mtbTarih.Text Like "*:") Or (mtbTarih.Text Like ":*") Then
                    SifreHataUyarisi.SetError(mtbTarih, "Yanlış zaman biçimi.")
                ElseIf (CInt(mtbTarih.Text.Split(":".ToCharArray)(0)) >= 0) And (CInt(mtbTarih.Text.Split(":".ToCharArray)(0)) <= 23) And (CInt(mtbTarih.Text.Split(":".ToCharArray)(1)) >= 0) And (CInt(mtbTarih.Text.Split(":".ToCharArray)(1)) <= 59) Then
                    pnlEylem.Visible = True
                    pnlZaman.Visible = False
                    btnGeri.Enabled = True
                    lblEylem.ForeColor = Color.Gray
                Else
                    SifreHataUyarisi.SetError(mtbTarih, "Yanlış zaman biçimi.")
                End If
            Else
                pnlEylem.Visible = True
                pnlZaman.Visible = False
                btnGeri.Enabled = True
                lblEylem.ForeColor = Color.Gray
            End If
        ElseIf pnlEylem.Visible = True Then
            Select Case cmbGorevTipi.SelectedIndex
                Case 1
                    If txtKomutlar.Text = "" Then
                        SifreHataUyarisi.SetError(txtKomutlar, "Dosyasının yolunu giriniz.")
                        Exit Sub
                    End If
                Case 2
                    If cmbSurecListesi.Text = "" Then
                        SifreHataUyarisi.SetError(cmbSurecListesi, "Bir işlem adını giriniz.")
                        Exit Sub
                    End If
                Case 3
                    If txtMesaj.Text = "" Then
                        SifreHataUyarisi.SetError(txtMesaj, "İleti gövdesini giriniz.")
                        Exit Sub
                    End If
                Case 4
                    If txtilk.Text = "" Then
                        SifreHataUyarisi.SetError(txtilk, "Bir dosya adı girmelisiniz.")

If Not rdbSil.Checked Then
                            If txtikinci.Text = "" Then
                                SifreHataUyarisi.SetError(txtikinci, "Bir dosya adı girmelisiniz.")
                            End If
                        End If

Exit Sub
                    End If

If Not rdbSil.Checked Then
                        If txtikinci.Text = "" Then
                            SifreHataUyarisi.SetError(txtikinci, "Bir dosya adı girmelisiniz.")
                            Exit Sub
                        End If
                    End If
            End Select

pnlEylem.Visible = False
            pnlSecenek.Visible = True
            btnileri.Text = "Son"
            lblSecenek.ForeColor = Color.Gray
        Else
            If (cmbSes.SelectedIndex = 5) And (txtSes.Text = "") Then
                SifreHataUyarisi.SetError(txtSes, "Bir ses dosyası seçiniz.")
                Exit Sub
            End If

If chkOnay.Checked And (txtOnayMsj.Text = "") Then
                SifreHataUyarisi.SetError(txtOnayMsj, "Buraya bir mesaj yazın.")
                Exit Sub
            End If

If txtAdi.Text = "" Then
                SifreHataUyarisi.SetError(txtAdi, "Görev adını giriniz.")
                Exit Sub
            End If

If Gorevler Is Nothing Then GoTo Ok
            For I = 0 To (Gorevler.Length - 1)
                If (Gorevler(I).isim = txtAdi.Text) Then
                    If (Not DuzenleModu) Or (DuzenleModu And (I <> GorevID)) Then
                        SifreHataUyarisi.SetError(txtAdi, "Görev adı benzersiz olmalıdır.")
                        Exit Sub
                    End If
                End If
            Next

Ok:
            Select Case cmbTip.SelectedIndex
                Case 0
                    BitimTarihi = CDate(dtpTarih.Value.ToString("\#%M/dd/yyyy ") & CDate(mtbTarih.Text).ToString("HH:mm:00 tt") & dtpTarih.Value.ToString("\#"))
                Case 1
                    BitimTarihi = dtpTarih.Value
                Case 2
                    BitimTarihi = CDate(mtbTarih.Text)
            End Select

Ses_Etkin = True
            Select Case cmbSes.SelectedIndex
                Case 0
                    Ses_Etkin = False
                Case 1
                    SesDosyasi = "1"
                Case 2
                    SesDosyasi = "2"
                Case 3
                    SesDosyasi = "3"
                Case 4
                    SesDosyasi = "4"
                Case 5
                    SesDosyasi = txtSes.Text
            End Select

Select Case cmbGorevTipi.SelectedIndex
                Case 0
                    EylemTipi = cmbEylemTipi.SelectedIndex
                Case 3
                    If rdbBalon.Checked Then
                        EylemTipi = 0
                    Else
                        EylemTipi = 1
                    End If
                Case 4
                    If rdbKopya.Checked Then EylemTipi = 0
                    If rdbAddegis.Checked Then EylemTipi = 1
                    If rdbSil.Checked Then EylemTipi = 2
            End Select

Select Case cmbGorevTipi.SelectedIndex
                Case 1
                    EylemDizesi = txtKomutlar.Text
                Case 2
                    EylemDizesi = cmbSurecListesi.Text
                Case 3
                    EylemDizesi = txtMesaj.Text
                Case 4
                    Select Case EylemTipi
                        Case 0
                            EylemDizesi = txtilk.Text & "|" & txtikinci.Text
                        Case 1
                            EylemDizesi = txtilk.Text & "|" & txtikinci.Text
                        Case 2
                            EylemDizesi = txtilk.Text
                    End Select
            End Select

If Not DuzenleModu Then
                YeniGorevEkle(txtAdi.Text, cmbTip.SelectedIndex, BitimTarihi, chkEtkin.Checked, chkBirKez.Checked, Ses_Etkin, SesDosyasi, chkOnay.Checked, txtOnayMsj.Text, CInt(IIf(chkOtomatikOnayla.Checked, nudOtoOnay.Value, 0)), cmbGorevTipi.SelectedIndex, EylemTipi, EylemDizesi)
            Else
                GorevDuzenle(GorevID, txtAdi.Text, cmbTip.SelectedIndex, BitimTarihi, chkEtkin.Checked, chkBirKez.Checked, Ses_Etkin, SesDosyasi, chkOnay.Checked, txtOnayMsj.Text, CInt(IIf(chkOtomatikOnayla.Checked, nudOtoOnay.Value, 0)), cmbGorevTipi.SelectedIndex, EylemTipi, EylemDizesi)
            End If
            GorevGuncelle()

If Anafrm.Visible = True Then Anafrm.GorevYukle()

Kapatizini = True
            Close()
        End If
    End Sub

Private Sub cmdRunGozat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRunGozat.Click
        OpenFileDlg.Filter = "Tüm Dosyalar (*.*)|*.*"
        If OpenFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            If txtKomutlar.Text = "" Then
                txtKomutlar.Text = OpenFileDlg.FileName
            Else
                txtKomutlar.Text &= vbCrLf & OpenFileDlg.FileName
            End If
        End If
    End Sub

Private Sub btnYenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYenile.Click
        Dim Processes() As System.Diagnostics.Process = Diagnostics.Process.GetProcesses
        Dim Process As System.Diagnostics.Process

cmbSurecListesi.Items.Clear()
        For Each Process In Processes
            cmbSurecListesi.Items.Add(Process.ProcessName)
        Next
    End Sub

Private Sub rdbKopya_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbKopya.CheckedChanged, rdbBalon.CheckedChanged
        lblilk.Text = "Bu dosyayı kopyalayın:"
        txtilk.Enabled = True
        btnilkGozat.Enabled = True
        lblikinci.Text = "Kopyala:"
        txtikinci.Enabled = True
        btnilkGozat.Enabled = True
    End Sub

Private Sub rdbAddegis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbAddegis.CheckedChanged
        lblilk.Text = "Bu dosyayı yeniden adlandırın:"
        txtilk.Enabled = True
        btnilkGozat.Enabled = True
        lblikinci.Text = "Yeniden adlandırın:"
        txtikinci.Enabled = True
        btnilkGozat.Enabled = True
    End Sub

Private Sub rdbSil_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbSil.CheckedChanged
        lblilk.Text = "Bu dosyayı silin:"
        txtilk.Enabled = True
        btnSecondBrowse.Enabled = False
        lblikinci.Text = ""
        txtikinci.Enabled = False
        btnilkGozat.Enabled = True
    End Sub

Private Sub btnFirstBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirstBrowse.Click, btnilkGozat.Click
        OpenFileDlg.Filter = "Tüm Dosyalar (*.*)|*.*"
        If OpenFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtilk.Text = OpenFileDlg.FileName
            SaveFileDlg.FileName = OpenFileDlg.FileName
        End If
    End Sub

Private Sub btnSecondBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSecondBrowse.Click ', btnilkGozat.Click
        If SaveFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then txtikinci.Text = SaveFileDlg.FileName
    End Sub

Private Sub btnSoundBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSesGozat.Click
        OpenFileDlg.Filter = "Wav Dosyalar (*.wav)|*.wav|Tüm Dosyalar (*.*)|*.*"
        If OpenFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then txtSes.Text = OpenFileDlg.FileName
    End Sub

Private Sub cmbSound_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSes.SelectedIndexChanged
        If cmbSes.SelectedIndex = 5 Then
            txtSes.Enabled = True
            btnSesGozat.Enabled = True
        Else
            txtSes.Enabled = False
            btnSesGozat.Enabled = False
        End If
    End Sub

Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeri.Click
        If pnlEylem.Visible = True Then
            pnlEylem.Visible = False
            pnlZaman.Visible = True
            btnGeri.Enabled = False
            lblEylem.ForeColor = Color.Black
        Else
            pnlSecenek.Visible = False
            pnlEylem.Visible = True
            btnileri.Text = "İleri >"
            lblSecenek.ForeColor = Color.Black
        End If
    End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKapat.Click
        Me.Close()
    End Sub

Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnizleme.Click
        Try
            Select Case cmbSes.SelectedIndex
                Case 0
                    My.Computer.Audio.Stop()
                Case 1
                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\1.wav")
                Case 2
                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\2.wav")
                Case 3
                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\3.wav")
                Case 4
                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\4.wav")
                Case 5
                    My.Computer.Audio.Play(txtSes.Text)
            End Select
        Catch
        End Try
    End Sub

Private Sub chkConfirm_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOnay.CheckedChanged
        chkOtomatikOnayla.Enabled = chkOnay.Checked
        nudOtoOnay.Enabled = chkOnay.Checked
    End Sub

End Class

Onaylama Formu

Option Explicit On
Option Strict On

Public Class Onaylafrm
    Dim GorevID As Integer
    Dim GeriSay As Integer

Public Sub Init(ByVal ilkGörevID As Integer)
        GorevID = ilkGörevID
        lblOnayBaslik.Text = "Çalıştırmak istediğinizden emin misiniz '" & Gorevler(GorevID).isim & _
            "' (" & EylemicinDize(Gorevler(GorevID).GorevTipi, Gorevler(GorevID).EylemTipi) & ")?"
        lblMesajOnay.Text = Gorevler(GorevID).Bilgi_iste_Msj

If Gorevler(GorevID).OtomatikOnayla = 0 Then
            lblOtokapa.Visible = False
        Else
            GeriSay = Gorevler(GorevID).OtomatikOnayla
            lblOtokapa.Text = GeriSay & " Saniye içinde otomatik onaylanacak..."
            TimerOtoOnayla.Enabled = True
        End If
    End Sub

Private Sub TimerOtoOnayla_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerOtoOnayla.Tick
        GeriSay -= 1
        lblOtokapa.Text = GeriSay & "Saniye içinde onayla..."

If GeriSay = 0 Then
            GorevBaslat(GorevID, False)
            Me.Close()
        End If
    End Sub

Private Sub btnHayir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHayir.Click
        Me.Close()
    End Sub

Private Sub btnEvet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEvet.Click
        GorevBaslat(GorevID, False)
        Me.Close()
    End Sub
 
End Class

Parola Formu

Option Explicit On
Option Strict On

Public Class Parolafrm
    Dim GorevModuEkle As Boolean

Public Sub Init(ByVal GorevEkle As Boolean)
        GorevModuEkle = GorevEkle
        If GorevEkle Then
            lblSifre.Text = "Görev eklemek için şifre girmeniz gerekir:"
        Else
            lblSifre.Text = "Çıkmak için doğru parolayı girin:"
        End If
    End Sub

Private Sub btnTamam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTamam.Click
        Dim YeniGorevEkle As GorevEklefrm

If SifreDogrula(txtSifre.Text) Then
            If GorevModuEkle Then
                YeniGorevEkle = New GorevEklefrm
                YeniGorevEkle.Show()
                Me.Close()
            Else
                Application.Exit()
            End If
        Else
            MsgBox("Yanlış şifre.", MsgBoxStyle.Critical, "Görev zamanlayıcı")
        End If
    End Sub

Private Sub btniptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btniptal.Click
        Me.Close()
    End Sub

End Class

Tray Formu

Option Explicit On
Option Strict On

Public Class Trayfrm
    Private Sub AnaFormuGoster()
        Dim SifreTipi As Integer = My.Settings.SifreTipi

If Anafrm.Visible = False Then
            Anafrm.chkBaslarken.Checked = My.Settings.Baslangicta
            Select Case SifreTipi
                Case 0
                    Anafrm.RadioBtnSifresiz.Checked = True
                Case 1
                    Anafrm.RadioBtnSifreli.Checked = True
                Case 2
                    Anafrm.RadioBtnSifreDegis.Checked = True
            End Select

Anafrm.Show()
            Anafrm.GorevYukle()
        Else
            Anafrm.Activate()
        End If
    End Sub

Private Sub frmTray_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Dim I As Integer
        Dim StartupKey As Microsoft.Win32.RegistryKey

Me.Visible = False

StartupKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        If My.Settings.Baslangicta = True Then
            StartupKey.SetValue("GörevZamanla", Application.ExecutablePath & " -startup")
        Else
            StartupKey.DeleteValue("GörevZamanla", False)
        End If

Tray_NotifyIcon.BalloonTipIcon = ToolTipIcon.Info
        Tray_NotifyIcon.Icon = Me.Icon

My.Application.ChangeCulture("en-US")
        GorevleriOku()

If Command() = "-startup" Then
            For I = 0 To (Gorevler.Length - 1)
                If Gorevler(I).Tip = 3 Then
                    If Gorevler(I).Etkin Then GorevBaslat(I)
                ElseIf Gorevler(I).Tip = 1 Then
                    If (Gorevler(I).BitimTarihi.Year = Date.Now.Year) And (Gorevler(I).BitimTarihi.Month = Date.Now.Month) And (Gorevler(I).BitimTarihi.Day = Date.Now.Day) Then
                        If Gorevler(I).Etkin Then GorevBaslat(I)
                    End If
                End If
            Next
        Else
            AnaFormuGoster()
        End If

GorevTimer.Enabled = True
    End Sub

Private Sub Tray_NotifyIcon_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tray_NotifyIcon.DoubleClick
        AnaFormuGoster()
    End Sub

Private Sub GorevTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GorevTimer.Tick
        Dim I As Integer
        Dim Now As Date = Date.Now

Tray_NotifyIcon.Visible = True

If Gorevler Is Nothing Then Exit Sub

For I = 0 To (Gorevler.Length - 1)

If Gorevler(I).Tip = 0 Then
                If (Gorevler(I).BitimTarihi.Year = Date.Now.Year) And _
                    (Gorevler(I).BitimTarihi.Month = Date.Now.Month) And _
                    (Gorevler(I).BitimTarihi.Day = Date.Now.Day) And _
                    (Gorevler(I).BitimTarihi.Hour = Date.Now.Hour) And _
                    (Gorevler(I).BitimTarihi.Minute = Date.Now.Minute) Then

If Gorevler(I).Etkin Then GorevBaslat(I)
                End If

ElseIf Gorevler(I).Tip = 2 Then
                If (Gorevler(I).BitimTarihi.Hour = Date.Now.Hour) And (Gorevler(I).BitimTarihi.Minute = Date.Now.Minute) Then
                    If Gorevler(I).Etkin Then GorevBaslat(I)
                End If
            End If
        Next
    End Sub

Private Sub mnuGoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGoster.Click
        AnaFormuGoster()
    End Sub

Private Sub mnuGorevEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGorevEkle.Click
        Dim YeniGorevEkle As GorevEklefrm

If (My.Settings.SifreTipi = 0) Or (Not SifreAyarla()) Then
            YeniGorevEkle = New GorevEklefrm
            YeniGorevEkle.ShowDialog(Me)
        Else
            Parolafrm.Show()
            Parolafrm.Init(True)
        End If
    End Sub

Private Sub mnuAyarlar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAyarlar.Click
        AnaFormuGoster()
        Anafrm.GrupDegisti(Anafrm.grpAyarlar)
    End Sub

Private Sub mnuCik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCik.Click
        If (My.Settings.SifreTipi = 0) Or (Not SifreAyarla()) Then
            Application.Exit()
        Else
            Parolafrm.Show()
            Parolafrm.Init(False)
        End If
    End Sub

End Class

Moduller

Imports System
Imports System.Runtime.InteropServices

Module ModulAPI
    ' Sabitler
    Const SE_PRIVILEGE_ENABLED As Integer = &H2
    Const TOKEN_QUERY As Integer = &H8
    Const TOKEN_ADJUST_PRIVILEGES As Integer = &H20
    Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege"
    ' Windows sabitleri 
    Const EWX_LOGOFF As Integer = &H0
    Const EWX_SHUTDOWN As Integer = &H1
    Const EWX_REBOOT As Integer = &H2
    Const EWX_FORCE As Integer = &H4
    Const EWX_POWEROFF As Integer = &H8
    Const EWX_FORCEIFHUNG As Integer = &H10
    'Yapı
    <StructLayout(LayoutKind.Sequential, Pack:=1)> _
    Friend Structure Luid
        Public Count As Integer
        Public Luid As Long
        Public Attr As Integer
    End Structure
    ' Kilit Çalışma istasyonu
    <DllImport("user32.dll", ExactSpelling:=True)> _
    Function LockWorkStation() As Boolean
    End Function
    ' Süreçleri Aç
    <DllImport("kernel32.dll", ExactSpelling:=True)> _
    Function GetCurrentProcess() As IntPtr
    End Function
    ' Jeton Sürecini aç
    <DllImport("advapi32.dll", SetLastError:=True)> _
    Function OpenProcessToken(ByVal h As IntPtr, ByVal acc As Integer, ByRef phtok As IntPtr) As Boolean
    End Function

<DllImport("advapi32.dll", SetLastError:=True)> _
    Friend Function LookupPrivilegeValue(ByVal host As String, ByVal name As String, ByRef pluid As Long) As Boolean
    End Function
    'Jeton yetkilerin  ayarlayın
    <DllImport("advapi32.dll", ExactSpelling:=True, SetLastError:=True)> _
    Friend Function AdjustTokenPrivileges(ByVal htok As IntPtr, ByVal disall As Boolean, ByRef newst As Luid, ByVal len As Integer, ByVal prev As IntPtr, ByVal relen As IntPtr) As Boolean
    End Function
    ' Windowstan çık
    <DllImport("user32.dll", ExactSpelling:=True, SetLastError:=True)> _
    Friend Function ExitWindowsEx(ByVal flg As Integer, ByVal rea As Integer) As Boolean
    End Function
    ' Windows alt yordamlarından çık
    Private Sub WindowstanCik(ByVal flg As Integer)
        Dim tp As Luid
        Dim hproc As IntPtr = GetCurrentProcess()
        Dim htok As IntPtr = IntPtr.Zero
        OpenProcessToken(hproc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, htok)
        tp.Count = 1
        tp.Luid = 0
        tp.Attr = SE_PRIVILEGE_ENABLED
        LookupPrivilegeValue(Nothing, SE_SHUTDOWN_NAME, tp.Luid)
        AdjustTokenPrivileges(htok, False, tp, 0, IntPtr.Zero, IntPtr.Zero)
        ExitWindowsEx(flg, 0)
    End Sub
    ' Kapat
    Public Sub WinKapat()
        WindowstanCik(EWX_SHUTDOWN)
    End Sub
    ' Yeniden Başlat
    Public Sub WinYenidenBaslat()
        WindowstanCik(EWX_REBOOT Or EWX_FORCE)
    End Sub
    ' oturumu Kapat
    Public Sub WinOturumKapat()
        WindowstanCik(EWX_LOGOFF)
    End Sub
    '^Kilitle
    Public Sub WinKilitle()
        LockWorkStation()
    End Sub
End Module

Option Explicit On
Option Strict On

Module mdlTasks

Public Structure Task
        Dim isim As String
        Dim Tip As Integer
        '0 - Belirli tarih. 
        '1 - açtıktan sonra Belirli tarih. 
        '2 - Her gün, bu sefer. 
        '3 - Her gün, açıldığında.
        Dim BitimTarihi As Date

Dim Etkin As Boolean
        Dim bir_kez As Boolean

Dim Ses_Etkin As Boolean
        Dim SesDosyasi As String

Dim Bilgi_iste As Boolean
        Dim Bilgi_iste_Msj As String
        Dim OtomatikOnayla As Integer

Dim GorevTipi As Integer
        '0 - Aksiyon 
        '1 - DOS Komutları 
        '2 - Close işlemi. 
        '3 - Mesaj 
        '4 - Dosyalar: Kopyala, Reisim, silin.
        Dim EylemTipi As Integer
        '0 
        '0 - Kapatma. 
        '1 - Yeniden. 
        '2 - Oturumu Kapat. 
        ' 3 
        ' 0 - Balon. 
        '1 - MessageBox. 
        ' 4 : 
        Dim EylemDizesi As String
        '1: DOS komut / s. 
        '2 : Süreç Adı. 
        '3 : Mesaj Metni. 
        '4: Dosya Adı 
        '1 - Yeniden adlandır. 
        '2 - Sil.
    End Structure

Public Gorevler() As Task

Public Function YeniGorevEkle(ByVal isim As String, ByVal Tip As Integer, ByVal BitimTarihi As Date, ByVal Etkin As Boolean, ByVal bir_kez As Boolean, ByVal Ses_Etkin As Boolean, ByVal SesDosyasi As String, ByVal Bilgi_iste As Boolean, ByVal Bilgi_iste_Msj As String, ByVal OtomatikOnayla As Integer, ByVal GorevTipi As Integer, ByVal EylemTipi As Integer, ByVal EylemDizesi As String) As Task
        Dim Position As Integer
        If Gorevler Is Nothing Then
            Position = 0
            ReDim Gorevler(Position)
        Else
            Position = Gorevler.Length
            ReDim Preserve Gorevler(Position)
        End If

Gorevler(Position).isim = isim
        Gorevler(Position).Tip = Tip
        Gorevler(Position).BitimTarihi = BitimTarihi
        Gorevler(Position).Etkin = Etkin
        Gorevler(Position).bir_kez = bir_kez
        Gorevler(Position).Ses_Etkin = Ses_Etkin
        Gorevler(Position).SesDosyasi = SesDosyasi
        Gorevler(Position).Bilgi_iste = Bilgi_iste
        Gorevler(Position).Bilgi_iste_Msj = Bilgi_iste_Msj
        Gorevler(Position).OtomatikOnayla = OtomatikOnayla
        Gorevler(Position).GorevTipi = GorevTipi
        Gorevler(Position).EylemTipi = EylemTipi
        Gorevler(Position).EylemDizesi = EylemDizesi

Return Gorevler(Position)
    End Function

Public Function GorevDuzenle(ByVal GorevIndex As Integer, ByVal isim As String, ByVal Tip As Integer, ByVal BitimTarihi As Date, ByVal Etkin As Boolean, ByVal bir_kez As Boolean, ByVal Ses_Etkin As Boolean, ByVal SesDosyasi As String, ByVal Bilgi_iste As Boolean, ByVal Bilgi_iste_Msj As String, ByVal OtomatikOnayla As Integer, ByVal GorevTipi As Integer, ByVal EylemTipi As Integer, ByVal EylemDizesi As String) As Task
        Gorevler(GorevIndex).isim = isim
        Gorevler(GorevIndex).Tip = Tip
        Gorevler(GorevIndex).BitimTarihi = BitimTarihi
        Gorevler(GorevIndex).Etkin = Etkin
        Gorevler(GorevIndex).bir_kez = bir_kez
        Gorevler(GorevIndex).Ses_Etkin = Ses_Etkin
        Gorevler(GorevIndex).SesDosyasi = SesDosyasi
        Gorevler(GorevIndex).Bilgi_iste = Bilgi_iste
        Gorevler(GorevIndex).Bilgi_iste_Msj = Bilgi_iste_Msj
        Gorevler(GorevIndex).OtomatikOnayla = OtomatikOnayla
        Gorevler(GorevIndex).GorevTipi = GorevTipi
        Gorevler(GorevIndex).EylemTipi = EylemTipi
        Gorevler(GorevIndex).EylemDizesi = EylemDizesi

Return Gorevler(GorevIndex)
    End Function

Public Sub GorevKaldir(ByVal GorevIndex As Integer)
        Dim I As Integer

For I = GorevIndex To (Gorevler.Length - 2)
            Gorevler(I) = Gorevler(I + 1)
        Next

ReDim Preserve Gorevler(Gorevler.Length - 2)
    End Sub

Public Sub GorevleriOku()
        Dim I As Integer
        Dim Delimiter(2) As String
        Dim Splitted() As String

Delimiter = New String() {Chr(1), Chr(2), Chr(1)}
        If My.Computer.FileSystem.FileExists(System.AppDomain.CurrentDomain.BaseDirectory() & "tasks.dat") Then
            Splitted = My.Computer.FileSystem.ReadAllText(System.AppDomain.CurrentDomain.BaseDirectory() & "tasks.dat").Split(Delimiter, StringSplitOptions.RemoveEmptyEntries)

For I = 0 To (Splitted.Length - 1)
                YeniGorevEkle(Mid(Splitted(I), 2), CInt(Mid(Splitted(I + 1), 2)), CDate(Mid(Splitted(I + 2), 2)), CBool(Mid(Splitted(I + 3), 2)), CBool(Mid(Splitted(I + 4), 2)), CBool(Mid(Splitted(I + 5), 2)), Mid(Splitted(I + 6), 2), CBool(Mid(Splitted(I + 7), 2)), Mid(Splitted(I + 8), 2), CInt(Mid(Splitted(I + 9), 2)), CInt(Mid(Splitted(I + 10), 2)), CInt(Mid(Splitted(I + 11), 2)), Mid(Splitted(I + 12), 2))
                I += 12
            Next
        End If
    End Sub

Public Sub GorevGuncelle()
        Dim EachTask As Task
        Dim FileContent As String = ""
        Dim First As Boolean = True
        Dim Delimiter As String = Chr(1) & Chr(2) & Chr(1) & "|"

For Each EachTask In Gorevler
            If Not First Then FileContent &= Delimiter
            If First Then FileContent &= "|"

FileContent &= EachTask.isim & Delimiter
            FileContent &= EachTask.Tip & Delimiter
            FileContent &= EachTask.BitimTarihi.ToString("\#%M/dd/yyyy hh:mm:00 tt\#") & Delimiter
            FileContent &= EachTask.Etkin & Delimiter
            FileContent &= EachTask.bir_kez & Delimiter
            FileContent &= EachTask.Ses_Etkin & Delimiter
            FileContent &= EachTask.SesDosyasi & Delimiter
            FileContent &= EachTask.Bilgi_iste & Delimiter
            FileContent &= EachTask.Bilgi_iste_Msj & Delimiter
            FileContent &= EachTask.OtomatikOnayla & Delimiter
            FileContent &= EachTask.GorevTipi & Delimiter
            FileContent &= EachTask.EylemTipi & Delimiter
            FileContent &= EachTask.EylemDizesi

First = False
        Next

My.Computer.FileSystem.WriteAllText(System.AppDomain.CurrentDomain.BaseDirectory() & "tasks.dat", FileContent, False)
    End Sub

Public Function ZamanDizesi(ByVal Tip As Integer, ByVal BitimTarihi As Date) As String
        Select Case Tip
            Case 0
                Return BitimTarihi.ToString("\B\u\ \g\u\n \>\ MM/dd/yyyy\, \v\e \bu\ >\ HH:mm \s\a\a\t\t\e")
            Case 1
                Return BitimTarihi.ToString("\Bu\ \T\a\r\i\h\t\e\ >\ MM/dd/yyyy\, \b\a\ş\l\a\t")
            Case 2
                Return BitimTarihi.ToString("\H\e\r \g\ü\n\  \bu\ >\ HH:mm \s\a\a\t\t\e")
            Case 3
                Return "Bilgisayar açıldığında"
        End Select

Return "Hata"
    End Function

Public Function EylemicinDize(ByVal GorevTipi As Integer, ByVal EylemTipi As Integer) As String
        Select Case GorevTipi
            Case 0
                Select Case EylemTipi
                    Case 0
                        Return "Kapat"
                    Case 1
                        Return "Tekrar Başlat"
                    Case 2
                        Return "Oturumu Kapat"
                End Select
            Case 1
                Return "Başlat"
            Case 2
                Return "Süreci Kapat"
            Case 3
                Select Case EylemTipi
                    Case 0
                        Return "Balon Mesajı"
                    Case 1
                        Return "Mesaj Kutusu"
                End Select
            Case 4
                Select Case EylemTipi
                    Case 0
                        Return "Dosya Kopyala"
                    Case 1
                        Return "Dosya Adı Değiştir"
                    Case 2
                        Return "Dosya Sil"
                End Select
        End Select

Return "Hata"
    End Function

Public Sub GorevBaslat(ByVal GorevIndex As Integer, Optional ByVal Onay_Gerekli As Boolean = True)
        Dim Onayla As Onaylafrm

Try

With Gorevler(GorevIndex)
                If .bir_kez Then .Etkin = False

If Onay_Gerekli Then
                    Try
                        If .Ses_Etkin Then
                            Select Case .SesDosyasi
                                Case "1"
                                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\1.wav")
                                Case "2"
                                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\2.wav")
                                Case "3"
                                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\3.wav")
                                Case "4"
                                    My.Computer.Audio.Play(System.AppDomain.CurrentDomain.BaseDirectory() & "sound\4.wav")
                                Case Else
                                    My.Computer.Audio.Play(.SesDosyasi)
                            End Select
                        End If
                    Catch
                    End Try
                End If

If Onay_Gerekli And .Bilgi_iste And (Gorevler(GorevIndex).GorevTipi <> 3) Then
                    Onayla = New Onaylafrm
                    Onayla.Init(GorevIndex)
                    Onayla.Show()
                    Exit Sub
                End If

Select Case .GorevTipi
                    Case 0
                        Select Case .EylemTipi
                            Case 0
                                WinKapat()                'ÇALIŞIYOR
                            Case 1
                                WinYenidenBaslat()  'ÇALIŞIYOR
                            Case 2
                                WinOturumKapat()  'ÇALIŞIYOR
                        End Select
                    Case 1
                        'My.Computer.FileSystem.WriteAllText(System.AppDomain.CurrentDomain.BaseDirectory() & "run.bat", .EylemDizesi, False)
                        'System.Diagnostics.Process.Start(System.AppDomain.CurrentDomain.BaseDirectory() & "run.bat")
                        'My.Computer.FileSystem.DeleteFile(System.AppDomain.CurrentDomain.BaseDirectory() & "run.bat")
                        System.Diagnostics.Process.Start(.EylemDizesi)  'çözüm şekli          'her dsy siliyor,çalıştırıyor
                    Case 2
                        System.Diagnostics.Process.GetProcessesByName(.EylemDizesi)(0).Kill()
                    Case 3
                        If .EylemTipi = 0 Then
                            Trayfrm.Tray_NotifyIcon.ShowBalloonTip(0, "GörevZamanla", .EylemDizesi, ToolTipIcon.Info)
                        Else
                            MsgBox(.EylemDizesi, MsgBoxStyle.Information, "GörevZamanla")
                        End If
                    Case 4
                        Select Case .EylemTipi
                            Case 0
                                My.Computer.FileSystem.CopyFile(.EylemDizesi.Split("|".ToCharArray)(0), .EylemDizesi.Split("|".ToCharArray)(1))
                                'ÇALIŞIYOR
                            Case 1
                                'MsgBox(.EylemDizesi)
                                My.Computer.FileSystem.RenameFile(.EylemDizesi.Split("|".ToCharArray)(0), .EylemDizesi.Split("|".ToCharArray)(1))
                                'My.Computer.FileSystem.RenameFile(.EylemDizesi.Split("|".ToCharArray)(0),  "NOTEPAD.EXE")
                                'hata veriyor
                            Case 2
                                My.Computer.FileSystem.DeleteFile(.EylemDizesi)
                                'ÇALIŞIYOR
                        End Select
                End Select
            End With

Catch
            Trayfrm.Tray_NotifyIcon.ShowBalloonTip(0, "Görev Zamanla - Hata", "Çalıştırırken hata oluştu'" & Gorevler(GorevIndex).isim & "'Görev.", ToolTipIcon.Error)
        End Try
    End Sub
 
End Module

Option Explicit On
Option Strict On

Imports Microsoft.Win32

Module ModulSifre
    Public Sifre As String

Public Function SifreAyarla() As Boolean
        Dim RegistryKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GörevZamanla", True)

If RegistryKey IsNot Nothing Then
            If RegistryKey.GetValue("BaşlangıçObjesi", "").ToString = "" Then
                Return False
            Else
                Return True
            End If
        Else
            Return False
        End If
    End Function

Public Function SifreDogrula(ByVal Sifre As String) As Boolean
        If Registry.CurrentUser.OpenSubKey("Software\GörevZamanla", True).GetValue("BaşlangıçObjesi").ToString = SifreyiSifrele(Sifre) Then
            Return True
        Else
            Return False
        End If
    End Function

Public Sub SifreyiAyarla(ByVal Sifre As String)
        Dim RegistryKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GörevZamanla", True)

If RegistryKey IsNot Nothing Then
            RegistryKey.SetValue("BaşlangıçObjesi", SifreyiSifrele(Sifre))
        Else
            Registry.CurrentUser.CreateSubKey("Software\GörevZamanla")
            RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GörevZamanla", True)
            RegistryKey.SetValue("BaşlangıçObjesi", SifreyiSifrele(Sifre))
        End If
    End Sub

Private Function SifreyiSifrele(ByVal Sifre As String) As String
        Dim I As Integer
        Dim Position As Integer = 1
        Dim Key As String = "-GörevZamanla-"
        Dim Encrypted As String = ""

For I = 1 To Sifre.Length
            If (Asc(Mid(Key, Position, 1)) + Asc(Mid(Sifre, I, 1))) > 255 Then
                Encrypted &= Chr(Asc(Mid(Key, Position, 1)) + Asc(Mid(Sifre, I, 1)) - 255)
            Else
                Encrypted &= Chr(Asc(Mid(Key, Position, 1)) + Asc(Mid(Sifre, I, 1)))
            End If

Position += 1
            If Position > Key.Length Then Position = 1
        Next

Return Encrypted
    End Function
End Module

Program Kodlarını................................................................. İNDİR