找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 请问ie临时文件夹的问题！
返回列表 发新帖
查看: 4298|回复: 10

[IE类操作] 请问ie临时文件夹的问题！

 火 [复制链接]
mtvtop
发表于 2011-12-19 22:18:15 | 显示全部楼层 |阅读模式 
#Include <File.au3>
#Include <Array.au3>

$_CookiesDir1 = @UserProfileDir & '\AppData\Local\Microsoft\Windows\Temporary Internet Files'
FileDelete(""&$_CookiesDir1)
MsgBox(4096, "", "" &$_CookiesDir1)       
但为什么无法实现呢？无法删除文件夹里的内容？
Internet, microsoft, Windows, 文件夹

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
风行者
发表于 2011-12-19 23:50:31 | 显示全部楼层
http://www.autoitx.com/thread-22759-1-1.html
回复

举报

mtvtop
 楼主| 发表于 2011-12-21 19:33:03 | 显示全部楼层
本帖最后由 mtvtop 于 2011-12-21 19:35 编辑

回复 2# 风行者
这个用了。在ie6上运行报错

我的电脑是 2003 sp1 ie6
运行
DelCache(2)和DelCache(0)
这个代码会白板卡死
DelCache(1)
可以通过，能帮忙解决一下吗
回复

举报

mtvtop
 楼主| 发表于 2011-12-21 19:38:46 | 显示全部楼层
cpu耗用100%
回复

举报

mtvtop
 楼主| 发表于 2011-12-21 19:42:16 | 显示全部楼层
程序源代码，麻烦帮忙看看，是什么地方造成的耗用到100%
#include <WinINet.au3>
#include <IE.au3> 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

#include <WindowsConstants.au3> ;图形界面用的


;#include <Constants.au3> 



Dim $oIE

$Form1 = GUICreate("网站", 800, 500, 192, 124)

$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, -200, -130, 840, 750)

$Label4 = GUICtrlCreateLabel("访问次数：", 648, 128, 64, 30)

GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Mwin")

$Button1 = GUICtrlCreateButton("开始", 648, 180, 150, 25)
GUISetState(@SW_SHOW)

Opt("TrayMenuMode",1) ;关闭托盘菜单
Opt("TrayOnEventMode",1) ;启用托盘 OnEvent 事件函数通知 这2个一起用才能彻底屏蔽托盘菜单

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Form1


                Case $Button1
                        GUICtrlSetData($Button1,"快捷键:F6结束")
                        $shu=0        

While 1
        DelCache(0)
        
        
                        HotKeySet("{F6}", "_Exit")
                        _IENavigate($oIE, "http://www.qq.com/")

                        
                        
                        $shu=$shu+1
                        GUICtrlSetData($Label4,"访问次数："& $shu &"次")
                        
                
                        If @HOUR=0 Then $tmp=Random(40,60,1)
                        If @HOUR=1 Then $tmp=Random(50,60,1)
                        If @HOUR=2 Then $tmp=Random(50,60,1)
                        If @HOUR=3 Then $tmp=Random(50,60,1)
                        If @HOUR=4 Then $tmp=Random(50,60,1)
                        If @HOUR=5 Then $tmp=Random(50,60,1)
                        If @HOUR=6 Then $tmp=Random(50,60,1)
                        If @HOUR=7 Then $tmp=Random(50,60,1)
                        If @HOUR=8 Then $tmp=Random(50,60,1)
                        If @HOUR=9 Then $tmp=Random(30,50,1)
                        If @HOUR=10 Then $tmp=Random(30,40,1)
                        If @HOUR=11 Then $tmp=Random(10,30,1)
                        If @HOUR=12 Then $tmp=Random(10,30,1)
                        If @HOUR=13 Then $tmp=Random(10,20,1)
                        If @HOUR=14 Then $tmp=Random(10,20,1)
                        If @HOUR=15 Then $tmp=Random(5,20,1)
                        If @HOUR=16 Then $tmp=Random(5,20,1)
                        If @HOUR=17 Then $tmp=Random(5,10,1)
                        If @HOUR=18 Then $tmp=Random(5,10,1)
                        If @HOUR=19 Then $tmp=Random(5,10,1)
                        If @HOUR=20 Then $tmp=Random(3,8,1)
                        If @HOUR=21 Then $tmp=Random(3,8,1)
                        If @HOUR=22 Then $tmp=Random(3,8,1)
                        If @HOUR=23 Then $tmp=Random(5,10,1)
                        If @HOUR=24 Then $tmp=Random(10,20,1)
                        
                        ;MsgBox("","", $tmp)                
                        
                        $tmp = $tmp*1000
                        sleep($tmp)
                        
WEnd
                        
                                                
        EndSwitch
WEnd



Func _Exit()
Exit
EndFunc
 
 
Func _Mwin()
        GUISetState(@SW_HIDE, $Form1)
        Opt("TrayIconHide", 0)
EndFunc
;点托盘恢复窗口
Func _huifu()
        ;Opt("TrayIconHide", 1) ;隐藏托盘
        GUISetState(@SW_SHOW, $Form1)
        WinActivate($Form1)
EndFunc
        
Func DelCache($iCacheEntryType)
        _WinINet_Startup()
        
        While 1
                $avCacheEntry = _WinINet_FindFirstUrlCacheEntry($iCacheEntryType)
                If @error Then Return SetError(@error,@extended,0)
                $avHarray = $avCacheEntry[1]
                _WinINet_DeleteUrlCacheEntry($avHarray[1])
        WEnd 
        
        _WinINet_FindCloseUrlCache($avCacheEntry[0])
        _WinINet_Shutdown()
EndFunc   ;==>DelCookies       
回复

举报

mtvtop
 楼主| 发表于 2011-12-21 20:49:26 | 显示全部楼层
回复 2# 风行者
兄弟能不能帮帮忙
回复

举报

风行者
发表于 2011-12-21 21:09:44 | 显示全部楼层
修改了少少
#include <WinINet.au3>
#include <IE.au3>

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

#include <WindowsConstants.au3> ;图形界面用的


;#include <Constants.au3>


Opt("GUIOnEventMode", 1)
Opt("TrayMenuMode", 1) ;关闭托盘菜单
Opt("TrayOnEventMode", 1) ;启用托盘 OnEvent 事件函数通知 这2个一起用才能彻底屏蔽托盘菜单

Dim $oIE, $S = True,$shu

$Form1 = GUICreate("网站", 800, 500, 192, 124)

$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, -200, -130, 840, 750)

$Label4 = GUICtrlCreateLabel("访问次数：", 648, 128, 64, 30)

GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Mwin")

$Button1 = GUICtrlCreateButton("开始", 648, 180, 150, 25)
GUICtrlSetOnEvent(-1,"button")
GUISetState(@SW_SHOW)


HotKeySet("{F6}", "_Exit")

While 1
        DelCache(0)
        If $S = False Then Exit
        _IENavigate($oIE, "http://www.qq.com/")

        $shu = $shu + 1
        GUICtrlSetData($Label4, "访问次数：" & $shu & "次")

        If @HOUR = 0 Then $tmp = Random(40, 60, 1)
        If @HOUR = 1 Then $tmp = Random(50, 60, 1)
        If @HOUR = 2 Then $tmp = Random(50, 60, 1)
        If @HOUR = 3 Then $tmp = Random(50, 60, 1)
        If @HOUR = 4 Then $tmp = Random(50, 60, 1)
        If @HOUR = 5 Then $tmp = Random(50, 60, 1)
        If @HOUR = 6 Then $tmp = Random(50, 60, 1)
        If @HOUR = 7 Then $tmp = Random(50, 60, 1)
        If @HOUR = 8 Then $tmp = Random(50, 60, 1)
        If @HOUR = 9 Then $tmp = Random(30, 50, 1)
        If @HOUR = 10 Then $tmp = Random(30, 40, 1)
        If @HOUR = 11 Then $tmp = Random(10, 30, 1)
        If @HOUR = 12 Then $tmp = Random(10, 30, 1)
        If @HOUR = 13 Then $tmp = Random(10, 20, 1)
        If @HOUR = 14 Then $tmp = Random(10, 20, 1)
        If @HOUR = 15 Then $tmp = Random(5, 20, 1)
        If @HOUR = 16 Then $tmp = Random(5, 20, 1)
        If @HOUR = 17 Then $tmp = Random(5, 10, 1)
        If @HOUR = 18 Then $tmp = Random(5, 10, 1)
        If @HOUR = 19 Then $tmp = Random(5, 10, 1)
        If @HOUR = 20 Then $tmp = Random(3, 8, 1)
        If @HOUR = 21 Then $tmp = Random(3, 8, 1)
        If @HOUR = 22 Then $tmp = Random(3, 8, 1)
        If @HOUR = 23 Then $tmp = Random(5, 10, 1)
        If @HOUR = 24 Then $tmp = Random(10, 20, 1)

        $tmp = $tmp * 1000
        Sleep($tmp)
WEnd

Func Button()
        GUICtrlSetData($Button1, "快捷键:F6结束")
        $shu = 0
EndFunc


Func _Exit()
        $S = False
EndFunc   ;==>_Exit


Func _Mwin()
        GUISetState(@SW_HIDE, $Form1)
        Opt("TrayIconHide", 0)
EndFunc   ;==>_Mwin

;点托盘恢复窗口
Func _huifu()
        ;Opt("TrayIconHide", 1) ;隐藏托盘
        GUISetState(@SW_SHOW, $Form1)
        WinActivate($Form1)
EndFunc   ;==>_huifu

Func DelCache($iCacheEntryType)
        _WinINet_Startup()

        While $S ;开关,防卡死
                Sleep(1) ;以防cpu占用超高
                $avCacheEntry = _WinINet_FindFirstUrlCacheEntry($iCacheEntryType)
                If @error Then Return SetError(@error, @extended, 0)
                $avHarray = $avCacheEntry[1]
                _WinINet_DeleteUrlCacheEntry($avHarray[1])
        WEnd

        _WinINet_FindCloseUrlCache($avCacheEntry[0])
        _WinINet_Shutdown()
EndFunc   ;==>DelCache
回复

举报

mtvtop
 楼主| 发表于 2011-12-21 22:50:44 | 显示全部楼层
回复 7# 风行者

风行兄 代码的cpu耗用降低下来了，但运行还是不出现网站，白色的，是不是不支持2003？
回复

举报

风行者
发表于 2011-12-21 23:35:15 | 显示全部楼层
xp测试正常，2003没环境测试不好说
回复

举报

mtvtop
 楼主| 发表于 2011-12-22 00:45:17 | 显示全部楼层
回复 9# 风行者

2003 系统有什么其他的方法没有？头疼呀
回复

举报

mtvtop
 楼主| 发表于 2011-12-22 01:05:25 | 显示全部楼层
回复 9# 风行者

我刚才测试了一下，发现在2003下
DelCache(0)
没有执行起来
改成
DelCache(1)
才能运行，但我需要删除所有临时文件，能帮忙找一下问题吗？
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 16:28 , Processed in 0.081119 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表