谁来写一个IE缓存提取工具

lxsh010

谁来写一款IE缓存提取工具 就是那种，，能根据 后缀名，，提取 缓存文件，，方便快捷。

我将网络搜个遍，，发现有许多其他语言写的，，甚至批处理写的。。就是没有AU3写的。

各位达人，高手，，显示你们高深武功的时候到了。。

小弟在此先行感谢了！！！！

502762378

随便改了改，你看看还有什么问题

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("按后缀找文件", 373, 370, 192, 124)
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("查找", 216, 336, 89, 25)
$List1 = GUICtrlCreateList("", 0, 0, 369, 300)
$Label1 = GUICtrlCreateLabel("搜索状态", 8, 344, 196, 17)
$Label2 = GUICtrlCreateLabel("输入要搜索的后缀", 120, 300, 89, 25)
$listmenu1 = GUICtrlCreateContextMenu($List1);给一个控件建上下文菜单(右键菜单)
$menu1 = GUICtrlCreateMenuItem("打开路径", $listmenu1)
$input1 = GUICtrlCreateInput("", 216, 300, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
            $houzui = GUICtrlRead($input1)
                $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $button1
                                        GUICtrlSetData($List1,"")
                    searchpst(@TempDir&"","*",$houzui);查找后缀名文件;
                        GUICtrlSetData($Label1,"搜索完成")        
        Case $menu1
            Run("Explorer /select, " & GUICtrlRead($list1))
        EndSwitch
WEnd

Func searchpst($patch,$str,$mask);自定义搜索函数
Local $search,$file,$array,$pst
$search = FileFindFirstFile($patch&$str)  
If $search  Then
While 1        
        $file = FileFindNextFile($search) 
        If @error Then ExitLoop
        $array=StringSplit($file,".")
        $pst =$array[UBound($array)-1]
        if $pst=$mask Then
                GUICtrlSetData($List1,$patch&$file)                 
                GUICtrlSetData($Label1,$patch&$file)
        EndIf           
        if FileChangeDir( $patch&$file)=1 Then
                searchpst($patch&$file&"",$str,$mask)                                
EndIf
WEnd
FileClose($search)
EndIf
EndFunc

lxsh010

回复 2# 502762378

太谢谢您了。小弟还想请教一下，能否在搜索结果处，添加一个复制 和播放 按钮呢。

谢谢

502762378

一切尽在帮助文档

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
Local $sItems
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("按后缀找文件", 373, 370, 192, 124)
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("查找", 216, 336, 89, 25)
$List1 = GUICtrlCreateList("", 0, 0, 369, 300)

$Label1 = GUICtrlCreateLabel("搜索状态", 8, 344, 196, 17)
$Label2 = GUICtrlCreateLabel("输入要搜索的后缀", 120, 300, 89, 25)
$listmenu1 = GUICtrlCreateContextMenu($List1);给一个控件建上下文菜单(右键菜单)
$menu1 = GUICtrlCreateMenuItem("打开路径", $listmenu1)
$menu2 = GUICtrlCreateMenuItem("复制", $listmenu1)
$menu3 = GUICtrlCreateMenuItem("播放", $listmenu1)
$input1 = GUICtrlCreateInput("", 216, 300, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $houzui = GUICtrlRead($input1)
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $button1
                        GUICtrlSetData($List1,"")
                        searchpst(@TempDir&"","*",$houzui);查找后缀名文件;
                        GUICtrlSetData($Label1,"搜索完成")        
        Case $menu1
            ;MsgBox(1,1,GUICtrlRead($List1))
                        Run("Explorer /select, " & GUICtrlRead($List1))
                Case $menu2                        
                        ClipPut(GUICtrlRead($List1))
                Case $menu3
                    Run(GUICtrlRead($List1))
        EndSwitch
WEnd

Func searchpst($patch,$str,$mask);自定义搜索函数
Local $search,$file,$array,$pst
$search = FileFindFirstFile($patch&$str)  
If $search  Then
While 1        
        $file = FileFindNextFile($search) 
        If @error Then ExitLoop
        $array=StringSplit($file,".")
        $pst =$array[UBound($array)-1]
        if $pst=$mask Then
                GUICtrlSetData($List1,$patch&$file)                 
                GUICtrlSetData($Label1,$patch&$file)
        EndIf           
        if FileChangeDir( $patch&$file)=1 Then
                searchpst($patch&$file&"",$str,$mask)                                
EndIf
WEnd
FileClose($search)
EndIf
EndFunc

netegg

楼主有毛病呀，同一个问题发两个帖子

lxsh010

回复 4# 502762378

非常感谢您的大力支持。。源码珍藏了。

但貌似 IE临时文件夹里面的文件搜索不到。。只有其他的。。我猜想是不是IE临时文件夹比较特殊。

不过，还是非常非常感谢您！！！

redapple2008

努力打工赚钱了!

republican

让你看WInInet，不看...

自带都有例子了:

#Include <WinINet.au3>

; Initialize WinINet
_WinINet_Startup()

; Find the first of all cache entires
Global $avCacheEntry = _WinINet_FindFirstUrlCacheEntry()

If Not @error Then
        ; Pull the data out of the returned array
        Global $hCacheEntry = $avCacheEntry[0]
        Global $avCacheEntryInfo = $avCacheEntry[1]
        $avCacheEntry = 0

        While Not @error
                ; Print the currently found cache entry info
                ConsoleWrite("----------" & @CRLF)
                For $i = 0 To UBound($avCacheEntryInfo)-1
                        ConsoleWrite(StringFormat("--> [%d]: %s", $i, $avCacheEntryInfo[$i]) & @CRLF)
                Next
                ConsoleWrite("----------" & @CRLF & @CRLF)

                ; Find the next cache entry
                $avCacheEntryInfo = _WinINet_FindNextUrlCacheEntry($hCacheEntry)
        WEnd

        ; Close handles
        _WinINet_FindCloseUrlCache($hCacheEntry)
EndIf

; Cleanup
_WinINet_Shutdown()

lxsh010

回复 8# republican

republican老大，谢谢您！请原谅我菜鸟，看不懂这么宝贵的源代码。

不知能否汉化一下，，即稍微注释下。

谢谢！！

lxz

代码收下....

xx44t10

回复 9# lxsh010


    伸手党一个，鉴定完毕

ssjoe

不错，先收了，研究一下

小A

不错，过来支持下！

lxsh010

回复 11# xx44t10

不好意思。俺也不想当伸手党，只是理解能力有限。
最后，我整合的是批处理版的。

谢谢各位的帮助和批评，吾将上下而求索。。

lxsh010

回复 14# 小A

小A大大，见到你真好！！！