b0b11t000004d200303271322340-1.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B0b11T000004D200303271322340-1.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0b11T000004D200303271322340-1.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(4);
 ClickWindow($FTestWinId,446,185,);sleep(2);  ##
 ClickWindow($FTestWinId,443,261,);sleep(2);  ##
 ClickWindow($FTestWinId,400,319,);sleep(2);  ##
 ClickWindow($FTestWinId,349,443,);sleep(2);  ##
 ClickWindow($FTestWinId,426,350,);sleep(2);  ##
 ClickWindow($FTestWinId,457,366,);sleep(2);  ##
 ClickWindow($FTestWinId,611,455,);sleep(2);  ##
 ClickWindow($FTestWinId,297,311,);sleep(2);  ##
 ClickWindow($FTestWinId,400,362,);sleep(2);  ##
 ClickWindow($FTestWinId,489,449,);sleep(2);  ##
 ClickWindow($FTestWinId,374,345,);sleep(2);  ##
 ClickWindow($FTestWinId,429,375,);sleep(2);  ##
 ClickWindow($FTestWinId,613,454,);sleep(2);  ##
 ClickWindow($FTestWinId,471,338,);sleep(2);  ##
 ClickWindow($FTestWinId,498,385,);sleep(2);  ##
 ClickWindow($FTestWinId,612,450,);sleep(2);  ##
 ClickWindow($FTestWinId,477,334,);sleep(2);  ##
 ClickWindow($FTestWinId,616,452,);sleep(2);  ##
 ClickWindow($FTestWinId,464,360,);sleep(2);  ##
 ClickWindow($FTestWinId,510,409,);sleep(2);  ##
 ClickWindow($FTestWinId,617,454,);sleep(2);  ##
 ClickWindow($FTestWinId,494,399,);sleep(2);  ##
 ClickWindow($FTestWinId,514,438,);sleep(2);  ##
 ClickWindow($FTestWinId,614,457,);sleep(2);  ##
 ClickWindow($FTestWinId,310,391,);sleep(2);  ##
 ClickWindow($FTestWinId,401,429,);sleep(2);  ##
 ClickWindow($FTestWinId,614,454,);sleep(2);  ##
 ClickWindow($FTestWinId,488,383,);sleep(2);  ##
 ClickWindow($FTestWinId,603,448,);sleep(2);  ##
 ClickWindow($FTestWinId,395,359,);sleep(2);  ##
 ClickWindow($FTestWinId,406,384,);sleep(2);  ##
 ClickWindow($FTestWinId,613,448,);sleep(2);  ##
 ClickWindow($FTestWinId,440,369,);sleep(2);  ##
 ClickWindow($FTestWinId,450,409,);sleep(2);  ##
 ClickWindow($FTestWinId,617,456,);sleep(2);  ##
 ClickWindow($FTestWinId,364,391,);sleep(2);  ##
 ClickWindow($FTestWinId,396,421,);sleep(2);  ##
 ClickWindow($FTestWinId,610,458,);sleep(2);  ##
sleep(5);`killall fplayer`;