Fotoğrafları Boyutlandırma Programı

Fotoğrafları Boyutlandırma Programı

dönder filigran Foto işleme Fotoğraf boyutlama kırpma

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

 Programla Filigran eklenmiş bir örnek....

FotoBoyut_v2.0.1.5.EXE                                                                                                             İNDİR

Alternatif Link                                                                                                                             İNDİR

Fotoğraflarınızı istediğiniz boyutta küçültmek, isimlendirmek, Filigran eklemek,kırpmak, döndürmek Topluca isim değiştirmek vb..daha bir çok işlemi yapabileceğiniz küçük ama maharetli bir program..

VB.NET 2010 İLE KURULUM (SETUP) PROJESİ OLUŞTURMA

VB.NET 2010 İLE KURULUM (SETUP) PROJESİ OLUŞTURMA

kurulum setup

COMPUTEST Cihazları hakkında bilgi almak isterseniz burayı tıklayın
  
22.01.2015 Güncellendi    

ErAsRich Editör_Setup_v3.3.1.4                                  (İNDİR)

ErAsRich Editör_KOD_v3.3.1.4                            (İNDİR)

RichTextBox ile yapılmış Word türü Bir      Text düzenleme Editörü.. Windows'un NotePad Editöründen daha kapsamlı, WinWord ve Word'den daha az yetenekleri olan bir Editör.

   
  Textlerimiz *.RTF ve *.TXT *.HTML biçiminde saklanabilir.

  Normal Bir Editörle yapılan işlemleri yapabilirsiniz.
   Metinlerinizi; Renklendirebilir, Farklı Font ve boyutları kullanabilir, Dışardan bir  dosyayı Editör üstüne sürükleyerek resim ekleyebilirsiniz.
   Dosyayı saklama biçimini saklama menüsünden seçip ".TXT" veya ".RTF" Formatında saklayabilirsiniz. Resim  ve renk içeren işlemlerde  Dosya biçimi ".RTF" olmalıdır.
   Sürüklenen (.txt,.rtf) türü Metin ve Resim dosyaları burada  açılır. Diğer tür dosyalar ise; Kendi türündeki programlarla otomatikman açılır.
   Sadece Değişiklik Yapılıp Saklanan dosyalar "Sık Çalıştırılanlar" Listesine eklenir.
  Dışardan ErAsRich Editör'e sürüklenen TXT , RTF, HTML uzantılı dosya açılır. Farklı Uzantılı ise ilgili Programla açılır.*.EXE ise çalıştırılır
  Gezginden Tıklanan txt ,rtf,  HTML  uzantılı dosyalar "Birlikte Aç" tan konumlandırılan bu programla açılır
  ErAsRich Text Editör içinden parlak URL satırları Çift Tıklanarak İnternet Explorer'de Açılabilir.

ErAsRich Editör_KOD_v3.3.1.4

ErAsRich Editör_KOD_v3.3.1.4

Editör kod örnek RichTextBox

  22.01.2015 Güncellendi    

ErAsRich Editör_Setup_v3.3.1.4                                  (İNDİR)

ErAsRich Editör_KOD_v3.3.1.4                                     İNDİR

RichTextBox ile yapılmış Word türü Bir      Text düzenleme Editörü.. Windows'un NotePad Editöründen daha kapsamlı, WinWord ve Word'den daha az yetenekleri olan bir Editör.

   
  Textlerimiz *.RTF ve *.TXT *.HTML biçiminde saklanabilir.

  Normal Bir Editörle yapılan işlemleri yapabilirsiniz.
   Metinlerinizi; Renklendirebilir, Farklı Font ve boyutları kullanabilir, Dışardan bir  dosyayı Editör üstüne sürükleyerek resim ekleyebilirsiniz.
   Dosyayı saklama biçimini saklama menüsünden seçip ".TXT" veya ".RTF" Formatında saklayabilirsiniz. Resim  ve renk içeren işlemlerde  Dosya biçimi ".RTF" olmalıdır.
   Sürüklenen (.txt,.rtf) türü Metin ve Resim dosyaları burada  açılır. Diğer tür dosyalar ise; Kendi türündeki programlarla otomatikman açılır.
   Sadece Değişiklik Yapılıp Saklanan dosyalar "Sık Çalıştırılanlar" Listesine eklenir.
  Dışardan ErAsRich Editör'e sürüklenen TXT , RTF, HTML uzantılı dosya açılır. Farklı Uzantılı ise ilgili Programla açılır.*.EXE ise çalıştırılır
  Gezginden Tıklanan txt ,rtf,  HTML  uzantılı dosyalar "Birlikte Aç" tan konumlandırılan bu programla açılır
  ErAsRich Text Editör içinden parlak URL satırları Çift Tıklanarak İnternet Explorer'de Açılabilir.

Ekran Çözünürlüğünü Değiştirme Kodları

Ekran Çözünürlüğünü Değiştirme Kodları

değiştirme ekran çözünürlüğü

Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın

EKRAN ÇÖZÜNÜRLÜĞÜNÜ DEĞİŞTİRME KODLARI                İNDİR

' 1366 x 768 önerilen çözünürlük ' 1024 x 768 değiştirilen çözünürlük Imports System.Runtime.InteropServices Public Class Form1 Const ENUM_CURRENT_SETTINGS As Integer = -1 Const CDS_UPDATEREGISTRY As Integer = &H1 Const CDS_TEST As Long = &H2 Const CCDEVICENAME As Integer = 32 Const CCFORMNAME As Integer = 32 Const DISP_CHANGE_SUCCESSFUL As Integer = 0 Const DISP_CHANGE_RESTART As Integer = 1 Const DISP_CHANGE_FAILED As Integer = -1 Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Integer Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Integer) As Integer <StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String Public dmSpecVersion As Short Public dmDriverVersion As Short Public dmSize As Short Public dmDriverExtra As Short Public dmFields As Integer Public dmOrientation As Short Public dmPaperSize As Short Public dmPaperLength As Short Public dmPaperWidth As Short Public dmScale As Short Public dmCopies As Short Public dmDefaultSource As Short Public dmPrintQuality As Short Public dmColor As Short Public dmDuplex As Short Public dmYResolution As Short Public dmTTOption As Short Public dmCollate As Short <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String Public dmUnusedPadding As Short Public dmBitsPerPel As Short Public dmPelsWidth As Integer Public dmPelsHeight As Integer Public dmDisplayFlags As Integer Public dmDisplayFrequency As Integer End Structure Public Sub CozunurlukDegistir(ByVal theWidth As Integer, ByVal theHeight As Integer) Dim DevM As DEVMODE DevM.dmDeviceName = New [String](New Char(32) {}) DevM.dmFormName = New [String](New Char(32) {}) DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE))) If 0 <> EnumDisplaySettings(Nothing, ENUM_CURRENT_SETTINGS, DevM) Then Dim lResult As Integer DevM.dmPelsWidth = theWidth DevM.dmPelsHeight = theHeight lResult = ChangeDisplaySettings(DevM, CDS_TEST) If lResult = DISP_CHANGE_FAILED Then MsgBox("Çözünürlük değiştirilemedi..", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed") Else lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) Select Case lResult Case DISP_CHANGE_RESTART MsgBox("Değişikliklerin uygulanması için bilgisayarınızı yeniden başlatmalısınız.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Tamam") Case DISP_CHANGE_SUCCESSFUL Case Else MsgBox("Çözünürlük değiştirilemedi.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hata") End Select End If End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click CozunurlukDegistir(TextBox1.Text, TextBox2.Text) End Sub End Class

EKRAN KORUYUCU (LOGO)

EKRAN KORUYUCU (LOGO)

ekran koruyucu kod örnekleri logo

LOGONUZU EKRAN KORUYUCU OLARAK KULLANABİLEN  PROJE  ÖRNEĞİ

KOD İNDİR

EXE İNDİR 

NOT : EkranKoruyucu.EXE programını "Er_LOGO.scr"  veya sizin arzu ettiğiniz bir "BirAdYazın.scr" şeklinde değiştirip "C:\WINDOWS\SYSTEM32\"  dizini içine kopyalayın.

 MasaÜstünde sağ tıklayıp çıkan menüde "Kisişelleştir\Ekran Koruyucu" kısmına tıklayın. Çıkan pencerede Ekran koruyucu ComboBox kutusunda yüklediğiniz ismi göreceksiniz. Seçin  süresini ayarlayın ve Tamam 'a basınız

Public Class Form1 Dim X, Y As Integer Dim Rnd As New Random Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown Me.Close() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Cursor.Hide() Y = Me.Height - Panel1.Height x = Me.Width - Panel1.Width Panel1.Location = New Point(Rnd.Next(0, x), Rnd.Next(0, Y)) End Sub Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove Static EskiX As Integer Static EskiY As Integer If (EskiX > 0 And EskiY > 0) And (Math.Abs(e.X - EskiX) > 3 Or Math.Abs(e.Y - EskiY) > 3) Then Me.Close() End If EskiX = e.X EskiY = e.Y End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Panel1.Location = New Point(Rnd.Next(0, x), Rnd.Next(0, Y)) End Sub End Class <textarea>

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

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

kod örnekleri vb.net win 10 araçları win 10 ayarları windows 8 ayarları

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>

Çok İşlevli Proje

Ç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

NOT: Ekran Kilitle Bölümündeki hata nedeniyle, (07.06.2015) itibariye güncellendi. Bazı hatalar giderildi. Örneği önce indirenler tekrar indirmelidir.

ÇOK İŞLEVLİ PROJE (Sadece EXE)                                                             İNDİR

. 

GÖREV PLANLAMA PROGRAM ÖRNEĞİ

GÖREV PLANLAMA PROGRAM ÖRNEĞİ

görev planlama kod vb.net örnek proje proje

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

20.10.2015 Tarihinde Güncellenen (GÖREV PLANLAMA.EXE) Pro               İNDİR 

05.03.2015   Tarihinde bazı hatalar düzeltildi....
Yeniden dizayn edilmiş ve Not Defteri Eklenmiş Yeni Versiyonu                           İNDİR