Altri Linguaggi - Scaricare video con realbasic

Salve a tutti è da 2 giorni che tento di trovare il metodo per scaricare i video da youtube...con visual basic utilizzavo Inet però in realbasic non lo trovo allora ho utilizzato la funzione Get di HTTPSocket ma appena clicco su download mi esce subito il messaggio "download completato" e non riesco a visualizzare il video(0 MB) come posso fare??

codice:

  dim Html as string
  dim s_ID() as string
  dim s_t() as string
  dim s_title() as string
  dim http as HTTPSocket
  http = new HTTPSocket
  
  if txtUrl.text <> "" then 
    
    Html = http.Get(txtUrl.text,0)
    
    s_ID = Html.Split("&video_id=")
    s_ID = s_ID(1).Split("&plid=")
    
    
    s_t = Html.Split("&t=")
    s_t = s_t(1).Split("&rv.6.id=")
    
    s_title = Html.Split("content=""")
    s_title = s_title(1).Split(""">")
    
    
    dim url as string 
    url = "http://www.youtube.com/get_video?asv=&video_id="  + s_ID(0) + "&t=" + s_t(0) 
    
      dim f as folderItem
  dim name as string
  
  name = s_title(0)
  f = getSaveFolderItem("any",name)
  if f = NIL then
    return
  end
  
  socket1.get(url,f)
    
  elseif txtUrl.text = "" then 
    
    MsgBox("Impossibile scaricare video se non si inserisce l'Url!")
    
  end if 

P.S:Sto programmando con REAL Studio2010r3 sotto piattaforma MAC

Vi prego aiutatemi!!!

Beh... Semplicemente non esiste più la pagina youtube.com/…=.

No...guarda il codice è stato modificato così: youtube.com/…= &t=

E l'ho modificato ank'io e difatti se provo a scaricarlo con safari mi esce il download...è solo con il programma che non riesco!

Scusate ma sono riuscito a famigliarizzare con realbasic e adesso mi trovo davanti un grandissimo problema...cioè lui(il programma per scaricare i video) non mi dà nessun errore né per l'host né per la porta ma il componente HTTPSocket non riesce a connettersi all'indirizzo da cui scaricare il video cioè metto:

Dim http As HTTPSocket
http = New HTTPSocket 

http.Get("http://www.youtube.com/get_video?asv=&video_id=" + altro, "/Users/Luca/desktop/video.flv")

MsgBox(http.IsConnect)

E mi dà sempre Non connesso...Ho già provato a mettere prima del Get un

http.Connect

Ma solita cosa! Vi supplico!!!