b1b11d200301240511112578.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B1b11D200301240511112578.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B1b11D200301240511112578.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(4);
 ClickWindow($FTestWinId,368,172,);sleep(2);  ##
 ClickWindow($FTestWinId,473,169,);sleep(2);  ##
 ClickWindow($FTestWinId,128,390,);sleep(2);  ##
 ClickWindow($FTestWinId,233,304,);sleep(2);  ##
 ClickWindow($FTestWinId,264,371,);sleep(2);  ##
 ClickWindow($FTestWinId,614,462,);sleep(2);  ##
 ClickWindow($FTestWinId,219,228,);sleep(2);  ##
 ClickWindow($FTestWinId,115,324,);sleep(2);  ##
 ClickWindow($FTestWinId,612,457,);sleep(2);  ##
 ClickWindow($FTestWinId,615,459,);sleep(2);  ##
 ClickWindow($FTestWinId,364,325,);sleep(2);  ##
 ClickWindow($FTestWinId,329,387,);sleep(2);  ##
 ClickWindow($FTestWinId,317,380,);sleep(2);  ##
 ClickWindow($FTestWinId,421,427,);sleep(2);  ##
 ClickWindow($FTestWinId,612,460,);sleep(2);  ##
 ClickWindow($FTestWinId,613,457,);sleep(2);  ##
 ClickWindow($FTestWinId,612,460,);sleep(2);  ##
 ClickWindow($FTestWinId,535,396,);sleep(2);  ##
 ClickWindow($FTestWinId,473,371,);sleep(2);  ##
 ClickWindow($FTestWinId,500,425,);sleep(2);  ##
 ClickWindow($FTestWinId,610,455,);sleep(2);  ##
 ClickWindow($FTestWinId,569,446,);sleep(2);  ##
 ClickWindow($FTestWinId,580,458,);sleep(2);  ##
 ClickWindow($FTestWinId,614,455,);sleep(2);  ##
sleep(5);`killall fplayer`;