SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1

SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1

ekran yakalama kodu eraslancemil kod örnekleri örnek projeler Ses kayıt vb.net

Computest Cihazları hakkında bilgi almak isterseniz burayı tıklayın


SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1 PROJE KODU                              İNDİR

Program Mümkün olduğunca değişik ve program bütünlüğü göstermemekle birlikte örnek kodlar içermektedir.Amaç; kod arayanlara aradıklarını bir arada bulmalarını sağlamaktır.
   Programın, Çok kaliteli bir Ses kayıt yaptığı söylenemez. Önemli olan ilgilenenlerin aradığı kod örneğini bulmasıdır.

FORM1 KODLARI :
Imports System.Runtime.InteropServices Imports System.Text 'NOT: Kayıt aygıtlarından ses kartından veya hoparlör ayarlarını yapınız 'ses kaydını bilgisayarda çalan bir mp3 çalardan kaydetmesini istiyorsanız:Kayıt\SesKarışımı(Ses kartı) seçili olmalı 'konuştuğunuzu kaydetmek için :Kayıt\microfon seçili omalıdır Public Class MIDIfrm #Region " SES KAYDEDİCİ FONKSİYONU ve ProgressBar Function.." Declare Function ProgressBar Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Sub Kaydedici(ByVal islem As String, ByVal Ses_Yolu As String, ByVal Dsy_ismi As String) If islem = "baslat" Then mciSendString("open new Type waveaudio Alias recsound", "", 0, 0) mciSendString("record recsound", "", 0, 0) ElseIf islem = "bitir" Then mciSendString("save recsound " & SesTamYolu & "/" & Dsy_ismi, "wav", 0, 0) mciSendString("close recsound ", "", 0, 0) End If End Sub #End Region #Region " mciSendString dll KİTAPLIĞI.." <DllImport("winmm.dll")> _ Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer End Function <DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _ Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer End Function #End Region #Region " FORM TAŞIMA DEĞİŞKENLERİ...." 'Form Taşıma Const i As Integer = &HA1 Const j As Integer = 2 #End Region #Region " FORM TAŞIMA...." Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AnaSkinPic.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then Me.Capture = False 'Panelden,pictureden,textten,vb tut sürükle AnaSkinPic.Capture = False Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero) Me.DefWndProc(msg) End If End Sub #End Region #Region " FORM OLAYLARI..." Private Sub MIDIfrm_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing SaveSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", Secili_EkranYolu) SaveSetting(Application.ProductName, ProductName, "Secili Dosya Adı", EkranYakalamaDsyAdı) SaveSetting(Application.ProductName, ProductName, "Secili Dosya Uzantısı", EkranUzantısı) SaveSetting(Application.ProductName, ProductName, "Progress Bar Rengi", ProgresBarRengi) SaveSetting(Application.ProductName, ProductName, "Formu üstte tut", CheckBox1.Checked) SaveSetting(Application.ProductName, ProductName, "Yakalarken Beni Sakla", CheckBox5.Checked) SaveSetting(Application.ProductName, ProductName, "Form Mini-Midi seçimi", Me.Height) SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Ust", Me.Top) SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Sol", Me.Left) SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu Sakla", CheckBox2.Checked) SaveSetting(Application.ProductName, ProductName, "Yakala ve Göster", CheckBox3.Checked) SaveSetting(Application.ProductName, ProductName, "Tab İndex", TabControl1.SelectedIndex) End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load SaatTimer.Enabled = True Timer1.Enabled = False ProgressBar1.Value = 0 Secili_EkranYolu = GetSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", "C:\Users\" & KullAdi & "\Desktop") Me.EkranDsyAdi.Text = GetSetting(Application.ProductName, ProductName, "Secili Dosya Adı", "YakalananEkran") ComboBox1.Text = GetSetting(Application.ProductName, ProductName, "Secili Dosya Uzantısı", "JPG") EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", "C:\Users\" & KullAdi & "\Desktop") Dsy_ismi = GetSetting(Application.ProductName, ProductName, "Ses Dosyası Adı", "Ses_Kaydi") Me.SesDosyaAdiTxt.Text = Dsy_ismi Ses_Yolu = SesTamYolu & "\" & Dsy_ismi SesDosyaYoluTxt.Text = Ses_Yolu ProgresBarRengi = GetSetting(Application.ProductName, ProductName, "Progress Bar Rengi", 1) CheckBox3.Checked = GetSetting(Application.ProductName, ProductName, "Yakala ve Göster", False) CheckBox5.Checked = GetSetting(Application.ProductName, ProductName, "Yakalarken Beni Sakla", True) TabControl1.SelectedIndex = GetSetting(Application.ProductName, ProductName, "Tab İndex", 0) CheckBox1.Checked = GetSetting(Application.ProductName, ProductName, "Formu üstte tut", True) CheckBox2.Checked = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu Sakla", False) If CheckBox2.Checked = True Then Me.Top = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Ust", 250) Me.Left = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Sol", 500) Else Me.Top = 250 Me.Left = 300 End If If ProgresBarRengi = 1 Then RadioButton1.Checked = True ElseIf ProgresBarRengi = 2 Then RadioButton2.Checked = True ElseIf ProgresBarRengi = 3 Then RadioButton3.Checked = True End If 'yukardaki ile aynı işlevi yapar 'Select Case ProgresBarRengi ' Case 1 : RadioButton1.Checked = True ' Case 2 : RadioButton2.Checked = True ' Case 3 : RadioButton3.Checked = True 'End Select 'User32 Dll sinde bulunan progressbar apisi çağrılıyor. 1=yeşil,2=kırmızı, 3=sarı 'ProgressBar(ProgressBar1.Handle, 1040, 2, 3) Normal ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) ' Form mini veya midi açılacak '********************** Me.Height = GetSetting(Application.ProductName, ProductName, "Form Mini-Midi seçimi", 144) If Me.Height = 144 Then Me.Height = 372 Else Me.Height = 144 If Me.Height = 144 Then AltPic.Top = 131 Me.Height = 372 YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png") Else Me.Height = 144 AltPic.Top = 144 YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png") End If '********************** KayıtPic.Image = RECimList.Images("Durdur.png") LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil1.blogspot.com.tr/") End Sub #End Region #Region " MouseMove ve MouseLeave olayları ..." Private Sub BTNklsr_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BTNklsr.MouseMove BTNklsr.Image = BTNimLst.Images("DügmeKlsr_R.png") End Sub Private Sub BTNklsr_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BTNklsr.MouseLeave BTNklsr.Image = BTNimLst.Images("DügmeKlsr.png") End Sub Private Sub BTNfoto_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BTNfoto.MouseMove BTNfoto.Image = BTNimLst.Images("DügmeFotoR.png") End Sub Private Sub BTNfoto_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BTNfoto.MouseLeave BTNfoto.Image = BTNimLst.Images("DügmeFoto.png") End Sub Private Sub KapatPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles KapatPic.MouseMove KapatPic.Image = KptimList.Images("kapat_gri.png") End Sub Private Sub KapatPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KapatPic.MouseLeave KapatPic.Image = KptimList.Images("kapat_orj.png") End Sub Private Sub MaxiPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MaxiPic.MouseMove MaxiPic.Image = KptimList.Images("maxi_gri.png") End Sub Private Sub MaxiPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MaxiPic.MouseLeave MaxiPic.Image = KptimList.Images("maxi_orj.png") End Sub Private Sub MiniPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MiniPic.MouseMove MiniPic.Image = KptimList.Images("Mini_Gri.png") End Sub Private Sub MiniPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MiniPic.MouseLeave MiniPic.Image = KptimList.Images("Mini_orj.png") End Sub Private Sub AltPncAcPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AltPncAcPic.MouseMove AltPncAcPic.Image = PncAcKapaimLst.Images("AltPncAç-Gri.png") End Sub Private Sub AltPncAcPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles AltPncAcPic.MouseLeave AltPncAcPic.Image = PncAcKapaimLst.Images("AltPncAç.png") End Sub Private Sub YukAsOkPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles YukAsOkPic.MouseMove If Me.Height = 144 Then YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK-Gri.png") Else YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK_Gri.png") End If End Sub Private Sub YukAsOkPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles YukAsOkPic.MouseLeave If Me.Height = 144 Then YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png") Else YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png") End If End Sub Private Sub BilgisayarPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.MouseLeave BilgisayarPic.Image = BTNimLst.Images("BilgisayarGri.png") End Sub Private Sub BilgisayarPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BilgisayarPic.MouseMove BilgisayarPic.Image = BTNimLst.Images("Bilgisayar_R.png") End Sub #End Region #Region " BUTON TIKLAMA (Click) OLAYLARI..." Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click Me.Close() End Sub Private Sub MaxiPic_Click(sender As System.Object, e As System.EventArgs) Handles MaxiPic.Click YukAsOkPic_Click(sender, e) End Sub Private Sub MiniPic_Click(sender As System.Object, e As System.EventArgs) Handles MiniPic.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub KayıtPic_Click(sender As System.Object, e As System.EventArgs) Handles KayıtPic.Click Call KayitBaslat_Durdur() End Sub Public Sub KayitBaslat_Durdur() If kayıtta = False Then Label14.Visible = True Timer1.Enabled = True kayıtta = True Timer1.Start() KayıtAnimasyonPic.Visible = True ProgressBar1.Value = 0 ProgressBar1.Maximum = MaximumSureCmb.Text.ToString Label1.Text = "Ses Kayıt Ediliyor.." Kaydedici("baslat", "", "") Timer1.Interval = 1000 ProgressBar1.Visible = True KayıtPic.Image = RECimList.Images("kayıt_Akrm.png") Else kayıtta = False KayıtAnimasyonPic.Visible = False ProgressBar1.Value = 0 ProgressBar1.Visible = False KayıtPic.Image = RECimList.Images("Durdur.png") Kaydedici("bitir", Ses_Yolu, Dsy_ismi) Label1.Text = "Ses Kayıt Bitti.." Timer1.Stop() Timer1.Enabled = False Label14.Visible = False CalistirBtn.Enabled = True End If End Sub Private Sub YukAsOkPic_Click(sender As System.Object, e As System.EventArgs) Handles YukAsOkPic.Click, AltPncAcPic.Click If Me.Height = 144 Then AltPic.Top = 131 Me.Height = 372 YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png") Else Me.Height = 144 AltPic.Top = 144 YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png") End If End Sub #End Region #Region " ALT YORDAMLAR..." Public Sub OlusturulanDsyOku() ' ses yeri Try My.Computer.Audio.Play(Ses_Yolu, AudioPlayMode.Background) ' & "\" & Dsy_ismi Calisiyor = True Catch ex As Exception MsgBox(Ses_Yolu & Dsy_ismi & " Dosya Bulunamadı") End Try End Sub Private Sub BilgisayarPic_Click(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.Click Process.Start("explorer.exe", "/e,/select,c:") End Sub Private Sub BTNfoto_Click(sender As System.Object, e As System.EventArgs) Handles BTNfoto.Click Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height) Dim g As Graphics = Graphics.FromImage(b) Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height) If GizleChk.Checked Then If CheckBox5.Checked = True Then Me.Hide() End If Dim t As DateTime = Now.AddSeconds(1) Do : Application.DoEvents() Loop Until Now.Second >= t.Second g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy) Me.Show() t = Nothing Else g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy) End If pic.Image = b g.Dispose() b = Nothing Dim saveDlg As SaveFileDialog = New SaveFileDialog Dim dlgResult As DialogResult = New DialogResult pic.Image.Save(Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text) If CheckBox3.Checked = True Then izleBtn_Click(sender, e) End If izleBtn.Enabled = True End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Ses_Yolu = "" Dim FolderDlg As New FolderBrowserDialog FolderDlg.ShowNewFolderButton = True If (FolderDlg.ShowDialog() = DialogResult.OK) Then Ses_Yolu = FolderDlg.SelectedPath SaveSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) SesDosyaYoluTxt.Text = Ses_Yolu & "\" & SesDosyaAdiTxt.Text End If End Sub Private Sub EkrSaklaYoluBtn_Click(sender As System.Object, e As System.EventArgs) Handles EkrSaklaYoluBtn.Click Secili_EkranYolu = "" Dim FolderDlg As New FolderBrowserDialog FolderDlg.ShowNewFolderButton = True If (FolderDlg.ShowDialog() = DialogResult.OK) Then Secili_EkranYolu = FolderDlg.SelectedPath EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text End If End Sub Private Sub GezginleGosterBtn_Click(sender As System.Object, e As System.EventArgs) Handles GezginleGosterBtn.Click Try System.Diagnostics.Process.Start(Secili_EkranYolu) ' & "\" & EkranDsyAdi.Text & ComboBox1.Text) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub izleBtn_Click(sender As System.Object, e As System.EventArgs) Handles izleBtn.Click Try System.Diagnostics.Process.Start(Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub BTNklsr_Click(sender As System.Object, e As System.EventArgs) Handles BTNklsr.Click Process.Start(Ses_Yolu) End Sub Private Sub CalistirBtn_Click(sender As System.Object, e As System.EventArgs) Handles CalistirBtn.Click If CalistirBtn.Text = "Çalıştır" Then Call OlusturulanDsyOku() CalistirBtn.Text = "Kapat" Else My.Computer.Audio.Stop() CalistirBtn.Text = "Çalıştır" End If End Sub Private Sub EkranYakalaBtn_Click(sender As System.Object, e As System.EventArgs) Handles EkranYakalaBtn.Click 'Ekran yakala BTNfoto_Click(sender, e) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Try Process.Start(SesDosyaYoluTxt.Text) Catch ex As Exception Dim sonuc As String sonuc = MessageBox.Show("( " & SesDosyaAdiTxt.Text & " )" & _ " Dosyası bulunamadı." & vbCrLf & SesTamYolu & " Klasörü açılsın mı ?", _ " Sakla?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, _ MessageBoxDefaultButton.Button1) If sonuc = Windows.Forms.DialogResult.Yes Then Process.Start(SesTamYolu) End If End Try End Sub Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) Try Process.Start(SesTamYolu) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub #End Region #Region " TİMER-COMBOBOX-LOSTFOCUS-CHECKED_CHANGE.." Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick On Error Resume Next ' Timer progress barı dolduracak şekilde ayarlanıyor. If ProgressBar1.Value < 500 Then ProgressBar1.Value += 1 Label14.Text = ProgressBar1.Value End If If ProgressBar1.Value >= SureCmb.Text.ToString * 60 Then Call KayitBaslat_Durdur() End If End Sub Private Sub SaatTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SaatTimer.Tick Label12.Text = TimeOfDay End Sub Private Sub EkranDsyAdi_Validated(sender As System.Object, e As System.EventArgs) Handles EkranDsyAdi.Validated 'değişiklik işlemi (Validated) onaylanıyor Secili_EkranYolu = GetSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", Secili_EkranYolu) EkranYakalamaDsyAdı = EkranDsyAdi.Text EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged EkranUzantısı = ComboBox1.Text EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text End Sub Private Sub Dsy_ismiTxt_LostFocus(sender As Object, e As System.EventArgs) Handles SesDosyaAdiTxt.LostFocus SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) SesDosyaYoluTxt.Text = SesTamYolu & "\" & SesDosyaAdiTxt.Text Dsy_ismi = SesDosyaAdiTxt.Text End Sub Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then Me.TopMost = True Else Me.TopMost = False End If End Sub Private Sub LinkLabel1_LinkClicked(sender As System.Object, 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 Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click If My.Computer.Network.IsAvailable = False Then MessageBox.Show("Bilgisayarınız İnternete Bağlı Değil.") Exit Sub End If System.Diagnostics.Process.Start("mailto:eraslancemil@gmail.com") End Sub Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click Dim info As New ProcessStartInfo("mmsys.cpl") Process.Start(info) End Sub #End Region #Region " TOOLTIP AÇIKLAMALARI " Private Sub BilgisayarPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(BilgisayarPic, "Bilgisayarım" & vbCrLf & " Klasörünü Aç") End Sub Private Sub BTNklsr_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNklsr.MouseHover Dim tooltip As New ToolTip() Ses_Yolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", "C:\Users\" & KullAdi & "\Desktop") tooltip.SetToolTip(BTNklsr, Ses_Yolu & vbCrLf & " Klasörünü Aç") End Sub Private Sub BTNfoto_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNfoto.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(BTNfoto, "Ekranı Yakala" & vbCrLf & EkranTamYolTxt.Text & " 'e Kaydet") End Sub Private Sub KayıtPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles KayıtPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(KayıtPic, "Ses Kayıt Başlat - Durdur." & vbCrLf & " ve Dosyayı Kaydet") End Sub Private Sub KayıtAnimasyonPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles KayıtAnimasyonPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(KayıtAnimasyonPic, "Kayıt devamınca animasyon gösterilir") End Sub Private Sub AltPncAcPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles AltPncAcPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(AltPncAcPic, "Alt Pencere Açılıp kapatılır" & vbCrLf & " Ayar menülerine ulaşılır") End Sub Private Sub Label1_MouseHover(sender As System.Object, e As System.EventArgs) Handles Label1.MouseHover If Label1.Text = Nothing Then Exit Sub Dim tooltip As New ToolTip() tooltip.SetToolTip(Label1, "Uyarıyı Gizlemek için Tıkla") End Sub #End Region #Region " RADIO BUTTON OLAYLARI.." Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged ProgresBarRengi = 1 ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) End Sub Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged ProgresBarRengi = 2 ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) End Sub Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged ProgresBarRengi = 3 ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) End Sub Private Sub RadioButton6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged ProgressBar1.Style = ProgressBarStyle.Blocks GroupBox1.Enabled = True End Sub Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged ProgressBar1.Style = ProgressBarStyle.Continuous GroupBox1.Enabled = True End Sub Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged ProgressBar1.MarqueeAnimationSpeed = AnimasyonHiziCmb.Text.ToString ProgressBar1.Style = ProgressBarStyle.Marquee GroupBox1.Enabled = False End Sub #End Region #Region " RANDOM DOSYA ADI ÜRETME...." Private Sub Label10_Click(sender As System.Object, e As System.EventArgs) Handles Label10.Click RNDdosyaadiBtn.PerformClick() End Sub Private Sub RNDdosyaadiBtn_Click(sender As System.Object, e As System.EventArgs) Handles RNDdosyaadiBtn.Click SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) SesDosyaAdiTxt.Text = UCase(System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName())) & ".wav" SesDosyaYoluTxt.Text = SesTamYolu & "\" & SesDosyaAdiTxt.Text Dsy_ismi = SesDosyaAdiTxt.Text SaveSetting(Application.ProductName, ProductName, "Ses Dosyası Adı", SesDosyaAdiTxt.Text) End Sub Private Sub Label9_Click(sender As System.Object, e As System.EventArgs) Handles Label9.Click EkranDsyAdi.Text = UCase(System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName())) EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text EkranYakalamaDsyAdı = EkranDsyAdi.Text & ComboBox1.Text End Sub Private Sub Label1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick Label1.Text = "" End Sub #End Region End Class

MODULE1 KODLARI
Module Module1 #Region " GENEL DEĞİŞKENLER..." Public KullAdi As String = SystemInformation.UserName Public Ses_Yolu As String ' = "C:\Users\" & KullAdi & "\Desktop\" ' "C:\Users\"& KullAdi & "\Favorites\" ' "C:\Users\" & KullAdi & "\Desktop\" '"G:\AA\BB\" ' C:\Users\Public\Music Public Dsy_ismi As String '= "Ses_Kaydi" Public Secili_EkranYolu As String ' = "C:\Users\" & KullAdi & "\Desktop" Public EkranYakalamaDsyAdı As String = "EkranResmi" Public EkranUzantısı As String ' = ".JPG" Public SesTamYolu As String Public ProgresBarRengi As Integer Public Calisiyor As Boolean = False Public kayıtta As Boolean = False 'Api fonksiyonu belirleniyor. progres barın rengini değiştirmek için 'User32 Dll sinde bulunan progressbar apisi çağrılıyor. 1=yeşil,2=kırmızı, 3=sarı 'ProgressBar(ProgressBar1.Handle, 1040, 2, 3) #End Region End Module

NOT :Aynı programın eski versiyonuna Bakınız

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>