我知道 Selenium 无法检测操作系统对话框,所以我想知道如何在 Perl 中完成此操作。我可以使用 Perl 驱动 Selenium RC,直到单击页面上的按钮以打开打印对话框,然后使用非 Selenium Perl 检测该对话框何时以某种方式出现?
如果您好奇,这里的最后一步是记录对话框加载所需的时间。
my $t0 = [gettimeofday];
$sel->click_ok("id=ctl00_ctl00_printButton");
## something like 'dialog_loads_ok("print_dialog");'
my $t1 = [gettimeofday]
my $t0_t1 = tv_interval $t0, $t1;
print "Elapsed time to load print dialog: $t0_t1 minutes\n";