哪个模块可以更改windows的时期和时间？

freeand

如题，要求是模块。

superdoctor

恕我直言,楼主的说法着实过火,论坛上其他人并没有解答你问题的义务,尽管你的问题简单

freeand

很抱歉！
我一心想着把问题说得简单明了，不好意思了。。。
我找过好多模块，都只是列出日期，或许是做日期的列表，好像都没法更改系统的日期和时间。。。不知谁有过经验的，麻烦说说，谢了~

superdoctor

原帖由 "freeand" 发表：
很抱歉！
我一心想着把问题说得简单明了，不好意思了。。。
我找过好多模块，都只是列出日期，或许是做日期的列表，好像都没法更改系统的日期和时间。。。不知谁有过经验的，麻烦说说，谢了~

没关系,有问题大家帮着看一下也没有问题的

WINDOWS下的

1. 
   
2. use Win32::OLE::Variant;
   
3. 
   
4.         my $v = Variant(VT_DATE, "April 1 99 2:23 pm");
   
5.         print $v->;Date("ddd',' MMM dd yy"), "\n";
   
6.         print $v->;Time("hh.mm.ss tt"), "\n";
   
7. 
   
8. 输出:
   
9. 
   
10.         Thu, Apr 01 99
    
11.         02.23.00 PM
    
12. 
    

复制代码

freeand

我就是这个问题啊，和你这个例子差不多，只能显示日期，不能应用修改到winxp系统啊。。。

superdoctor

这个我没有试过,临时找到的

那你使用system ("time xxxxxx"就可以啦在DOS/WINXP下  

freeand

my $cmd=`date 日期 && time 时间`;

这样是可以的。。。但是，这样在程序里调用，会弹出一个dos窗口。。。

所以，我想用模块方式实现，想避免任何窗口的弹出。。。

freeand

use Win32;
use Win32:rocess;
$CreateOptions=NORMAL_PRIORITY_CLASS | DETACHED_PROCESS;
Win32:rocess::Create($ProcessObj,'C:\WINDOWS\system32\cmd.exe',"cmd time 时间",0,DETACHED_PROCESS,".";
$ProcessObj->;Wait(INFINITE);
$ProcessObj->;GetExitCode($ExitCode);

这样也不行~~~

superdoctor

WINDOWS确实比较讨厌,你到其他WINDOWS的论坛去问问,这里是CHINAUNIX,老实说大家的WINDOWS经验不是太丰富的

freeand

关于perl的论坛越来越少了。。。哎~