从 IE 中读取 Cookie 信息

最新推荐文章于 2025-05-26 10:56:20 发布

原创最新推荐文章于 2025-05-26 10:56:20 发布 · 2.8k 阅读

1 ·

CC 4.0 BY-SA版权

F# 同时被 3 个专栏收录

745 篇文章

订阅专栏

函数编程

728 篇文章

订阅专栏

互联网

21 篇文章

订阅专栏

本文介绍如何通过引用Microsoft Internet Controls和Microsoft.mshtml COM组件，从Internet Explorer（IE）中读取Cookie信息。首先正常登录系统以生成Cookie，然后在F#代码中通过ShellWindowsClass和HTMLDocument接口获取特定站点的Cookie，并将其保存到CookieContainer中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

从 IE 中读取 Cookie 信息

我们首先正常登录到系统中，就会在客户端产生正常的 Cookie 信息。
需要引用两个 COM 组件：
1、Micrisoft Internet Controls 1.1，即 SHDocVw。
这个组件，如果在脚本中运行时，直接导入 c:\Windows\System32\SHDocVw.dll，好像不行，会出错：
bad cli, header rva 0
通过添加引用，编译，会在 bin 下的相应目录中自动创建一个中 Interop.SHDocVw.dll 的文件，再用 #r 命令引用，就能正常使用了。
2、Microsoft.mshtml 7.0.3300.0

let mutable ck = new CookieContainer()

let GetCookieFromIE ( site: string ) =
let sw = new SHDocVw.ShellWindowsClass()
(
[ for i in sw -> i :?> SHDocVw.InternetExplorer ]
|> Seq.filter( fun i -> i.FullName.ToLower().Contains("iexplore.exe") )
|> Seq.filter( fun i -> i.LocationURL.ToLower().Contains( site.ToLower() ) )
|> Seq.map( fun i -> i.Document :?> mshtml.HTMLDocument )
|> Seq.map( fun i -> i.cookie )
|> Seq.head
).Split(';')

let SetCookie site=
( GetCookieFromIE site )
|> Seq.iter( fun i -> ck.SetCookies(new Uri( site ), i) )

SetCookie "http://site.site.site"