1,502
社区成员
发帖
与我相关
我的任务
分享怎么不让WebBrowser保存任何文件到本地硬盘缓存中？
怎么不让WebBrowser保存任何文件到本地硬盘缓存中，包括网页、图片等，任何文件都不保留。
请问各位有什么好的方法或建议吗？多谢！
请问各位有什么好的方法或建议吗？多谢！
...全文
请发表友善的回复…
发表回复
rainstormmaster 2007-04-22
- 打赏
- 举报
//方法2、微软网站找到的。但是他是将所有的缓存都删除（将通过IE浏览过的都删除了。）
而我的是通过Webbrowser1浏览过的才删除。
不知道是不是这个:http://support.microsoft.com/kb/262110
在此基础上修改,你只要注意根据INTERNET_CACHE_ENTRY_INFO结构进行筛选即可,关于INTERNET_CACHE_ENTRY_INFO可以参考:http://msdn2.microsoft.com/en-us/library/aa385134.aspx
而我的是通过Webbrowser1浏览过的才删除。
不知道是不是这个:http://support.microsoft.com/kb/262110
在此基础上修改,你只要注意根据INTERNET_CACHE_ENTRY_INFO结构进行筛选即可,关于INTERNET_CACHE_ENTRY_INFO可以参考:http://msdn2.microsoft.com/en-us/library/aa385134.aspx
szyss 2007-04-20
- 打赏
- 举报
CSDN上找到的
判断URL是否在IE缓存中，并仅删除该URL。
http://blog.csdn.net/modest/archive/2006/10/17/1338446.aspx
Option Explicit
Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Public Function InCache(ByVal URL As String) As Boolean
If GetUrlCacheEntryInfo(URL, ByVal 0&, 0) = 0 Then
InCache = (Err.LastDllError = 122)
End If
End Function
Public Sub DeleteCacheURL(ByVal URL As String)
DeleteUrlCacheEntry URL
End Sub
使用方法：
Private Sub Command1_Click()
Dim URL As String
URL = "http://www.chenoe.com/default.asp"
If (InCache(URL)) Then
DeleteCacheURL URL
End If
End Sub
判断URL是否在IE缓存中，并仅删除该URL。
http://blog.csdn.net/modest/archive/2006/10/17/1338446.aspx
Option Explicit
Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Public Function InCache(ByVal URL As String) As Boolean
If GetUrlCacheEntryInfo(URL, ByVal 0&, 0) = 0 Then
InCache = (Err.LastDllError = 122)
End If
End Function
Public Sub DeleteCacheURL(ByVal URL As String)
DeleteUrlCacheEntry URL
End Sub
使用方法：
Private Sub Command1_Click()
Dim URL As String
URL = "http://www.chenoe.com/default.asp"
If (InCache(URL)) Then
DeleteCacheURL URL
End If
End Sub
szyss 2007-04-20
- 打赏
- 举报
方法1、这是CSDN找到的，但是在Webbrowser1_DownloadComplete后，加入相关代码后，还是无法删除刚浏览完的缓存？ 不知为什么？
Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Public Function InCache(ByVal URL As String) As Boolean
If GetUrlCacheEntryInfo(URL, ByVal 0&, 0) = 0 Then
InCache = (Err.LastDllError = 122)
End If
End Function
Public Sub DeleteCacheURL(ByVal URL As String)
DeleteUrlCacheEntry URL
End Sub
Private Sub Webbrowser1_DownloadComplete()
On Error Resume Next
StatusBar1.Panels(1).Text = "完成"
ProgressBar1.Value = 0
url22 = WebBrowser1.LocationURL
If (InCache(url22)) Then
DeleteCacheURL url22
End If
End Sub
方法2、微软网站找到的。但是他是将所有的缓存都删除（将通过IE浏览过的都删除了。）
而我的是通过Webbrowser1浏览过的才删除。
Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Public Function InCache(ByVal URL As String) As Boolean
If GetUrlCacheEntryInfo(URL, ByVal 0&, 0) = 0 Then
InCache = (Err.LastDllError = 122)
End If
End Function
Public Sub DeleteCacheURL(ByVal URL As String)
DeleteUrlCacheEntry URL
End Sub
Private Sub Webbrowser1_DownloadComplete()
On Error Resume Next
StatusBar1.Panels(1).Text = "完成"
ProgressBar1.Value = 0
url22 = WebBrowser1.LocationURL
If (InCache(url22)) Then
DeleteCacheURL url22
End If
End Sub
方法2、微软网站找到的。但是他是将所有的缓存都删除（将通过IE浏览过的都删除了。）
而我的是通过Webbrowser1浏览过的才删除。
szyss 2007-04-20
- 打赏
- 举报
不知是不是
If (InCache(url22)) Then
DeleteCacheURL url22
End If
语句放错了Webbrowser1的DownloadComplete事件呢？
不过放在NavigateComplete2事件，也是不能删除
If (InCache(url22)) Then
DeleteCacheURL url22
End If
语句放错了Webbrowser1的DownloadComplete事件呢？
不过放在NavigateComplete2事件，也是不能删除
szyss 2007-04-19
- 打赏
- 举报
查了很多资料，好象无办法设定不保存，只能写代码去删除？
rainstormmaster 2007-04-19
- 打赏
- 举报
先MARK
CathySun118 2007-04-19
- 打赏
- 举报
不会,帮顶
hexinchun148 2007-04-19
- 打赏
- 举报
用代码怎么写呢？
