Kendi müzik indirme programımızı yapalım (1 Viewer)

[Gök-Börü]

Bu konu hakkında bir ton uygulama mevcut fakat çoğu aşırı reklama sahip ve kendi ile birlikte eklediği toolbarlar ile tarayıcının birçok ayarını bozuyorlar. Bu işi çok güzel yapan siteler de var örneğin : www.youtubeinmp3.com sitesinden linkini girdiğiniz videoyu mp3 olarak bilgisayarınıza anında indirebilirsiniz. Bizim programımızda bu sitenin ücretsiz olarak sunduğu api’yi kullanarak yapıyoruz.
Örneğin;

http://youtubeinmp3.com/fetch/?api=advanced&video=Youtube_video_linki

Youtube_video_linki olarak yazdığım yere youtube video linki geliyor. Yani şu şekilde

Bu apinin çıktısı ise şu şekilde.

Title: Yokluğunda (Leyla The Band)
Length: 250
Link: http://s1.youtubeinmp3.com/download...mS4Fhs&t=Yokluğunda+(Leyla+The+Band&hdd=0&s=2

Biz de yazdığımız programda linki girilen videoyu apinin sonuna ekleyerek bir WebBrowser nesnesiyle görüntüleyeceğiz. WebBrowser’ dan html kodunu alıp gerekli yerleri ayırarak ( Başlık, süre, Mp3 Linki) programımızda göstereceğiz ve linki kullanarak indirme işlemini yapacağiz.

Kullanılan nesneler ve isimleri ;

WB1 (WebBrowser Apiyi kullanmak için)
WB2 (WebBrowser indirme linkini kullanmak için)
Label1 – Label2 – Label3 – Command1 (CommandButton İndirme işlemine başlamak için)
Command2 (CommandButton Linki kopyalamak için)
Text1 (Linki yazıcağımız Textbox)
Check1 (Otomatik indirmenin başlaması için)
htmlkodu(Textbox)
uzunluk(Textbox)
baslik(Textbox)

''******************************************************************************
'* Name : Youtube-mp3 dönüştürücü                                                     *
'* Author : Gök-Börü                                                                              *
'* Notice : Linki yazılan youtube videosunu mp3 olarak bilgisayara kaydediyor. *
'* Date : 12.09.2018                                                          *
'* Version : 1.0                                                               *
'* Website : spyhackerz.org                                           *
'*******************************************************************************
Private Sub Command1_Click()
WB1.Navigate "http://youtubeinmp3.com/fetch/?api=advanced&video=" & Text1.Text
Command1.Enabled = False
Command2.Enabled = False
link.Text = ""
Command1.Caption = "Link işleniyor"
End Sub
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText link.Text, vbCFText
MsgBox "Link panoya kopyalandı.", vbInformation, "Youtube MP3 indir"
End Sub
 
Private Sub Form_Load()
Me.Height = 2010
Me.Width = 7095
Command2.Enabled = False
WB1.Silent = True
WB2.Silent = True
End Sub
 
Private Sub link_Change()
If link.Text = "" Then
Else
Command2.Enabled = True
End If
End Sub
 
Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
htmlkodu.Text = WB1.Document.documentElement.outerHTML
Call Parcala1(htmlkodu, "Title: ", baslik)
Call Parcala2(baslik, "<BR>", uzunluk)
Label2.Caption = "Başlık : " & baslik.Text
Call Parcala1(uzunluk, "<BR>", uzunluk)
Call Parcala2(uzunluk, ": ", uzunluk)
Call Parcala2(uzunluk, "<BR>", link)
Label3.Caption = "Süre: " & uzunluk.Text & "sn."
Call Parcala1(link, "Link: ", link)
Call Parcala2(link, "</BO", htmlkodu)
Call BulDegistir(link, "amp;", "", 8)
If Check1.Value = 1 Then: WB2.Navigate link.Text
Command1.Enabled = True
Command1.Caption = "İndir"
End Sub
Sub Parcala2(Metin As Object, Kelimee As String, Aktar As Object)
Metin.SelStart = 0
ArananKelime = Kelimee
AramayaBasla = Metin.SelStart + Metin.SelLength
If AramayaBasla = 0 Or AramayaBasla = Len(Metin.Text) Then AramayaBasla = 1
KelimeninYeri = InStr(AramayaBasla, Metin.Text, ArananKelime, vbTextCompare)
If KelimeninYeri = 0 Then
Else
Metin.SetFocus
Metin.SelStart = KelimeninYeri + 3 - Len(ArananKelime)
Metin.SelLength = Len(Metin.Text)
Aktar.Text = Metin.SelText
Metin.SelText = ""
'KelimeninYeri = 0
'
'Aranan kelimeyi seçtireceğiz..
End If
End Sub
Sub Parcala1(Metin As Object, Kelimee As String, Aktar As Object)
Metin.SelStart = 0
ArananKelime = Kelimee
AramayaBasla = Metin.SelStart + Metin.SelLength
If AramayaBasla = 0 Or AramayaBasla = Len(Metin.Text) Then AramayaBasla = 1
KelimeninYeri = InStr(AramayaBasla, Metin.Text, ArananKelime, vbTextCompare)
If KelimeninYeri = 0 Then
Else
Metin.SetFocus
Metin.SelStart = KelimeninYeri + Len(ArananKelime) - 1
Metin.SelLength = Len(Metin.Text)
Aktar.Text = Metin.SelText
KelimeninYeri = 0
 
'Aranan kelimeyi seçtireceğiz..
End If
End Sub
 
Sub BulDegistir(Metin As Object, Aranan As String, Degisecek As String, Tekrar As Integer)
On Error Resume Next
For i = 0 To Tekrar Step 1
ArananKelime = Aranan
AramayaBasla = Metin.SelStart + Metin.SelLength
If AramayaBasla = 0 Or AramayaBasla = Len(Metin.Text) Then AramayaBasla = 1
KelimeninYeri = InStr(AramayaBasla, Metin.Text, ArananKelime, vbTextCompare)
If KelimeninYeri = 0 Then
Metin.SelStart = 1
Else
Metin.SetFocus
Metin.SelStart = KelimeninYeri - 1
Metin.SelLength = Len(ArananKelime)
Metin.SelText = Degisecek
End If
i = i + 1
Next i
End Sub

OKU: Kodlama eski bir kodlamadır. Sistemin bize sunduğu ücretsiz api sitenin kapanması sonucunda bitmiştir. Piyasadaki ücretsiz api imkanı sunan siteleri kullanarak kodlama üzerine değişiklik yapabilirsiniz.

BKZ: y-api.org

---
<iframe src="https://y-api.org/button/?v=KMU0tzLwhbE&f=mp3&fc=#ffffff&bc=#000000" scrolling="no" style="width:320px;height:38px;border:none;"></iframe>



required parameters
---
v (youtube video id) => KMU0tzLwhbE
f (format)           => mp3/mp4



optional parameters
---
fc (font-color)       => #ffffff
bc (background-color) => #000000