Question

进度条不遵循脚本。我想在脚本执行时显示进度条。当它完成它应该停止。目前正在进行全程处理，然后进行打印输出。请在下面找到我的代码：

$Progress_bars = $main->AddProgressBar(
   -pos        => [10,840],
   -background => [0,255,85],
   -smooth     => 1,
   -size       => [470,20],
);
my $intended_max = 100;
my $x = 11;
my $y = int($intended_max/$x);
$Progress_bars->SetRange(0,$x*$y);
for (1 .. $x) {
    Win32::GUI::DoEvents();
    $Progress_bars->SetStep($y);
    $Progress_bars->StepIt();
    Win32::Sleep(50);
}

$output = $telnet->print('ls');
print $output;

Answer 1

您的代码是按进度值增加值，而不是直接设置它。尝试使用SetPos方法而不是SetStep和StepIt。

（请注意，我不使用Win32 :: GUI，因此我猜测基于MSDN的方法名称。）

Perl win32 :: GUI进度条

1 个答案: