SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kaf_Dağı · 09 Aralık 2015, 18:49

SES KAYIT VE EKRAN YAKALAMA v.1.0.0

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.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

FORM1 KODLARI :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
FastStone Capture - Ekran Yakalama Aracı	Silencer	Bilgisayar Donanımı	0	14 Kasım 2007 11:00

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.