AutoHotkey Community

$hotkey::
Clipboard =
   
   Need Help with code here for URL


    Run cmd
    WinWaitActive ahk_class ConsoleWindowClass
    SendInput mplayer {RAW}`"%ClipBoard%`" -cache 8192 -cache-min 20 -idx -adapter 2 -fs -aspect 16:9
    Return
   
#IfWinActive ahk_class MPlayer - The Movie Player
   Esc::WinClose
   If WinExist ("ahk_class ConsoleWindowClass") {
   WinActivate
    }
    Else
Return

F1  =YTB1.txt
URL1=http://www.youtube.com/watch?v=J7noYuasI3k        ;<<<  this your copied url

Splashimage,,b w600 h30  CWteal m9 b fs10 zh0,DOWNLOAD >>> %URL1%
UrlDownloadToFile,%URL1%,%F1%
Splashimage, off

;---- search for this line in F1,  it changes
;var fullscreenUrl = '/watch_fullscreen?video_id=J7noYuasI3k&l=127&t=OEgsToPDskIIxLKb0nOjWRbyOGxTrhC5&sk=MYb6O0VPCVC_NLFr57SeNQC&fs=1&title=Vira_velho Carla_Pires';

;-- search for URL2 and name (with regex shorter ) ---------------------
VANAF1=watch_fullscreen?video_id=
UNTIL1=&sk=
VANAF2=&title=
UNTIL2=';

V=0
   Loop,Read,%F1%
      {
      LR=%A_LoopReadLine%
      ifinstring,LR,watch_fullscreen?video_id=
             {
             StringGetPos,VAR1,LR,%VANAF1%
             StringGetPos,VAR2,LR,%UNTIL1%
             VAR1:=(VAR1+27)
             VAR2:=(VAR2+1)
             VAR3:=(VAR2-VAR1)
             VAR4=http://www.youtube.com/get_video?video_id=
             stringmid,ADRESS,LR,VAR1,VAR3
             URL2=%VAR4%%ADRESS%                         ;<<<< new adress URL2

             StringGetPos,VAR11,LR,%VANAF2%
             StringGetPos,VAR12,LR,%UNTIL2%
             VAR11:=(VAR11+8)
             VAR12:=(VAR12+1)
             VAR13:=(VAR12-VAR11)
             stringmid,TITLE,LR,VAR11,VAR13
             F2=%TITLE%.flv                             ;<<<< found name
               break
             }
        }

; --- control test,  in name should be removed all special characters
;msgbox,URL2=%URL2%`nF2=%F2%
;return

Splashimage,,b w600 h30  CWlime m9 b fs10 zh0,DOWNLOAD >>> %F2%
URLDownloadToFile,%URL2%,%F2%
Splashimage, off
run,%F2%
exitapp

~esc::exitapp