将 IE Cookie 加载到 Perl 的 WWW::Mechanize

Question

我玩得很开心......

我正在尝试连接到需要登录的网站。我显然可以不登录直接进入该页面，因为 IE 有一个 cookie 可以这样做。

我正在编写一个将由我以外的人运行的脚本，因此我不想发送包含我的登录信息的文件。理想情况下，其他人也不必输入这些信息。

这是代码中相关的小部分。我只想从 IE 加载 cookie 并打印它们（因为我假设一旦它们在那里，它们就会被正确访问）。

我已经搜索了几个小时，甚至读到有人声称这会加载 cookie。我看到它现在能够存储 cookie，但不能在我的计算机上加载现有的 cookie。

#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use HTTP::Cookies::Microsoft;
use Win32::TieRegistry(Delimiter => "/");

my $cookies_dir = $Registry-> {"CUser/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders/Cookies"};
my $cookie_jar = HTTP::Cookies::Microsoft->new(file => "$cookies_dir\\index.dat",'delayload'=>0,);
my $mech = WWW::Mechanize->new(cookie_jar => $cookie_jar);
print "Set Cookie Jar?\n", $cookie_jar->as_string, "\n";
print "Set Cookie Jar?\n", $mech->cookie_jar->as_string, "\n";

我可以加载现有的 cookie 吗？

HTTP::Cookies::Microsoft 不兼容 IE9 吗？ （网站列出了 IE6 和 IE7，但自 2002 年以来未更新）。

我什至看不到这个示例或任何示例中实际加载现有 cookie 的位置。如果只是兼容性问题，IE9有哪些选择？ （我必须坚持IE9，因为它是这家公司的支持浏览器）

谢谢！

Answer 1

在我的 Windows XP 系统上使用 IE8，cookie 位于C:\Documents and Settings\userid\Local Settings\Temporary Internet Files。没有index.dat，cookies在自己的文件里。

我不知道where IE9 stores cookies。

但是，如果您尝试在用户通过 IE 登录的站点上自动执行某些操作并启动您的程序，您可以使用Win32::IE::Mechanize 或通过Win32::OLE 驱动 IE。例如，请参阅我的博客文章 Using Win32::OLE with events to capture Internet Explorer screenshots with Perl 。有关可用方法、属性和事件的信息，请参阅InternetExplorer object documentation。