vkontakte.ru (vk.com) it's russian social network like facebook.com.
this snippet allows you to download videos.

example: /vk http://vkontakte.ru/video82189478_159074768?hd&noiphone
result (/echo -a): > http://cs13154.vk.com/u5600680/video/82a790dc77.240.mp4
http://cs13154.vk.com/u5600680/video/82a790dc77.360.mp4

Installation:
Copy your vk.com remixsid cookie to

sockwrite -n $sockname Cookie: remixsid=HERE

and enjoy! ;)

alias vk {
  if (http://vkontakte.ru/video?*_?* iswm $1) || (http://vk.com/video?*_?* iswm $1) {
    if ($sock($+(vk,/,$ctime))) sockclose $v1
    sockopen $+(vk,/,$ctime) vk.com 80
    sockmark $+(vk,/,$ctime) $mid($1,$pos($1,/,3))
  }
}
on *:SOCKOPEN:vk/*: {
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.0
  sockwrite -n $sockname User-Agent: $+(mIRC,/,v,$version)
  sockwrite -n $sockname Host: vk.com
  sockwrite -n $sockname Cookie: remixsid=
  sockwrite -n $sockname 
}
on *:SOCKREAD:vk/*: {
  sockread 4096 $+(%,$sockname)
  if (*loadFlashPlayer(*);* iswm $(,$+(%,$sockname))) {
    var %args = $mid($v2,$calc($pos($v2,$({,)) + 1),$calc($pos($v2,$(},)) - $pos($v2,$({,)) - 1)), %* = $numtok(%args,44)
    while (%*) {
      if ($regex($gettok(%args,%*,44),/"(.+)":(.+)/)) {
        set -l $+(%,args,.,$regml(1)) $replace($noqt($regml(2)),\/,/)
      }
      dec %*
    }
    var %ref = $iif(http://?* iswm %args.host,$v2,$+(http://,%args.host,/))
    var %ref = %ref $+ $iif($int(%args.uid),$+(u,%args.uid,/video/),assets/videos/)
    var %ref = %ref $+ %args.vtag
    var %ref = %ref $+ $iif((.vk. isin %args.host) || (.vkontakte. isin %args.host),.,$+(%args.vkid,.vk.))
    var %. = 1
    while (%. <= $calc(%args.hd + 1)) {
      echo -a %ref $+ $iif((%.) && (%args.no_flv),$+($gettok(240 360 480 720 1080,%.,32),.mp4),flv)
      inc %.      
    }
  }
}