易语言设置清除网页cookie源码

系统结构:ie_置cookie,ie_静音,ie_置UA,ole_CoInternetSetFeatureEnabled,ole_UrlMkSetSessionOption,net_InternetSetCookieA,net_FindFirstUrlCacheEntry,net_FindNextUrlCacheEntry,net_FindCloseUrlCache,net_DeleteUrlCacheEntry,net_InternetGetCookieExA,net_InternetGetCookieA,net_InternetSetOptionA,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ ie_置cookie
           |  |
           |  |------ ie_静音
           |  |
           |  |------ ie_置UA
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ole_CoInternetSetFeatureEnabled
           |  |
           |  |---[dll]------   ole_UrlMkSetSessionOption
           |  |
           |  |---[dll]------   net_InternetSetCookieA
           |  |
           |  |---[dll]------   net_FindFirstUrlCacheEntry
           |  |
           |  |---[dll]------   net_FindNextUrlCacheEntry
           |  |
           |  |---[dll]------   net_FindCloseUrlCache
           |  |
           |  |---[dll]------   net_DeleteUrlCacheEntry
           |  |
           |  |---[dll]------   net_InternetGetCookieExA
           |  |
           |  |---[dll]------   net_InternetGetCookieA
           |  |
           |  |---[dll]------   net_InternetSetOptionA

调用的DLL命令:

.DLL命令 ole_CoInternetSetFeatureEnabled, , "urlmon.dll", "CoInternetSetFeatureEnabled", 公开, 初始化浏览器属性
    .参数 FeatureEntry, 整数型
    .参数 dwFlags, 整数型
    .参数 Enable, 逻辑型

.DLL命令 ole_UrlMkSetSessionOption, 整数型, "urlmon.dll", "UrlMkSetSessionOption", 公开
    .参数 dwOption, 整数型, , INTERNET_OPTION_PROXY ,INTERNET_OPTION_REFRESH ,URLMON_OPTION_USERAGENT,URLMON_OPTION_USERAGENT_REFRESH 
    .参数 pBuffer, 文本型
    .参数 dwBufferLength, 整数型, , Length
    .参数 dwReserved, 整数型, , 0

.DLL命令 net_InternetSetCookieA, 逻辑型, "wininet.dll", "InternetSetCookieA", 公开, 设置cookie
    .参数 域名, 文本型
    .参数 名称, 文本型
    .参数 内容, 文本型

.DLL命令 net_FindFirstUrlCacheEntry, 整数型, "Wininet.dll", "FindFirstUrlCacheEntryA", 公开, 进入IE缓存
    .参数 lpszUrlSearchPattern, 文本型
    .参数 lpFirstCacheEntryInfo, 字节集, , Any型,根据需要可以设置成不同的类型
    .参数 lpdwFirstCacheEntryInfoBufferSize, 整数型, 传址

.DLL命令 net_FindNextUrlCacheEntry, 整数型, "Wininet.dll", "FindNextUrlCacheEntryA", 公开, 下一条缓存
    .参数 hEnumHandle, 整数型
    .参数 lpNextCacheEntryInfo, 字节集, , Any型,根据需要可以设置成不同的类型
    .参数 lpdwNextCacheEntryInfoBufferSize, 整数型, 传址

.DLL命令 net_FindCloseUrlCache, 整数型, "Wininet.dll", "FindCloseUrlCache", 公开, 关闭IE缓存
    .参数 hEnumHandle, 整数型

.DLL命令 net_DeleteUrlCacheEntry, 整数型, "Wininet.dll", "DeleteUrlCacheEntryA", 公开, 删除url缓存
    .参数 lpszUrlName, 文本型

.DLL命令 net_InternetGetCookieExA, 整数型, "wininet.dll", , 公开
    .参数 lpszURL, 文本型
    .参数 lpszCookieName, 文本型
    .参数 lpszCookieData, 文本型
    .参数 lpdwSize, 整数型, 传址
    .参数 dwFlags, 整数型
    .参数 lpReserved, 整数型

.DLL命令 net_InternetGetCookieA, 逻辑型, "wininet.dll", "InternetGetCookieA", 公开, 取cookie
    .参数 域名, 文本型
    .参数 名称, 文本型
    .参数 内容, 文本型
    .参数 尺寸, 整数型, 传址

.DLL命令 net_InternetSetOptionA, 逻辑型, "Wininet.dll", "InternetSetOptionA", 公开, 设置IE属性
    .参数 hInternet, 整数型
    .参数 dwOption, 整数型
    .参数 lpBuffer, 整数型
    .参数 dwBufferLength, 整数型