AutoHotkey Community

  <param name="movie" value="http://myvideo-054.vo.llnwd.net/d1/player/Playerv8c.swf?V=../movie1/d3/636852.flv&ID=636852&PHPSESSID=40b6afc68f7577e9a38b47c08f66c7f4" />

FLVF=%A_SCRIPTDIR%\_FLV_RECORDS

tf = %A_Temp%\ytg
url = http://www.youtube.com/watch?v=l-V-qlr0GTM

RegExMatch(url, "v=(\w+)", v)
UrlDownloadToFile, %url%, %tf%
FileRead, tf, %tf%
s := RegExMatch(tf, "&t=(.+?)&", t)
RegExMatch(tf, "&l=(.+?)&", l, s - 25)

FileSelectFile, file, S18
If file
   UrlDownloadToFile, http://www.youtube.com/get_video?video_id=%v1%&l=%l1%&t=%t1%, %file%

uri = http://www.youtube.com/watch?v=D2kJZOfq7zk

RegExMatch(uri, "(?<=v=)\w+", id)

FileSelectFile, file, S18
If file
   URLDownloadToFile, http://cache.googlevideo.com/get_video?video_id=%id%, %file%

UPDATE=20070814
#NoEnv
SetBatchLines, 25ms
#SingleInstance force
#Persistent
setworkingdir, %a_scriptdir%

;http://www.autohotkey.net/~garry/Skan.jpg
;SMPLAYER  =http://smplayer.sourceforge.net/en/index.php
;FLVPLAYER =http://keepvid.com/
;GOMPLAYER =http://www.gomplayer.com/codec/success.html?intCodec=10

F53=ytbe.txt
F55=_YOUTB.csv     ;save links
AutoTrim Off
transform,S,chr,32

R3M=%A_scriptDir%\_VIDEO
ifnotexist,%R3M%
FileCreateDir,%R3M%


;example
CY1=http://www.youtube.com/watch?v=l-V-qlr0GTM    ;Skan
;CY1=http://www.youtube.com/watch?v=iCKMzrPy4t4

Gui,1:Font, S10 CDefault, FixedSys
Gui,1:Add, Text,   x5  y25  w60  h20 ,URL-1
Gui,1:Add, Text,   x5  y50  w60  h20 ,NAME
Gui,1:Add, Text,   x5  y75  w60  h20 ,URL-2
Gui,1:Add, Text,   x5  y100 w60  h20 ,PROCESS
Gui,1:Add, Edit,   x65 y25  w530 h20 vCY1,%CY1%               ;edit1
Gui,1:Add, Edit,   x65 y50  w530 h20 readonly,                ;edit2
Gui,1:Add, Edit,   x65 y75  w530 h20 readonly,                ;edit3

Gui,1:Add,Progress,x65 y100 w530 h20  vPRBAR cFF7200
Gui,1:Add,Text,    x65 y100 w530  +0x200 +Center +BackgroundTrans vText22,

Gui,1:Add, Button, x65  y130 w90 h25 gSTART,Start
Gui,1:Add, Button, x160 y130 w90 h25 gCLEAR,CLEAR
Gui,1:Add, Button, x500 y130 w90 h25 gBREAK,BREAK
Gui,1:Add, Button, x160 y160 w90 h25 gYOUTUBE,YOUTUBE
GuiControl,1:Focus,CY1
Gui,1:Show, x0 y0 h190 w600,VIDEO DOWNLOAD %UPDATE%
return
;------------------------------------------------------------------------

BREAK:
reload
return

CLEAR:
   GuiControl,1:Focus,CY1
   GuiControl,1:Text,Edit1,
   GuiControl,1:Text,Edit2,
   GuiControl,1:Text,Edit3,
   GuiControl,1:,Text22,
   GuiControl,1:+cC8D0D4,PRBAR
   return

FUNHU:
run,http://www.funpic.hu/en.gallery.php?id=-2&s=dd&p=1
return

YOUTUBE:
run,http://www.youtube.com
return

;######################### YOUTUBE ########################################
start:
Gui,1:submit,nohide
name=
adress=
CY2=

;http://www.youtube.com/watch?v=l-V-qlr0GTM  ;Skan
;http://www.youtube.com/watch?v=iCKMzrPy4t4
;-------------- YOUTUBE NAME SEARCH ------------------------------------
UrlDownloadToFile,%CY1%,%F53%
B=var fs = window.open( "/watch_fullscreen?video_id=              ;Anfang
CA=&fs=                                                           ;ende
V=0
   Loop,Read,%F53%
      {
      LR=%A_LoopReadLine%

           ifinstring,LR,<title>
               {
            name=
            Loop Parse,LR,<> ,%A_Space%%A_Tab%
            If (A_Index & 2)
            Name=%A_LOOPFIELD%
                }

      IfInString,LR,%CA%
          {
          V++
             StringGetPos,VAR1,LR,%B%
             StringGetPos,VAR2,LR,%CA%
             VAR1:=(VAR1+51)
             VAR2:=(VAR2+1)
             VAR3:=(VAR2-VAR1)
             stringmid,ADRESS,LR,VAR1,VAR3
          }
      }
stringlen,len,name
dif:=(len-9)
stringmid,name,name,11,DIF
CY2=http://www.youtube.com/get_video?video_id=%ADRESS%          ;new download adress URL-2
;---------- remove special characters ----------------------
new2=
Loop,Parse,NAME
         {
         A:=(Asc(A_LoopField))
         B:=chr(a)
         if (B="_" OR B=" ")     ;allow _space   autotrim,off
         Goto,SKIP9
         if ((a<48 or a>57) AND A<65 OR A>90 AND A<97 OR A>122)
         continue
         SKIP9:
         new2=%new2%%b%
         }
  new2=%new2%.flv
;----- Find uri encoded characters such as %20 (space) and replace with ascii character ---
;----- TITAN 20070503 http://www.autohotkey.com/forum/topic18876.html ---------------------
  NEW2:=uridecode4(NEW2)
  uriDecode4(str)
      {
      pos = 1
      Loop
        If pos := RegExMatch(str, "i)(?<=%)[\da-f]{2}", hex, pos++)
           StringReplace, str, str, `%%hex%, % Chr("0x" . hex), All
       Else Break
      NEW2=%STR%
      Return,NEW2
      }
;--------------------------------------------------------------------------------------------
stringreplace,new2,new2,%S%,_,all
GuiControl,1:Text,Edit2,%NEW2%     ; name
GuiControl,1:Text,Edit3,%CY2%      ; URL2
if new2=Broadcast_Yourself.flv
   {
   GuiControl,1:,Text22,REMOVED
   return
   }

F54=%R3M%\%NEW2%

SIZE3:=HttpQueryInfo(CY2,5)
GuiControl,1:+RANGE0-%SIZE3%,PRBAR       ;CHANGE processbar

settimer,AAS4,250
URLDownloadToFile,%CY2%,%F54%    ;downloads to desktop
settimer,AAS4,OFF

Filegetsize,size5,%F54%
if size5<50000
    {
   Filedelete,%F54%
   GuiControl,1:,Text22,DELETED
   return
    }

GuiControl,1:+cFF7200,PRBAR

Fileappend,%NEW2%`;%CY1%`;%CY2%`;%F54%`;`r`n,%F55%           ;save name and download-link URL-2
GuiControl,1:,PRBAR, %SIZE3%
GuiControl,1:,Text22,FINISHED   100 `%      SIZE=%SIZE3%
run,%F54%                                    ;run xy.flv with default player like VLC/FLV-/GOMPLAYER

   GuiControl,1:Text,Edit1
   GuiControl,1:Text,Edit2,
   GuiControl,1:Text,Edit3,
   GuiControl,1:,Text22,


FileRead,AA,%F55%
Sort,AA,u                    ;sort and remove double lines
Filedelete,%F55%
Fileappend,%AA%,%F55%
return

;================= GOSUBS ==================================
AAS4:
  Filegetsize,size1,%F54%
  RES1:=Round((100*SIZE1)/SIZE3)
  GuiControl,1:,PRBAR, %SIZE1%
  GuiControl,1:,Text22,%RES1% `%      SIZE=%SIZE3%
return


;######################### END YOUTUBE ####################################
Guiclose:
exitapp


;############################### FUNCTION FOR YOUTUBE OLFEN #####################################
;================  BLOCK-A   DETECT URL-2 TYPE(1) SIZE(5) HEADERS(21)  =====================
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HttpQueryInfo ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;http://www.autohotkey.com/forum/topic10510.html&highlight=dllcall+wininet+internetclosehandle
;SIZE:=HttpQueryInfo(URL, 5)
;msgbox,262144,MESSAGE,SIZE = %SIZE% Byte

QueryInfoFlag:

HTTP_QUERY_RAW_HEADERS = 21
Receives all the headers returned by the server.
Each header is terminated by "\0". An additional "\0" terminates the list of headers.

HTTP_QUERY_CONTENT_LENGTH = 5
Retrieves the size of the resource, in bytes.

HTTP_QUERY_CONTENT_TYPE = 1
Receives the content type of the resource (such as text/html).

Find more at: http://msdn.microsoft.com/library/en-us/wininet/wininet/query_info_flags.asp

Proxy Settings:
INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration
INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net
INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS
*/ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

HttpQueryInfo(URL, QueryInfoFlag=21, Proxy="", ProxyBypass="") {
hModule := DllCall("LoadLibrary", "str", "wininet.dll")

If (Proxy != "")
AccessType=3
Else
AccessType=1

io_hInternet := DllCall("wininet\InternetOpenA"
, "str", "" ;lpszAgent
, "uint", AccessType
, "str", Proxy
, "str", ProxyBypass
, "uint", 0) ;dwFlags
If (ErrorLevel != 0 or io_hInternet = 0) {
DllCall("FreeLibrary", "uint", hModule)
return, -1
}

iou_hInternet := DllCall("wininet\InternetOpenUrlA"
, "uint", io_hInternet
, "str", url
, "str", "" ;lpszHeaders
, "uint", 0 ;dwHeadersLength
, "uint", 0x80000000 ;dwFlags: INTERNET_FLAG_RELOAD = 0x80000000 // retrieve the original item
, "uint", 0) ;dwContext
If (ErrorLevel != 0 or iou_hInternet = 0) {
DllCall("FreeLibrary", "uint", hModule)
return, -1
}

VarSetCapacity(buffer, 1024, 0)
VarSetCapacity(buffer_len, 4, 0)

Loop, 5
{
  hqi := DllCall("wininet\HttpQueryInfoA"
  , "uint", iou_hInternet
  , "uint", QueryInfoFlag ;dwInfoLevel
  , "uint", &buffer
  , "uint", &buffer_len
  , "uint", 0) ;lpdwIndex
  If (hqi = 1) {
    hqi=success
    break
  }
}

IfNotEqual, hqi, success, SetEnv, res, timeout
If (hqi = "success") {
p := &buffer
Loop
  {
  l := DllCall("lstrlen", "UInt", p)
  VarSetCapacity(tmp_var, l+1, 0)
  DllCall("lstrcpy", "Str", tmp_var, "UInt", p)
  p += l + 1
  res := res  . "`n" . tmp_var
  If (*p = 0)
  Break
  }
StringTrimLeft, res, res, 1
}

DllCall("wininet\InternetCloseHandle",  "uint", iou_hInternet)
DllCall("wininet\InternetCloseHandle",  "uint", io_hInternet)
DllCall("FreeLibrary", "uint", hModule)
return, res
}
;=================== END FUNCTION YOUTUBE ===========================================