b0717t000000d20021010t135031r9007878296.pl

来自「A Flash Player with ActionScript support」· PL 代码 · 共 22 行

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B0717T000000D20021010T135031R9007878296.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0717T000000D20021010T135031R9007878296.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(3);
 ClickWindow($FTestWinId,199,170,);sleep(2);  ##
 ClickWindow($FTestWinId,447,250,);sleep(2);  ##
 ClickWindow($FTestWinId,381,317,);sleep(2);  ##
 ClickWindow($FTestWinId,602,452,);sleep(2);  ##
 ClickWindow($FTestWinId,598,451,);sleep(2);  ##
sleep(2);`killall fplayer`;