.版本 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)