Ekran Kayıt Programı - PowerShell & FFMPEG

Bu program, herhangi bir ek yazılım kurmadan (FFmpeg hariç) Windows'un kendi gücünü (PowerShell ve .NET) kullanarak ekran kaydı yapmanıza olanak tanır. Programı ProjeDepom.Blogpspot.Com olarak yaptık. Ve 1-2 haftadır sürekli kullanıyoruz. Problem yaşamadık şuana kadar . Verimli çalıştığı için sizler ile paylaşmak istedik. 

Aşağıda paylaşılan tüm detay bilgileri dikkatli okuyunuz. FFMPEG programını orijinal sitesinden indirmeyi atlamayın. Sonradan sorun oluşur ise sorumluluk bize ait değildir. Açık kaynak olduğu için tek tek kontrol edip kullanın. Bizim vereceğimiz kodu gönül rahatlığı ile her teste sokabilirsiniz.Sizlerle paylaşacağımız kod içinde , FFMPEG dosyasının konumunu doğru "bin" dosyasının yolunu eklemeyi lütfen atlamayın. Aksi takdirde program çalışmaz. Hata verebilir.

Normalde kodun içine direk siteden indirmesi ve uygun kısma konumu ekleyecek kodu dahil edebilirdik. Fakat güvenlik sorunu oluşturmaması için eklemedik. Sadece o kısmı manuel yapacaksınız . Ve programı kullanmaya başlayacaksınız. ( Kodları sayfanın en altında paylaştık. Ve FFMPEG için orijinal sitesini de aşağıda bilgi kısmına dahil ettik . )

Öne Çıkan Özellikler:

• Tam Ekran veya Alan Seçimi: İsterseniz tüm ekranı, isterseniz sadece seçtiğiniz bir bölgeyi kaydedebilirsiniz.
• Düşük Kaynak Tüketimi: ultrafast ön ayarı sayesinde işlemciyi yormadan akıcı kayıt yapar.
• Fare Takibi: İsteğe bağlı olarak fare imlecini kayda dahil edebilir veya gizleyebilirsiniz.
• Taşınabilir Yapı: Kurulum gerektirmez, sadece bir script dosyasıdır.

Güvenlik ve Kullanım Uyarıları

• Kod Şeffaflığı: "Bu araç açık kaynaklı bir PowerShell betiğidir. Kodları not defteriyle açıp inceleyebilir, içinde hiçbir zararlı komut olmadığını kendi gözlerinizle görebilirsiniz."
• Yönetici İzinleri: Bazı sistemlerde ekran yakalama protokollerinin çalışması için PowerShell'in "Yönetici Olarak" çalıştırılması gerekebilir.
• Dosya Yolu Güvenliği: Program, FFmpeg'i belirttiğiniz yolda arar. Güvenliğiniz için FFmpeg'i her zaman resmi kaynaklardan indirmeli ve bilinmeyen sitelerden gelen .exe dosyalarını kullanmamalısınız.
• Sorumluluk Reddi: "Bu araç eğitim ve kişisel kullanım amacıyla hazırlanmıştır. Kayıt sırasında oluşabilecek veri kayıplarından kullanıcı sorumludur."

🎥 FFmpeg Nedir ve Nasıl İndirilir?

Bu programın "kalbi" FFmpeg'dir. FFmpeg; ses ve görüntüleri kaydeden, dönüştüren ve yayınlayan dünyaca ünlü ücretsiz bir kütüphanedir.

Resmi Web Sitesi: https://ffmpeg.org/

1. İndirme ve Kurulum Adımları:
2. Resmi İndirme Sayfası: FFmpeg Downloads adresine gidin.
3. Windows Logosu: Windows ikonunun üzerine gelin ve "Windows builds from gyan.dev" bağlantısına tıklayın.
4. Build Seçimi: "git full" veya "release essentials" sürümlerinden birini (genellikle .7z veya .zip uzantılıdır) indirin.
5. Dosyayı Çıkarma: İndirdiğiniz arşivin içindeki bin klasöründe bulunan ffmpeg.exe dosyasını bilgisayarınızda bir klasöre çıkarın (Örn: C:\ffmpeg\).
6. Programa Tanıtma: Hazırladığımız PowerShell aracı ilk açılışta size bu dosyanın yerini soracaktır, oradan seçebilirsiniz.

Aşağıdaki fotoğrafta bulunan kısmı sadece değiştirmeniz yeterli olacaktır. Kodun içinde de yeni yolu buraya yapıştır yazıyor. Kafanızı karıştıracak hiç bir bilgi kirliliği kodda bulunmamaktadır. Şimdiden kullanacaklara bedava ekran videosu çekme programı hayırlı olsun. 

Aşağıdan Kopyala Butonuna Tıklayın ve Denemeye Başlayın

Add-Type -AssemblyName System.Windows.Forms, System.Drawing [Console]::OutputEncoding = [System.Text.Encoding]::UTF8 # --- FFMPEG OTOMATİK BULUCU --- $FFMPEG_PATH = "" $PossiblePaths = @( "C:\Users\PC ADI\Desktop\YENİKLASÖR\EkranVideosuKaydetmeKodu\ffmpeg-8.0.1-essentials_build\ffmpeg-8.0.1-essentials_build\bin\ffmpeg.exe", # <--- Yeni yolunu buraya yapıştır "C:\ffmpeg\bin\ffmpeg.exe", "C:\ffmpeg\ffmpeg.exe", "C:\Users\$env:USERNAME\Downloads\ffmpeg-8.0.1-essentials_build\ffmpeg-8.0.1-essentials_build\bin\ffmpeg.exe", "$PSScriptRoot\ffmpeg.exe" ) foreach ($path in $PossiblePaths) { if (Test-Path $path) { $FFMPEG_PATH = $path; break } } if (-not $FFMPEG_PATH) { $objForm = New-Object System.Windows.Forms.OpenFileDialog $objForm.Filter = "FFmpeg Dosyası (ffmpeg.exe)|ffmpeg.exe" $objForm.Title = "Lütfen ffmpeg.exe dosyasını bir kez seçin" if ($objForm.ShowDialog() -eq "OK") { $FFMPEG_PATH = $objForm.FileName } else { [System.Windows.Forms.MessageBox]::Show("FFmpeg seçilmediği için program başlatılamıyor.") exit } } $DesktopPath = [Environment]::GetFolderPath("Desktop") # --- ANA FORM --- $MainForm = New-Object Windows.Forms.Form $MainForm.Text = "ProjeDepom Video Studio"; $MainForm.Size = "450,600" $MainForm.BackColor = [System.Drawing.Color]::FromArgb(32, 33, 36); $MainForm.ForeColor = "White" $MainForm.StartPosition = "CenterScreen"; $MainForm.FormBorderStyle = "FixedSingle"; $MainForm.TopMost = $true $FontBtn = New-Object System.Drawing.Font("Segoe UI", 11, [System.Drawing.FontStyle]::Bold) $FontTimer = New-Object System.Drawing.Font("Consolas", 26, [System.Drawing.FontStyle]::Bold) $FontStatus = New-Object System.Drawing.Font("Segoe UI", 14, [System.Drawing.FontStyle]::Italic) # 1. SÜRE SAYACI $lblTimer = New-Object Windows.Forms.Label $lblTimer.Text = "00:00:00"; $lblTimer.Location = "20,20"; $lblTimer.Size = "390,50" $lblTimer.TextAlign = "MiddleCenter"; $lblTimer.Font = $FontTimer; $lblTimer.ForeColor = "Yellow" $MainForm.Controls.Add($lblTimer) # 2. DİNAMİK DURUM MESAJI $lblActionNotify = New-Object Windows.Forms.Label $lblActionNotify.Text = "HAZIR"; $lblActionNotify.Location = "20,75"; $lblActionNotify.Size = "390,40" $lblActionNotify.TextAlign = "MiddleCenter"; $lblActionNotify.Font = $FontStatus; $lblActionNotify.ForeColor = "Cyan" $MainForm.Controls.Add($lblActionNotify) # 3. AYARLAR $gb = New-Object Windows.Forms.GroupBox $gb.Text = " KAYIT MODU "; $gb.Location = "20,130"; $gb.Size = "390,100"; $gb.ForeColor = "White" $MainForm.Controls.Add($gb) $rbFull = New-Object Windows.Forms.RadioButton $rbFull.Text = "Tam Ekran"; $rbFull.Location = "20,30"; $rbFull.Checked = $true; $rbFull.AutoSize = $true $gb.Controls.Add($rbFull) $rbArea = New-Object Windows.Forms.RadioButton $rbArea.Text = "Alanı Seç"; $rbArea.Location = "150,30"; $rbArea.AutoSize = $true $gb.Controls.Add($rbArea) $chkMouse = New-Object Windows.Forms.CheckBox $chkMouse.Text = "Fareyi Göster"; $chkMouse.Location = "20,65"; $chkMouse.Checked = $true; $chkMouse.AutoSize = $true $gb.Controls.Add($chkMouse) # 4. BUTONLAR $btnStart = New-Object Windows.Forms.Button $btnStart.Text = "⏺ BAŞLAT"; $btnStart.Location = "20,250"; $btnStart.Size = "390,65" $btnStart.BackColor = [System.Drawing.Color]::SeaGreen; $btnStart.FlatStyle = "Flat"; $btnStart.Font = $FontBtn $MainForm.Controls.Add($btnStart) $btnStop = New-Object Windows.Forms.Button $btnStop.Text = "⏹ DURDUR"; $btnStop.Location = "20,330"; $btnStop.Size = "390,65" $btnStop.BackColor = [System.Drawing.Color]::Firebrick; $btnStop.FlatStyle = "Flat"; $btnStop.Font = $FontBtn; $btnStop.Enabled = $false $MainForm.Controls.Add($btnStop) $lnkSite = New-Object Windows.Forms.LinkLabel $lnkSite.Text = "https://projedepom.blogspot.com/"; $lnkSite.Location = "20,450"; $lnkSite.Size = "390,30" $lnkSite.TextAlign = "MiddleCenter"; $lnkSite.LinkColor = "Cyan"; $lnkSite.Add_LinkClicked({ [System.Diagnostics.Process]::Start("https://projedepom.blogspot.com/") }) $MainForm.Controls.Add($lnkSite) # --- DEĞİŞKENLER VE SAYAÇ --- $script:process = $null; $script:elapsed = [TimeSpan]::Zero $script:capX = 0; $script:capY = 0; $script:capW = 1920; $script:capH = 1080 $Timer = New-Object Windows.Forms.Timer $Timer.Interval = 1000 $Timer.Add_Tick({ $script:elapsed = $script:elapsed.Add((New-TimeSpan -Seconds 1)) $lblTimer.Text = $script:elapsed.ToString("hh\:mm\:ss") }) # --- İŞLEMLER --- $btnStart.Add_Click({ if ($rbArea.Checked) { $Overlay = New-Object Windows.Forms.Form $Overlay.FormBorderStyle = "None"; $Overlay.Opacity = 0.3; $Overlay.BackColor = "Black"; $Overlay.WindowState = "Maximized" $Overlay.TopMost = $true; $Overlay.Cursor = [System.Windows.Forms.Cursors]::Cross $script:startPoint = [System.Drawing.Point]::Empty; $script:currentPoint = [System.Drawing.Point]::Empty; $script:isDrawing = $false $Overlay.Add_MouseDown({ param($s,$e) $script:isDrawing=$true; $script:startPoint=$e.Location }) $Overlay.Add_MouseMove({ param($s,$e) if($script:isDrawing){ $script:currentPoint=$e.Location; $Overlay.Refresh() } }) $Overlay.Add_Paint({ param($s,$e) if($script:isDrawing){ $rect = [System.Drawing.Rectangle]::FromLTRB([Math]::Min($script:startPoint.X, $script:currentPoint.X), [Math]::Min($script:startPoint.Y, $script:currentPoint.Y), [Math]::Max($script:startPoint.X, $script:currentPoint.X), [Math]::Max($script:startPoint.Y, $script:currentPoint.Y)) $e.Graphics.DrawRectangle((New-Object System.Drawing.Pen([System.Drawing.Color]::Red, 3)), $rect) }}) $Overlay.Add_MouseUp({ param($s,$e) $w = [Math]::Abs($script:startPoint.X - $e.X); $h = [Math]::Abs($script:startPoint.Y - $e.Y) if($w -gt 10){ $script:capX = [Math]::Min($script:startPoint.X,$e.X); $script:capY = [Math]::Min($script:startPoint.Y,$e.Y) $script:capW = $w + ($w % 2); $script:capH = $h + ($h % 2) $Overlay.Close() } }) $Overlay.ShowDialog() | Out-Null } else { $screen = [System.Windows.Forms.Screen]::PrimaryScreen.Bounds $script:capX = 0; $script:capY = 0; $script:capW = $screen.Width; $script:capH = $screen.Height } $MainForm.WindowState = "Minimized" $OutputFile = Join-Path $DesktopPath "Video_$(Get-Date -Format 'HHmmss').mp4" $m = if($chkMouse.Checked){ "1" } else { "0" } # Donmayı önleyen hafif ayarlar $args = "-f gdigrab -framerate 30 -offset_x $($script:capX) -offset_y $($script:capY) -video_size $($script:capW)x$($script:capH) -draw_mouse $m -i desktop -vcodec libx264 -preset ultrafast -tune zerolatency -pix_fmt yuv420p -threads 0 ""$OutputFile""" $si = New-Object System.Diagnostics.ProcessStartInfo -Property @{FileName=$FFMPEG_PATH;Arguments=$args;RedirectStandardInput=$true;UseShellExecute=$false;CreateNoWindow=$true} $script:process = [System.Diagnostics.Process]::Start($si) $script:elapsed = [TimeSpan]::Zero; $Timer.Start() $lblActionNotify.Text = "KAYIT BAŞLADI"; $lblActionNotify.ForeColor = "Red" $btnStart.Enabled=$false; $btnStop.Enabled=$true }) $btnStop.Add_Click({ if ($script:process) { $script:process.StandardInput.WriteLine("q") $Timer.Stop() $lblActionNotify.Text = "VİDEO KAYDEDİLDİ"; $lblActionNotify.ForeColor = "Lime" Start-Sleep -Seconds 2 $btnStart.Enabled=$true; $btnStop.Enabled=$false; $MainForm.WindowState="Normal" } }) $MainForm.ShowDialog()

🔗 Bu yayını istediğin sitede , aşağıdaki linkler ile paylabilirsin.

Sayfa Linki

Forum Kodu (BBCode)

* Linki kopyalayıp forumlarda veya sosyal medyada paylaşabilirsiniz.