b0b13d200301232113546758.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301232113546758.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232113546758.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1);
sleep(4);
 ClickWindow($FTestWinId,92,153,);sleep(2);  ##
 ClickWindow($FTestWinId,98,151,);sleep(3);  ##
 ClickWindow($FTestWinId,321,146,);sleep(4);  ##
 ClickWindow($FTestWinId,321,146,);sleep(4);  ##
 ClickWindow($FTestWinId,321,144,);sleep(2);  ##
 ClickWindow($FTestWinId,321,144,);sleep(4);  ##
 ClickWindow($FTestWinId,318,260,);sleep(2);  ##
 ClickWindow($FTestWinId,318,260,);sleep(4);  ##
 ClickWindow($FTestWinId,95,348,);sleep(4);  ##
 ClickWindow($FTestWinId,95,347,);sleep(4);  ##
 ClickWindow($FTestWinId,568,450,);sleep(3);  ##
 ClickWindow($FTestWinId,88,353,);sleep(4);  ##
 ClickWindow($FTestWinId,72,363,);sleep(4);  ##
 ClickWindow($FTestWinId,301,253,);sleep(3);  ##
 ClickWindow($FTestWinId,295,259,);sleep(3);  ##
 ClickWindow($FTestWinId,478,338,);sleep(3);  ##
 ClickWindow($FTestWinId,569,452,);  ##
sleep(5);`killall fplayer`;