Downloader de videos de Youtube en vbs

[Darioxhcx]

claro , mira x ejemplo , el q hice hace timepo es asi

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Text2 = Replace(Text1, "?v=", "/v/")
End Sub
Private Sub Command2_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text2.Text
Do Until Navega.Busy = False
Loop
End Sub

Private Sub Command3_Click()
Text4 = Replace(Text3, "swf/l.swf", "get_video")
End Sub

Private Sub Image1_Click()

End Sub
Private Sub Command4_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text4.Text
Do Until Navega.Busy = False
Loop
End Sub
4 botones y 4 cajas de texto
es lo mismo, solo q en vb xD

saludos