Grab flash files from your temp internet files

[boomingranny]

Just a quickly written script that i was using to get flash games from towerdefence.net.

Once you have the .swf files you can just right click and choose open with - Internet Explorer

This script will search your temporary internet files for *.swf

and then put them into a subfolder of script's folder, called swf

;specify the minimum file size of a flash file to be copied - in KB
$MinFileSize = 64

;get temp internet files location from Windows Registry
$tempinternetfiles = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache")

;does a dir /s (for search) /b (for bare format)
$commandline = Run(@ComSpec & " /c " & 'dir '&Chr(34)&$tempinternetfiles&"\*.swf"&Chr(34) &" /s/b", "", @SW_HIDE,2)

;loops thru return from dir command (which is just a list of swf files in the temp internet files folder)
Dim $data
While 1
    $data  &= StdoutRead($commandline)
    If @error Then ExitLoop
Wend
$line = StringSplit($data, @CRLF)

;create a folder to store the swf files
DirCreate (@ScriptDir&"\swf")

;loop thru the returned list - copying all the files into a subfolder of the scripts folder
;called swf
For $linenumber= 1 To $line[0]
    If $line[$linenumber] <> "" Then
        If FileGetSize($line[$linenumber]) > $MinFileSize* 1024 Then 
        ConsoleWrite(Chr(34) &$line[$linenumber]&Chr(34)&@CRLF)
        FileCopy($line[$linenumber],@ScriptDir&"\swf")
        EndIf
    EndIf
Next

Edited February 9, 2008 by boomingranny

[James]

That's nifty! Thanks boomingranny!