LittleHacker (Member)
Guru
 
Messaggi: 1033
Iscritto: 28/04/2009
|
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 |
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
|
|
|
|
nihal (Ex-Member)
Pro
Messaggi: 109
Iscritto: 12/04/2010
|
|
|
|
LittleHacker (Member)
Guru
Messaggi: 1033
Iscritto: 28/04/2009
|
|
|
|
LittleHacker (Member)
Guru
Messaggi: 1033
Iscritto: 28/04/2009
|
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 |
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
Codice sorgente - presumibilmente Plain Text |
|
|
|
