精易论坛

标题: 对象形式清除COOKIE 源码 [打印本页]

作者: 挥剑い为红颜 时间: 2013-1-28 14:29
标题: 对象形式清除COOKIE 源码
以我们论坛为例子,如果要清除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]

QQ截图20130128142523.png (14.36 KB, 下载次数: 0)