Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - Scaricare video con realbasic
Forum - Altri Linguaggi - Scaricare video con realbasic

Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Segnala al moderatore
Postato alle 3:20
Lunedì, 23/08/2010
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:
Codice sorgente - presumibilmente VB.NET

  1. dim Html as string
  2.   dim s_ID() as string
  3.   dim s_t() as string
  4.   dim s_title() as string
  5.   dim http as HTTPSocket
  6.   http = new HTTPSocket
  7.  
  8.   if txtUrl.text <> "" then
  9.    
  10.     Html = http.Get(txtUrl.text,0)
  11.    
  12.     s_ID = Html.Split("&video_id=")
  13.     s_ID = s_ID(1).Split("&plid=")
  14.    
  15.    
  16.     s_t = Html.Split("&t=")
  17.     s_t = s_t(1).Split("&rv.6.id=")
  18.    
  19.     s_title = Html.Split("content=""")
  20.     s_title = s_title(1).Split(""">")
  21.    
  22.    
  23.     dim url as string
  24.     url = "http://www.youtube.com/get_video?asv=&video_id="  + s_ID(0) + "&t=" + s_t(0)
  25.    
  26.       dim f as folderItem
  27.   dim name as string
  28.  
  29.   name = s_title(0)
  30.   f = getSaveFolderItem("any",name)
  31.   if f = NIL then
  32.     return
  33.   end
  34.  
  35.   socket1.get(url,f)
  36.    
  37.   elseif txtUrl.text = "" then
  38.    
  39.     MsgBox("Impossibile scaricare video se non si inserisce l'Url!")
  40.    
  41.   end if



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

Vi prego aiutatemi!!!:hail::hail::hail::k::k:

PM Quote
Avatar
nihal (Ex-Member)
Pro


Messaggi: 109
Iscritto: 12/04/2010

Segnala al moderatore
Postato alle 12:11
Lunedì, 23/08/2010
Beh... Semplicemente non esiste più la pagina http://www.youtube.com/get_video?video_id=&t=.

PM Quote
Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Segnala al moderatore
Postato alle 13:25
Lunedì, 23/08/2010
Testo quotato

Postato originariamente da nihal:

Beh... Semplicemente non esiste più la pagina http://www.youtube.com/get_video?video_id=&t=.



No...guarda il codice è stato modificato così: http://www.youtube.com/get_video?asv=&video_id= &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!:k:

PM Quote
Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Segnala al moderatore
Postato alle 16:44
Lunedì, 20/09/2010
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:

Codice sorgente - presumibilmente Altri Linguaggi

  1. Dim http As HTTPSocket
  2. http = New HTTPSocket
  3.  
  4. http.Get("http://www.youtube.com/get_video?asv=&video_id=" + altro, "/Users/Luca/desktop/video.flv")
  5.  
  6. MsgBox(http.IsConnect)



E mi dà sempre Non connesso...Ho già provato a mettere prima del Get un
Codice sorgente - presumibilmente Plain Text

  1. http.Connect


Ma solita cosa!:hail::hail::hail::hail::hail::hail: Vi supplico!!!:hail::hail::hail:

PM Quote