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

freeand

谢谢flw！！！！！成功啦~~~

superdoctor

原帖由 "flw" 发表：
Win32::API 可以用 ppm 下载下来。

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

flw确实强

建议加精,这个例子对WIN下vs的程序员平滑过渡到perl程序员非常有启发意义啊

加精吧,flw

flw

to 楼上：
我正准备等融会贯通之后，写一些 Perl/C 混合编程的系列文章呢。
我准备分成三部分：
1，利用 C 语言编制模块来扩展 Perl 的功能。
2，在 Perl 中调用 C 语言书写好的动态/静态链接库（就是这个帖子中的例子了）
3，在 C 语言中嵌入 Perl 解释器
大家也可以考虑考虑。

至于加精华，因为我说过是不要精华的，所以就暂时先不加了。

freeand

http://www.chinaunix.net/forum/viewtopic.php?t=474265&show_type=&sid=003f38f0d1e5e74cfd3ef66cd0ea7326

请问如何改啊？或者有什么更好的可以用在linux和windows下的定时器？谢谢了~

superdoctor

原帖由 "flw" 发表：
to 楼上：
我正准备等融会贯通之后，写一些 Perl/C 混合编程的系列文章呢。
我准备分成三部分：
1，利用 C 语言编制模块来扩展 Perl 的功能。
2，在 Perl 中调用 C 语言书写好的动态/静态链接库（就是这个帖子中..........

有一本书叫做<erl 语言技术内幕>;,有中译本卖,里面有比较详细介绍PERL与C协同的章节,呵呵,我有这本书,但是没有电子版的,不然就共享出来了

SCYANGYU

原帖由 flw 于 2005-1-6 19:25 发表
to 楼上：
我正准备等融会贯通之后，写一些 Perl/C 混合编程的系列文章呢。
我准备分成三部分：
1，利用 C 语言编制模块来扩展 Perl 的功能。
2，在 Perl 中调用 C 语言书写好的动态/静态链接库（就是这个帖 ...

我想通过Win32::API来调用我的dll中的函数。如果参数是integer类型,能够正常调用，返回正确的计算结果。但是，如果参数是double类型，就会报错！
"Perl Command Line Interpreter has encountered a problem and needs to close. We are sorry for the inconvenience"
是不是Win32::API不支持double类型的参数？

#这个能正确调用
my $function=Win32::API->new('TestDLL', 'int foo1(int P, int T)');
my $return=$function->Call(100, 200);
#这个调用会出错
my $function2=Win32::API->new('TestDLL', 'double foo2(double P, double T)');
my $return2=$function2->Call(10.0, 20.0);

刚刚测试《Perl高级编程（Profssional Perl Programming）》中的例子
use Win32::API;
# import the cos function
$cos = new Win32::API('msvcrt', 'cos', 'D', 'D');
# $cos is an object, use the Call() method on it
$result = $cos->Call(2.0);
print "cos(2.0) = $result\n";
仍然没有成功！
请高手们解答一下。

ttcn

原帖由 flw 于 2005-1-5 21:10 发表
主要思路是利用 Win32::API 模块来调用 windows SDK 提供的功能，
按照这个思路可以调用所有的 SDK API。

至于怎么不弹出窗口来，
我想用 CreateProcess 应该可以的。
system 肯定是不行的，因为 system  ...

找不到程序是因为在cmd本身不是程序，cmd.exe 才是:mrgreen:

不知道怎么导api到perl里，网上搜索无果，最后还是在chinaunix里找到了个类似的帖子修改了下成功改变了系统时间（vista，不弹出窗口）
#!perl
use Win32::API;
$WinExec = Win32::API->new('kernel32','WinExec',[P,I],I);
$WinExec->Call("cmd.exe /c date 2009-10-10",0x00000);

http://bbs2.chinaunix.net/thread-1470790-1-5.html

网上关于perl + dll 的资料太少，老大加油！！！期待Perl进阶应用！！

[ 本帖最后由 ttcn 于 2009-10-11 15:48 编辑 ]

lokchungk

看看CPAN上關於Win32::API的介紹吧
http://search.cpan.org/~cosimo/Win32-API-0.59/API.pm

如果不怕麻煩的話可以用SetSystemTime()代替date

ttcn

多谢指点,下次写代码的时候先看这个链接