网页_设置清除cookie

资源介绍：

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

资源作者：

一壶

资源界面：

.版本 2
.支持库 HtmlView

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

超文本浏览框1.跳转 (“http://www.volcano3d.cn/forum.php”, , )
信息框 (“先登录你的论坛帐号，然后点击清除cookie看看”, 0, , )

.子程序 _按钮1_被单击

信息框 (“看看是不是退出登录状态了”, 0, )
' ie_静音 ()
' ie_置UA (“Mozilla/5.0 (Linux; U; Android 2.2; en-us; Nexus One Build/FRF91) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1”)
ie_置cookie (“www.volcano3d.cn”)
超文本浏览框1.跳转 (“http://www.volcano3d.cn/forum.php”, , )

.子程序 ie_置cookie, , 公开, 设置或删除cookie
.参数 域名, 文本型
.参数 cookie, 文本型, 可空, 空文本则删除
.局部变量 host, 文本型
.局部变量 i, 整数型
.局部变量 tmps, 文本型, , "0"
.局部变量 tmp, 文本型
.局部变量 name, 文本型
.局部变量 len, 整数型
.局部变量 value, 文本型
.局部变量 bin, 字节集
.局部变量 hand, 整数型
.局部变量 pt, 整数型

.如果真 (cookie ＝ “”)
    bin ＝ 取空白字节集 (4096)
    hand ＝ net_FindFirstUrlCacheEntry (“Cookie:”, bin, 4096)  ' Cookie:还可以设置为core. visited:(历史记录)等
    i ＝ hand
    .判断循环首 (i ＞ 0)
        pt ＝ 取字节集数据 (取字节集中间 (bin, 5, 4), 3, )  ' 取回当前缓存指针
        tmp ＝ 指针到文本 (pt)  ' 取回Cookie文本信息
        .如果真 (寻找文本 (tmp, host, , 真) ≠ -1)
            net_DeleteUrlCacheEntry (tmp)  ' 删除符合特征的Cookie
        .如果真结束
        i ＝ net_FindNextUrlCacheEntry (hand, bin, 4096)  ' 取回当前缓存位置
    .判断循环尾 ()
    net_FindCloseUrlCache (hand)  ' 关闭IE缓存
    net_InternetSetOptionA (0, 42, 0, 0)  ' 删除sessioncookie
    返回 ()
.如果真结束
tmps ＝ 分割文本 (cookie, “;”, )
.计次循环首 (取数组成员数 (tmps), i)
    tmp ＝ tmps [i]
    .如果真 (tmp ＝ “”)
        到循环尾 ()
    .如果真结束
    len ＝ 取文本长度 (tmp)
    i ＝ 寻找文本 (tmp, “=”, , 假)
    i ＝ 选择 (i ≤ 0, len, i － 1)
    name ＝ 删首尾空 (取文本左边 (tmp, i))
    value ＝ 删首尾空 (取文本右边 (tmp, len － i － 1)) ＋ “;expires=Wen, 01-Jan-2099 00:00:01 GMT”
    net_InternetSetCookieA (“https://” ＋ host, name, value)
    net_InternetSetCookieA (“http://” ＋ host, name, value)
.计次循环尾 ()

.子程序 ie_静音, , 公开

ole_CoInternetSetFeatureEnabled (21, 2, 真)  ' 静音

.子程序 ie_置UA, , 公开
.参数 UserAgent, 文本型, 可空

UserAgent ＝ 选择 (UserAgent ＝ “”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 5.1; Trident/5.0;)”, UserAgent)
ole_UrlMkSetSessionOption (268435457, UserAgent, 取文本长度 (UserAgent), 0)

资源下载：