b0a17t000000d20030228t131313r7188686382.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B0a17T000000D20030228T131313R7188686382.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0a17T000000D20030228T131313R7188686382.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
 ClickWindow($FTestWinId,505,386,);sleep(2);  ##
 ClickWindow($FTestWinId,580,446,);sleep(2);  ##
 ClickWindow($FTestWinId,400,379,);sleep(2);  ##
 ClickWindow($FTestWinId,563,446,);sleep(2);  ##
 ClickWindow($FTestWinId,321,381,);sleep(2);  ##
 ClickWindow($FTestWinId,313,94,);sleep(2);  ##
 ClickWindow($FTestWinId,563,448,);sleep(2);  ##
 ClickWindow($FTestWinId,240,378,);sleep(2);  ##
 ClickWindow($FTestWinId,201,275,);sleep(2);  ##
 ClickWindow($FTestWinId,559,433,);sleep(2);  ##
sleep(2);`killall fplayer`;