VBScript ile mkv dosyaları wav dosyalara dönüştür

OBS ekran kaydetme programı ile mkv formatında ekran kaydı alıyorum.

Bu kayıtları video editör programı ile sorunsuz düzenlemek için ses kaydının wav formatında olmasını istiyorum.

Bu işi yapmak için çeşitli dosya dönüştürme programları bulunuyor ancak ben daha basit ve kolay kullanım açısından VBScript ve FFmpeg kullanmayı tercih ettim.

Bu işlemin nasıl yapılacağını adım adım aşağıda açıkladım.

VBScript nedir?

VBScript (Visual Basic Scripting Edition), Microsoft'un geliştirdiği bir betik dili olan Visual Basic'in bir alt kümesidir.

VBScript, web sayfaları, Windows uygulamaları ve diğer birçok yazılım geliştirme alanında kullanılabilen hafif bir programlama dilidir.

Genellikle tarayıcı tabanlı web uygulamalarında, özellikle de Internet Explorer ile kullanılmıştır. VBScript, HTML sayfalarına gömülebilir ve istemci tarafında çalıştırılabilir.

Bu sayede kullanıcı arayüzüne etkileşimli özellikler eklemek ve veri işleme görevlerini yerine getirmek için kullanılır.

VBScript, basit ve anlaşılabilir bir sözdizimine sahiptir ve çeşitli uygulama geliştirme ihtiyaçlarını karşılamak için kullanılabilir.

WBScript Windows kurulumu ile beraber yüklenmektedir, sistemin bir parçasıdır.

FFmpeg nedir

FFmpeg, açık kaynaklı bir çoklu ortam çerçevesidir ve ses, video ve çoklu ortam verilerini işlemek, dönüştürmek ve kodlamak için kullanılır. FFmpeg bir dizi farklı format ve kodek desteği sunar, böylece kullanıcılar medya dosyalarını farklı formatlara çevirebilir, video ve ses dosyalarını düzeltebilir, kesip biçebilir veya birleştirebilir. Ayrıca, FFmpeg, video ve ses akışlarını yakalamak, işlemek ve dağıtmak için de kullanılır ve bu nedenle geniş bir uygulama yelpazesi için popüler bir araçtır, medya oynatıcılarından ve düzenleyicilerinden canlı yayıncılığa kadar birçok alanda tercih edilir.

İlgili sayfa: FFmpeg ile ekran kaydı yapma

FFmpeg nasıl kurulur?

Birçok program FFmpeg kullanmaktadır. Eğer sisteminizde FFmpeg kullanan bir program varsa FFmpeg kurmanıza gerek yoktur. Kurulu olduğu klasörden kullanılabilir.

Örneğin Kdenlive ve ShotCut video editör programları FFmpeg kullanır.

Kdenlive için C:\Program Files\kdenlive\bin klasöründe

ShotCut için C:\Program Files\Shotcut klasöründe ffmpeg.exe'yi bulabilirsiniz.

Eğer FFmpeg kurulu değilse kurmak için resmi derlenmiş sürümleri kullanabilirsiniz.

Aşağıdaki adımları izleyebilirsiniz:

• FFmpeg'in resmi web sitesine gidin: https://www.ffmpeg.org/download.html
• Windows sürümünü seçin (örneğin, "Windows Builds" bölümünden "Static" sürümü) ve indirin.
• İndirdiğiniz sıkıştırılmış dosyayı bir klasöre açın. Artık klasör içindeki ffmpeg.exe dosyasını kullanabilirsiniz.

Klasördeki tüm mkv dosyalarını wav dosyasına dönüştür

• Aşağıdaki kodları kopyalayıp bir metin editörüne yapıştın.

' Bulunduğu klasör içindeki tüm MKV dosyaları
' WAV dosyalarına dönüştürür

' Mesut Akcan
' makcan@gmail.com
' mesutakcan.blogspot.com

' ffmpeg.exe dosyasının bulunduğu klasör
Const FFmpegDosya = "C:\Program Files\kdenlive\bin\ffmpeg.exe"

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Scriptin bulunduğu klasör
scriptKlasoru = objFSO.GetParentFolderName(WScript.ScriptFullName)

' FFmpeg komutunu ayarla
ffmpegKomut = Chr(34) & FFmpegDosya & Chr(34) & _
	" -i ""DOSYA.mkv"" -acodec pcm_s16le -ar 44800 ""DOSYA.wav"""

' Klasördeki MKV dosyalar
Set klasor = objFSO.GetFolder(scriptKlasoru)

' Tüm dosyaları döngüye al
For Each dosya In klasor.Files
	' MKV dosyası bulunduğunda
	If LCase(objFSO.GetExtensionName(dosya.Path)) = "mkv" Then
		' FFmpeg komutuna dosya adını yerleştir
		dosyaSayisi = dosyaSayisi + 1
		komut = Replace(ffmpegKomut, "DOSYA", objFSO.GetBaseName(dosya.Name))
		' Komutu çalıştır
		objShell.Run komut, 0, True
	End If
Next

MsgBox "Klasörde bulunan " & dosyaSayisi & _
	" adet MKV dosya 16-bit PCM WAV formatına dönüştürüldü.", vbInformation

• Const FFmpegDosya = "C:\Program Files\kdenlive\bin\ffmpeg.exe"
  satırındaki FFmpeg klasör adını düzenleyin.
• Dosyayı mkv dosya dönüşümü yapılacak klasöre mkv2wav.vbs adında kaydedin.
• Tüm mkv dosyalaları wav ses dosyasına dönüştürmek için klasördeki mkv2wav.vbs dosyasını çift tıklayarak çalıştırın.