作者mosquito520 ( )
看板Perl
标题Re: [问题] 如何关闭使用system开启的程式？
时间Sat Jan 19 15:41:05 2008
根据热心版大及版友的协助，
我上网东抄西抄生出了下面的程式，
这支程式会开启IE，显示指定的页面，
并且在30秒後关闭开启的process。
#!/usr/bin/perl
my $ProcessObj;
my $url = "
http://tw.yahoo.com/";
use Win32::Process qw(STILL_ACTIVE);
use Win32;
Win32::Process::Create($ProcessObj,
"C:\\Progra~1\\Intern~1\\iexplore.exe",
"iexplore $url",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport();
$ProcessObj->Wait(30000);
$ProcessObj->GetExitCode( $exitcode );
print "Process completed with exit code $exitcode\n";
$ProcessObj->Kill($exitcode);
--
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
国 立 联 合 大 学
(理工/电资/管理/技术/客家)院所 招生中
National United University
───────────────────────────────────
首页
http://www.nuu.edu.tw BBS telnet://uun.twbbs.org
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.133.145.202
※ 编辑: mosquito520 来自: 220.133.145.202 (01/19 15:42)
※ 编辑: mosquito520 来自: 220.133.145.202 (01/19 15:45)