跳过度娘的防御机制_百度知道

熟悉么？反正我是烦透了！不管他是个什么玩意，暂且把它叫做度娘的防御机制。它很烦？跳过它！怎么跳？看代码:





​​procedure​​ ​​DeleteIECache(httpStr: ​​​​string​​​​); ​​​​// 清理IE缓存,IE.cookies​​


​​var​​ 


​​lpEntryInfo: PInternetCacheEntryInfo;   ​​


​​hCacheDir: ​​​​LongWord​​​​;   ​​


​​dwEntrySize: ​​​​LongWord​​​​;   ​​


​​cachefile: ​​​​string​​​​;   ​​


​​begin​​ 


​​dwEntrySize := ​​​​0​​​​;​​


​​FindFirstUrlCacheEntry(​​​​nil​​​​, TInternetCacheEntryInfo(​​​​nil​​​​^), dwEntrySize);   ​​


​​GetMem(lpEntryInfo, dwEntrySize);   ​​


​​if​​ ​​dwEntrySize > ​​​​0​​ ​​then​​


​​lpEntryInfo^.dwStructSize := dwEntrySize;​​


​​hCacheDir := FindFirstUrlCacheEntry(​​​​nil​​​​, lpEntryInfo^, dwEntrySize);​​


​​if​​ ​​hCacheDir <> ​​​​0​​ ​​then​​ 


​​begin​​ 


​​repeat​​ 


​​if​​ ​​(lpEntryInfo^.CacheEntryType) ​​​​and​​ ​​(NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY ​​​​then​​


​​cachefile := ​​​​pchar​​​​(lpEntryInfo^.lpszSourceUrlName);​​


​​if​​ ​​pos(httpStr, cachefile) > ​​​​0​​ ​​then​​    ​​//清除特定网站的cookies.例如baidu.com​​


​​DeleteUrlCacheEntry(​​​​pchar​​​​(cachefile)); ​​​​//执行删除操作   ​​


​​FreeMem(lpEntryInfo, dwEntrySize);​​


​​dwEntrySize := ​​​​0​​​​;​​


​​FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(​​​​nil​​​​^), dwEntrySize);   ​​


​​GetMem(lpEntryInfo, dwEntrySize);   ​​


​​if​​ ​​dwEntrySize > ​​​​0​​ ​​then​​ 


​​lpEntryInfo^.dwStructSize := dwEntrySize;   ​​


​​until​​ ​​not​​ ​​FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);   ​​


​​end​​​​;   ​​


​​FreeMem(lpEntryInfo, dwEntrySize);   ​​


​​FindCloseUrlCache(hCacheDir);   ​​


​​end​​​​;​​


 


​​procedure​​ ​​TForm1​​​​.​​​​Button1Click(Sender: TObject);​​


​​begin​​


​​DeleteIECache(Edit1​​​​.​​​​Text);​​


​​end​​​​;​​