VB6判断某一个连接是否保存在Cache中下

PublicFunctionGetCacheEntryInfo(ByValhWndAsLong,ByVallpszUrlAsString)AsBoolean

DimdwEntrySizeAsLong

DimlpCacheEntryAsINTERNET_CACHE_ENTRY_INFO

DimdwTempAsLong

DimlErrAsLong


If(GetUrlCacheEntryInfo(lpszUrl,ByVal0&,dwEntrySize))=0Then

lErr=Err.LastDllError

If(lErr<>ERROR_INSUFFICIENT_BUFFER)Then

’URL没有在Cache中

Err.RaiseeeErrorBase+1,App.EXEName&".mCacheEntry",WinAPIError(lErr)

GetCacheEntryInfo=False

ExitFunction

Else

’URL保存在Cache中

GetCacheEntryInfo=True

EndIf

EndIf

EndFunction


PrivateSubCommand1_Click()

OnErrorGoToErrorHandler

If(GetCacheEntryInfo(Me.hWnd,Text1.Text))Then

MsgBox"URL保存在Cache中.",vbInformation

Else

MsgBox"URL没有保存在Cache中.",vbInformation

EndIf


ExitSub


ErrorHandler:

MsgBox"URL没有保存在Cache中["&Err.Description&"]",vbInformation

EndSub



PrivateSubForm_Load()

Form1.CurrentX=150:Form1.CurrentY=60

Form1.Print"在Text1中输入URL，按Command1检测"

Text1.Text=""

Command1.Default=True

EndSub


运行程序，在TextBox中输入URL地址（例如http://member.netease.com/~blackcat），然后点击Command1

按钮，如果URL在Cache中，程序会弹出消息框显示URL保存在Cache中