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

flw

[quote]原帖由 "superdoctor"]WINDOWS确实比较讨厌,你到其他WINDOWS的论坛去问问,这里是CHINAUNIX,老实说大家的WINDOWS经验不是太丰富的 [/quote 发表：
不许撵人家走!
楼主别灰心,
让我帮你去试试, 看有没有什么好办法.

freeand

原帖由 "flw" 发表：
恍砟烊思易?
楼主别灰心,
让我帮你去试试, 看有没有什么好办法.

谢谢！

superdoctor

[quote]原帖由 "flw" 发表：
恍砟烊思易

bytewolf

1. 
   
2. use Win32::Job;
   
3.    
   
4. my $job = Win32::Job->;new;
   
5.    $job->;spawn("cmd", q{cmd /C "date 2005-01-06"});
   
6.    $job->;spawn("cmd", q{cmd /C "time 12:07:12"});
   
7.    $job->;run(10);
   

复制代码

superdoctor

bytewolf,你的这个会不会弹出dos窗口?

freeand

[quote]原帖由 "bytewolf"][/quote 发表：


有两个窗口弹出来。。。

bytewolf

奇怪了...在我的winxp上,除了运行该程序打开的一个cmd窗口外,运行中不会再弹出新的窗口啊....

flw

折腾了一晚上，终于搞定楼主的问题了：

1. #!/usr/bin/perl -w
   
2. # 2005.01.05 习作于武汉 writed by flw
   
3. 
   
4. use strict;
   
5. use Win32::API;
   
6. use Tk;
   
7. 
   
8. my $ret;
   
9. 
   
10. Win32::API::Struct->;typedef( 'TIMESTRUCT' =>; qw(
    
11.     WORD wYear;
    
12.     WORD wMonth;
    
13.     WORD wDayOfWeek;
    
14.     WORD wDay;
    
15.     WORD wHour;
    
16.     WORD wMinute;
    
17.     WORD wSecond;
    
18.     WORD wMilliseconds;
    
19.     ) ) || die "typedef struct TIMESTRUCT failed: [$!]\n";
    
20. 
    
21. $ret = Win32::API->;Import( 'Kernel32.dll', 'VOID GetLocalTime( LPTIMESTRUCT time )' );
    
22. die "Import Win32API GetLocalTime failed: [$!]\n" unless $ret;
    
23. $ret = Win32::API->;Import( 'Kernel32.dll', 'BOOL SetLocalTime( LPTIMESTRUCT time )' );
    
24. die "Import Win32API SetLocalTime failed: [$!]\n" unless $ret;
    
25. 
    
26. my $win = new Tk::MainWindow( '-title' =>; 'flw' );
    
27. my $labelText = 'Press OK to set local time';
    
28. $win->;Label( '-textvariable' =>; \$labelText )->;pack();
    
29. $win->;Button( '-text' =>; 'OK', '-command' =>; \&OnOK )->;pack();
    
30. 
    
31. sub OnOK{
    
32.     my $timeVar = Win32::API::Struct->;new( 'TIMESTRUCT' );
    
33.     $timeVar->;align(0);
    
34.     GetLocalTime( $timeVar );
    
35.     $timeVar->;{ 'wYear' } = 2005;
    
36.     $timeVar->;{ 'wMonth' } = 1;
    
37.     $timeVar->;{ 'wDay' } = 23;
    
38.     my $ret = SetLocalTime( $timeVar );
    
39.     $labelText = "ret: [$ret]  ".($ret ? 'success' : "failed: [$!]");
    
40. }
    
41. 
    
42. MainLoop();
    

复制代码

flw

主要思路是利用 Win32::API 模块来调用 windows SDK 提供的功能，
按照这个思路可以调用所有的 SDK API。

至于怎么不弹出窗口来，
我想用 CreateProcess 应该可以的。
system 肯定是不行的，因为 system 要激活一个 cmd 进程。
我用 WinExec( "cmd /c date 2005-01-20", SW_HIDDEN ) 试过，按思路讲应该是可以实现的，不过始终报错“找不到命令文件”，不知道是我哪里搞错了，改天再折腾折腾。

flw

Win32::API 可以用 ppm 下载下来。

哈哈！现在我总算是基本掌握了扩展 Perl 和嵌入 Perl 两种技术。
从而可以实现 Perl/C 混合编程了。