/*
> File Information
>-------------------
>Name: /getvid
>Author: zonIRC
>Testing with: mIRC 6.21
>Description: A simple snippet that get the url of youtube video based on url specify.
 
>How To Install
>----------------
>1) Open your mIRC editor by hit 'Alt+R'.
>2) Then hit 'Ctrl+L'.
>3) Select this file and click 'Open'.
 
>Syntax
>---------
>/getvid [-b] url
 
>[-b] to make snippet downloading the file by using your default browser.
>     when 'File Download' dialog opened, click 'Save' and choose where to
>     saved it(make sure you named it as .flv file since youtube used that
>     file format).
>url  the address of the file that you like to get.
>     'http://' and 'www.' are not essential.
 
>Example
>--------
>/getvid youtube.com/watch?v=wvMc84FZnI0
>this will opened @getvid and echoing the video URL, so if you want to get the file just
>double click on text after URL:. When you like to see the video on your browser, just
>double click on text after For:
 
>/getvid -b http://youtube.com/watch?v=wvMc84FZnI0
>this will automatically downloading the video file by using your default browser.
 
>Credits
>--------
>1) Sais - for giving me a link for socket code(http://tinyurl.com/3cwfcv)
>2) puzzling - for advice me to send 'User-Agent'
>3) Riamus2 - where its code(http://tinyurl.com/3cwfcv) at that forum have
>             been used by me to learning a way to establish a connection.
*/
 
alias getvid {
  ;/getvid [-b] [url]
  if (!$1) echo -ftsc info * /getvid: insufficient parameter
  else {
    set %openbrowser $iif($1 = -b,1)
    if ($iif(%openbrowser,$2-,$1-)) {
      set %getvid www. $+ $regsubex($v1,/^http://(www.)?/i,)
      if ($sock(getvid)) sockclose getvid
      sockopen getvid $gettok(%getvid,1,47) 80
    }
    else echo -ftsc info * /getvid: url not specified.
  }
}
 
on *:sockopen:getvid:{ 
  if (!$window(@getvid)) window @getvid
  sockwrite -n $sockname GET / $+ $gettok(%getvid,2,47) HTTP/1.1
  sockwrite -n $sockname Host: $gettok(%getvid,1,47)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.6)
  sockwrite -n $sockname $sockname Accept: */* $+ $crlf $+ $crlf
}
on *:sockread:getvid:{ 
  var %temp
  sockread %temp 
  if ($regsubex(%temp,/var fullscreenUrl = '\/watch_fullscreen/i,) != %temp) {
    var %vidurl = $+($gettok(%getvid,1,47),/get_video,$remove($left($v1,-2),$chr(9)))
    echo @getvid Video URL: %vidurl For: %getvid
    if (%openbrowser) url %vidurl
    sockclose getvid
  }
}
 

Commenting Options