MODIFIED=20071113/2 ;---------------FOR MS-IE tested with XP with the index.dat-reader pasco.exe -------------------------------------------------- ;DATE...........20071113 garry INDXDAT_PASCO_01.ahk ; ;NEED...........pasco.exe http://www.foundstone.com/us/resources-free-tools.asp (free tools resources) ; ; MS-InternetExplorer index.dat the correct path , example: ; Push button SEARCH ALL INDEX.DAT to find the correct path , example: ; C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat ; (to see hidden folders, goto settings >DOS command: control folders ) ; ;HOW to use.....surf with IE on youtube, show desired video until red row is 100% ; when you are finished in youtube start this program: ; ; 1_NEW READ index.dat ; 2-search in listview for date (20071113) >ENTER , starts and shows founded NAME ; 3- download the movie by doubleclick column2 (URL) ;------------------------------------------------------------------------------------------------------------------------------- ;================================= FIREFOX ======================================================================================= ;-------- for mozilla FIREFOX just open the folder and rename it xy.flv ---------------------------------------------------------- ; http://www.autohotkey.net/~garry/FIREFOX_CACHE.ahk ;........ file example 6DFC9E96d01 script above renames it to xy.flv xy.mp3 ; search for the correct file in ...Mozilla\Firefox\Profiles\ ;AA=C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Anwendungsdaten\Mozilla\Firefox\Profiles\kjf29nqa.default\Cache ;run,%AA% ;----------------------------------------------------------------------------------------------------------------------------------- ;cache-reader adonn for mozilla firefox ;https://addons.mozilla.org/de/firefox/addon/2489 ;----------------------------------------------------------------------------------------------------------------------------------- ;=================================================================================================================================== ;=================================== this script =============================================================================== ;----- for MS internet explorer ;-------PASCO.exe index.dat reader find xy.flv for MS IE ----------------------------------------------- ;indexdat=C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat ;pasco.exe %indexdat% > index.txt ;http://www.autohotkey.com/forum/topic13405.html&highlight=pasco ;http://www.foundstone.com/us/resources-free-tools.asp ;-------------------------------------------------------------------------------------------------------------------------------- #NoEnv #NoTrayIcon setworkingdir, %a_scriptdir% Autotrim,off ;--------- look for the correct PATH this you need to read with pasco.exe --------------------------------------------------- CX2 =C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat ;CX2=C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007111220071113\index.dat /* C:\Dokumente und Einstellungen\Administrator\Cookies\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007081020070811\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007083120070901\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007102220071029\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007102920071105\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007110520071112\index.dat C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\History.IE5\MSHist012007111220071113\index.dat C:\Dokumente und Einstellungen\Administrator\UserData\index.dat C:\Dokumente und Einstellungen\Default User\Cookies\index.dat C:\Dokumente und Einstellungen\Default User\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat C:\Dokumente und Einstellungen\Default User\Lokale Einstellungen\Verlauf\History.IE5\index.dat C:\Dokumente und Einstellungen\LocalService\Cookies\index.dat C:\Dokumente und Einstellungen\LocalService\Lokale Einstellungen\Temp\Cookies\index.dat C:\Dokumente und Einstellungen\LocalService\Lokale Einstellungen\Temp\Temporary Internet Files\Content.IE5\index.dat C:\Dokumente und Einstellungen\LocalService\Lokale Einstellungen\Temp\Verlauf\History.IE5\index.dat C:\Dokumente und Einstellungen\LocalService\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat C:\Dokumente und Einstellungen\LocalService\Lokale Einstellungen\Verlauf\History.IE5\index.dat --C:\WINDOWS\pchealth\helpctr\OfflineCache\index.dat ;don't use C:\WINDOWS\system32\config\systemprofile\Cookies\index.dat C:\WINDOWS\system32\config\systemprofile\Lokale Einstellungen\Temporary Internet Files\Content.IE5\index.dat C:\WINDOWS\system32\config\systemprofile\Lokale Einstellungen\Verlauf\History.IE5\index.dat C:\WINDOWS\system32\config\systemprofile\Lokale Einstellungen\Verlauf\History.IE5\MSHist012006050320060504\index.dat */ R3V=%A_scriptDir%\_VIDEO ifnotexist,%R3V% FileCreateDir,%R3V% RT1=%A_scriptDir%\_TEXT\TEXT1 ;text prov ifnotexist,%RT1% FileCreateDir,%RT1% F71=%RT1%\searchedytb.txt F72=%RT1%\youtubenames.txt F1=index.txt transform,S,chr,127 transform,S1,chr,32 Gui,1:Color, 000000 Gui,1:Font, S10 CDefault , FixedSys menu,S1,Add,&How to use,MH1 menu,S1,Add,&About,MH2 menu,myMenuBar,Add,Help,:S1 gui,1:menu,MyMenuBar T1= 50 T2=360 T3=0 ;modified time T4=160 ;access time T5=460 ;name1 T6=0 T7=0 T1A :=T1 T2A :=T1+T2 T3A :=T1+T2+T3 T4A :=T1+T2+T3+T4 T5A :=T1+T2+T3+T4+T5 T6A :=T1+T2+T3+T4+T5+T6 T7A :=T1+T2+T3+T4+T5+T6+T7 T7AL:=T1+T2+T3+T4+T5+T6+T7+20 ;listview width T7AG:=T7A+30 ;guishow width T1B1:=10 T1B2:=130 T1B3:=230 T1B4:=300 T7B1:=T7A-70 ;xPosition Button right T7B2:=T7A-200 ;xPosition Button right Gui,1:Add,ListView,grid r19 y20 w%T7AL% +hscroll altsubmit vMyListView gMyListView, TYPE|URL|MOD-TIME|ACC-TIME|FILENAME|DIRECTORY|HTTP HEADERS LV_ModifyCol(1,T1) LV_ModifyCol(2,T2) LV_ModifyCol(3,T3) LV_ModifyCol(4,T4) LV_ModifyCol(5,T5) LV_ModifyCol(6,T6) LV_ModifyCol(7,T7) Gui,1:Add,Button,x%T7B2% y420 w200 h20 gINDEX1 ,ACTUALLY FILE ;open file Gui,1:Add,Button,x%T7B2% y445 w200 h20 gSHOWALLINDEXDAT ,SEARCH ALL INDEX.DAT ;search for index.dat and open file ;Gui,1:Add,Button,x%T7B2% y477 w160 h20 gCACHE ,FIREFOX CACHE Gui,1:Add,Edit, x10 y420 w400 h20 vSRCX, Gui,1:Add,Button,x%T1B1% y450 w110 h20 gSTART ,1-NEW-READ Gui,1:Add,Button,x%T1B2% y450 w220 h20 default gSEARCH ,2-SEARCH-SHOW-NAME ;ASR=harold lloyd ;for test Gui,1:Add,Button,x%T1B1% y477 w110 h20 gIE ,IE-YOUTUBE> Gui,1:Add,Edit, x%T1B2% y477 w220 h20 vIESRC,%ASR% Gui,1:Font, S8 cwhite, Verdana Gui,1:Add,Text,x20 y2 vTotal1 w100,%I% Gui,1:Add, Edit, x12 y355 w%T7A% h60 ReadOnly vC, Gui,1:Show, x2 y0 w%T7AG% h500,Temporary Internet Files-Content.IE5-index.dat ;------------------- LB: LV_Delete() I:=0 ifexist,%F72% { loop,read,%F72% { LR=%A_LOOPREADLINE% stringsplit,BX,LR,`;, I++ LV_Add("",BX1,BX2,BX3,BX4,BX5,BX6,BX7) GuiControl,1:,total1,%I% } } else { loop,read,%F1% { gosub,GS1 if A_LoopReadLine= continue if A_LoopReadLine contains get_video ;show only youtube { if BX1=REDR ;if redirect dont show>continue continue if BX2=%LR1% ;if followed line is the same like before>continue continue LR1=%BX2% I++ LV_Add("",BX1,BX2,BX3N,BX4N,BX5,BX6,BX7) } } } if BX1= GuiControl,1:Disable,2-SEARCH-SHOW-NAME GuiControl,1:,total1,%I% GuiControl,1:Focus,SRCX return ;------------------ END MENU ------------------- ;------------------------------------------------- IE: Gui,1:submit,nohide AL7=http://www.youtube.com/results?search_query=%IESRC% Run,%A_programfiles%\Internet Explorer\IEXPLORE.EXE %AL7%,,max return /* ;----------------- MOZILLA FIREFOX -------------- CACHE: AACACHE=C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Anwendungsdaten\Mozilla\Firefox\Profiles\kjf29nqa.default\Cache ifexist,%AACACHE% run,%AACACHE% return ;------------------------------------------------- */ ;------------------ OPEN PASCO --------------------- START: Gui,1:submit,nohide GuiControl,1:,C,%NOTHING% ifexist,%F72% filedelete,%F72% LV_Delete() Splashimage,,b1 x140 y5 w500 h30 CWred zh0,READ INDEX.DAT Process,exist,pasco.exe PID2 = %ErrorLevel% runwait,%comspec% /C pasco -t%S% "%CX2%" >%F1%,,hide Splashimage,off GuiControl,1:Enable,2-SEARCH-SHOW-NAME goto,LB return ;----------------------------------------------------- ;---- search LV_ & SAVE to file -------------- SEARCH: Gui,1:submit,nohide GuiControl,1:,C,%NOTHING% I:=0 RN:=1 if SRCX= goto,SAVE loop, % LV_GetCount() { LV_GetText(C2,RN,2) LV_GetText(C4,RN,4) ALLTEXT=%C2%%C4% ifinstring,ALLTEXT,%SRCX% { I++ RN++ continue } else { lv_delete(RN) } } GuiControl,1:,total1,%I% ;------ SAVE LISTVIEW to a text file -- SAVE: ;F71=%RT1%\searchedytb.txt ifexist,%F71% filedelete,%F71% ifexist,%F72% filedelete,%F72% RF:=1 LV_Modify(RF, "+Select +Focus") loop, % LV_GetCount() { LV_GetText(C2,RF,2) ;LV_Modify(RF, "+Select +Focus") Fileappend,%S%%C2%`r`n,%F71% ;sleep,300 ;LV_Modify(RF, "-Select -Focus") RF:=(RF+1) } goto,go return ;--------------- END SEARCH & SAVE LV_ to a file searchedytb.txt ------------------------- ;----------- search for all index.dat on drive c:\ and save to a file -------------------------- SHOWALLINDEXDAT: Gui,1:submit,nohide GuiControl,1:,ACR,1 R3F=indexdatpath.txt runwait,%comspec% /C del %R3F%,,hide Splashimage,,b1 x140 y0 w500 h30 CWred zh0,SEARCH INDEX.DAT >> mx:=0 Loop,C:\index.dat, 0,1 { if A_LoopFileFullPath=C:\WINDOWS\pchealth\helpctr\OfflineCache\index.dat ;don't use continue Fileappend,%A_LoopFileFullPath%`r`n,%R3F% mx++ } Splashimage,off run,%R3F% return ;---------- end search for index.dat -------------------------------------------------------------- ;---------- MENU -------------------------------------- MH2: msgbox,IndexDatRead.ahk %MODIFIED%-- garry`r`n%A_scriptName%`r`nhttp://www.autohotkey.com return MH1: msgbox,Read index.dat with pasco.exe`r`nDownload pasco and put this ahk script in the same folder like pasco.exe`r`nPush first button SEARCH ALL INDEX-DAT then button 1-NEW-READ`r`nhttp://www.foundstone.com/us/resources-free-tools.asp (free tools resources) return ;----------------------------------------------------------- ;-------------- show texfile saved by pasco.exe -------- INDEX1: ifexist,index.txt run,index.txt return ;------------------------------------------------------- ;-----------SEARCHED GO to search for NAME -------------------------- GO: Gui,1:submit,nohide LV_Delete() GuiControl,1:Disable,2-SEARCH-SHOW-NAME I=0 GuiControl,1:,total1,%I% GuiControl,1:,C,%NOTHING% F72=%RT1%\youtubenames.txt ifexist,%F72% { loop,read,%F72% { LR=%A_LOOPREADLINE% stringsplit,BX,LR,`;, I++ LV_Add("",BX1,BX2,BX3,BX4,BX5,BX6,BX7) GuiControl,1:,total1,%I% } return } ;------------ read saved/searched LV_ and show name ----------- { loop,read,%F71% { if A_LoopReadLine= continue gosub,GS1 LR=%A_loopreadline% VANAF =get_video?video_id= UNTIL =& StringGetPos,VAR1,LR,%VANAF% StringGetPos,VAR2,LR,%UNTIL% VAR1:=(VAR1+20) if VAR2=-1 { stringmid,NEWID,LR,VAR1,11 } else { VAR2:=(VAR2+1) VAR3:=(VAR2-VAR1) stringmid,NEWID,LR,VAR1,VAR3 } NEWID1=http://www.youtube.com/watch?v=%NEWID% FLX=%RT1%\youtube1.txt urldownloadtofile,%NEWID1%,%FLX% ;>>> ; ; ;---- YOUTUBE PART 1 read name --- AXA = K:=0 Loop,Read,%FLX% { LR=%A_LoopReadLine% If LR contains %AXA% { StringGetPos,VAR1,LR,%VANAF% StringGetPos,VAR2,LR,%UNTIL% VAR1:=(VAR1+9) VAR2:=(VAR2+1) VAR3:=(VAR2-VAR1) stringmid,NEW,LR,VAR1,VAR3 stringreplace,new,new,quot`;,%S1%,all stringreplace,new,new,amp`;,%S1%,all stringreplace,new,new,`%20,%S1%,all new1= Loop,Parse,new { A:=(Asc(A_LoopField)) B:=chr(a) if (B="_" OR B=" ") ;allow _space autotrim,off Goto,SKIP8 if ((a<48 or a>57) AND A<65 OR A>90 AND A<97 OR A>122) continue SKIP8: new1=%new1%%b% } ;stringreplace,new1,new1,%S1%,_,all ;stringreplace,new1,new1,20,_,all K++ } } I++ LV_Add("",BX1,BX2,BX3N,BX4N,new1,BX6,BX7) Fileappend,%BX1%;%BX2%;%BX3N%;%BX4N%;%new1%;%BX6%;%BX7%`r`n,%F72% GuiControl,1:,total1,%I% } return } ;----------------------------------------------------- ;----- gosub to read the file saved by pasco.exe convert months to numbers --------- GS1: YYYY= MONS= DATS= TIMS= BX1= BX2= BX3= BX4= BX5= BX6= BX7= stringsplit,BX,A_LoopReadLine,%S%, Stringmid,MONS,BX3,5,3 Stringmid,YYYY,BX3,21,4 Stringmid,TIMS,BX3,12,8 Stringmid,DATS,BX3,9,2 if MONS=Jan MONS=01 if MONS=Feb MONS=02 if MONS=Mar MONS=03 if MONS=Apr MONS=04 if MONS=May MONS=05 if MONS=Jun MONS=06 if MONS=Jul MONS=07 if MONS=Aug MONS=08 if MONS=Sep MONS=09 if MONS=Oct MONS=10 if MONS=Nov MONS=11 if MONS=Dec MONS=12 BX3N=%YYYY%%MONS%%DATS%-%TIMS% if BX3=Modified Time BX3N=Modified Time YYYY= MONS= DATS= TIMS= Stringmid,MONS,BX4,5,3 Stringmid,YYYY,BX4,21,4 Stringmid,TIMS,BX4,12,8 Stringmid,DATS,BX4,9,2 if MONS=Jan MONS=01 if MONS=Feb MONS=02 if MONS=Mar MONS=03 if MONS=Apr MONS=04 if MONS=May MONS=05 if MONS=Jun MONS=06 if MONS=Jul MONS=07 if MONS=Aug MONS=08 if MONS=Sep MONS=09 if MONS=Oct MONS=10 if MONS=Nov MONS=11 if MONS=Dec MONS=12 BX4N=%YYYY%%MONS%%DATS%-%TIMS% if BX4=Access Time BX4N=Access Time return ;--------------------------------------------------------------- ;-------------------- end search GO ---------------------- ;--------------------- LISTVIEW ------------------------------- MyListView: Gui,submit,nohide GuiControlGet, MyListView if A_GuiEvent = Normal { MouseGetPos,x,y RN:=LV_GetNext("C") RF:=LV_GetNext("F") GC:=LV_GetCount() { if x<%T1A% { LV_GetText(C1,A_EventInfo,1) GuiControl,1:,C,%C1% return } if x<%T2A% { LV_GetText(C2,A_EventInfo,2) LV_GetText(C7,A_EventInfo,7) GuiControl,1:,C,%C2%`r`n%C7% return } if x<%T3A% { LV_GetText(C3,A_EventInfo,3) GuiControl,1:,C,%C3% return } if x<%T4A% { LV_GetText(C4,A_EventInfo,4) GuiControl,1:,C,%C4% return } if x<%T5A% { LV_GetText(C5,A_EventInfo,5) GuiControl,1:,C,%C5% return } if x<%T6A% { LV_GetText(C6,A_EventInfo,6) GuiControl,1:,C,%C6% return } if x<%T7A% { LV_GetText(C7,A_EventInfo,7) GuiControl,1:,C,%C7% return } } } if A_GuiEvent=K { GetKeyState,state,UP if state=D { RF:=LV_GetNext("F") LV_GetText(C2,RF,2) LV_GetText(C7,RF,7) GuiControl,1:,C,%C2%`r`n%C7% } GetKeyState,state,DOWN if state=D { RF:=LV_GetNext("F") LV_GetText(C2,RF,2) LV_GetText(C7,RF,7) GuiControl,1:,C,%C2%`r`n%C7% } } if A_GuiEvent = DoubleClick { LV_GetText(C2,A_EventInfo,2) LV_GetText(C5,A_EventInfo,5) if C2 contains get_video?video_id= { goto,youtube1 return } msgbox, Not youtube return } return ;--------------------------- END LISTVIEW -------------------- ;---------------- when doubleclick column-2 ---------- YOUTUBE1: Gui,1:submit,nohide ;http://www.youtube.com/watch?v=xiPnkzq22-o ifexist,%R3V%\%C5%.flv C5=%C5%%A_NOW% Splashimage,,b w600 h30 CWred m9 b fs10 zh0,DOWNLOAD >>> %C5% sleep,3000 Splashimage, off urldownloadtofile,%C2%,%R3V%\%C5%.flv ;>>> Splashimage,,b w600 h30 CWlime m9 b fs10 zh0,DOWNLOAD >>> %C5% FINISHED sleep,3000 Splashimage, off run,%R3V%\%C5%.flv return ;----------------------------------------------------- ;--------------------------------------------------------------- GuiClose: process,close,%PID2% ExitApp esc:: process,close,%PID2% ExitApp ;--------------------------- END PROGRAM PASCO ------------------ ;================================================================ /* to automatic download youtube I'll have to know the second URL the first time it was in first URL but now removed how can I find it ? examples= URL1 = http://www.youtube.com/watch?v=FO-KOKqIjFY URL2 = http://chi-v257.chi.youtube.com/get_video?video_id=FO-KOKqIjFY ; index.txt http://www.autohotkey.com/forum/topic13405.html&highlight=pasco http://www.foundstone.com/us/resources-free-tools.asp ;----------------------------------------------------------------------- */