对象形式清除COOKIE 源码

挥剑い为红颜 · 发表于 2013-1-28 14:29:02

以我们论坛为例子,如果要清除COOKIE
例子：
清除COOKIE("125.la")

[e]
.版本 2
.子程序清除Cookie, , 公开, 以删除文件方式清除Cookie
.参数被清除文件, 文本型, 可空, 可空，如空则清除所有Cookie 本参数只接受域名，如 www.sohu.com只需输入sohu即可
.局部变量 FSO, 对象
.局部变量文件名, 文本型
InternetSetOption (0, #INTERNET_OPTION_END_BROWSER_SESSION, 0, 0)
文件名＝寻找文件 (取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies”, ) ＋ “\*.txt”, )
.如果真 (FSO.创建 (“scripting.FileSystemObject”, ))
.如果 (被清除文件＝ “”)
      FSO.方法 (“DeleteFile”, 取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies”, ) ＋ “\*.txt”, 1)
.否则
      文件名＝寻找文件 (“C:\Documents and Settings\IBM\Cookies\*.txt”, )
      .判断循环首 (文件名 ≠ “”)
         .如果 (寻找文本 (文件名, 被清除文件, , 假) ＞ 0)
            FSO.方法 (“DeleteFile”, 取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies”, ) ＋ “\” ＋文件名, 1)
         .否则
         .如果结束
         文件名＝寻找文件 (, )
      .判断循环尾 ()
.如果结束

.如果真结束

.常量 INTERNET_OPTION_END_BROWSER_SESSION, "42"

.DLL命令 InternetSetOption, 整数型, "wininet.dll", "InternetSetOptionA"
.参数 hInternet, 整数型
.参数 dwOption, 整数型
.参数 lpBuffer, 整数型, , Any型,根据需要可以设置成不同的类型
.参数 dwBufferLength, 整数型

[/e]

skytear · 发表于 2013-6-27 16:22:27

学习学习，谢谢分享

lygua · 发表于 2013-6-14 11:18:34

太好了，确实有用，精易模块的没效果，用这个可以正常删除

lygua · 发表于 2013-6-14 11:14:24

对不同系统都有用？

Tony8531 · 发表于 2013-6-10 21:48:21

好东西必须顶

uforong · 发表于 2013-6-7 10:46:04

很好很强大,谢谢楼主

xiao水滴 · 发表于 2013-3-14 04:15:32

菜鸟在学

模拟小圣 · 发表于 2013-3-4 22:40:16

学习到啦

宇智波·佐助 · 发表于 2013-2-5 09:24:56

文本源码太厉害了

sophieqd · 发表于 2013-1-31 01:21:36

这个不错，下载下来玩玩

		自动登录	找回密码
密码			注册

[易语言模块源码] 对象形式清除COOKIE 源码