perl -MWin32::TieRegistry -E "say for keys
%{$Registry->Open('\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run')->{'OptionalComponents\\'}}"


IMAIL\
MAPI\
MSFS\
\


再接着演示下去我机器上的秘密注册表项就要全部公开了 :D

2009/1/9 shandaw <[email protected]>

>
>
> On 1月9日, 下午2时27分, "purl lamp" <[email protected]> wrote:
> > 所以你需要递归 :D
> >
>
>
> 不 好意思,我比较菜,能否写个例子啊,谢谢啦!
> >
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina 论坛”论坛。
 要在此论坛发帖,请发电子邮件到 [email protected]
 要退订此论坛,请发邮件至 [email protected]
 更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

<<inline: image2392.png>>

回复