b1b11d200301240321351315.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B1b11D200301240321351315.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B1b11D200301240321351315.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(4);
 ClickWindow($FTestWinId,248,274,);sleep(2);  ##
 ClickWindow($FTestWinId,377,295,);sleep(2);  ##
 ClickWindow($FTestWinId,228,424,);sleep(2);  ##
 ClickWindow($FTestWinId,356,355,);sleep(2);  ##
 ClickWindow($FTestWinId,273,443,);sleep(2);  ##
 ClickWindow($FTestWinId,255,387,);sleep(2);  ##
 ClickWindow($FTestWinId,417,397,);sleep(2);  ##
 ClickWindow($FTestWinId,356,402,);sleep(2);  ##
 ClickWindow($FTestWinId,270,404,);sleep(2);  ##
 ClickWindow($FTestWinId,270,404,);sleep(2);  ##
 ClickWindow($FTestWinId,454,416,);sleep(2);  ##
 ClickWindow($FTestWinId,602,444,);sleep(2);  ##
 ClickWindow($FTestWinId,334,320,);sleep(2);  ##
 ClickWindow($FTestWinId,471,424,);sleep(2);  ##
 ClickWindow($FTestWinId,387,379,);sleep(2);  ##
 ClickWindow($FTestWinId,545,439,);sleep(2);  ##
 ClickWindow($FTestWinId,392,389,);sleep(2);  ##
 ClickWindow($FTestWinId,391,419,);sleep(2);  ##
 ClickWindow($FTestWinId,411,397,);sleep(2);  ##
 ClickWindow($FTestWinId,417,411,);sleep(2);  ##
 ClickWindow($FTestWinId,412,409,);sleep(2);  ##
 ClickWindow($FTestWinId,414,410,);sleep(2);  ##
 ClickWindow($FTestWinId,414,410,);sleep(2);  ##
 ClickWindow($FTestWinId,450,413,);sleep(2);  ##
 ClickWindow($FTestWinId,439,425,);sleep(2);  ##
 ClickWindow($FTestWinId,439,425,);sleep(2);  ##
 ClickWindow($FTestWinId,408,422,);sleep(2);  ##
 ClickWindow($FTestWinId,408,422,);sleep(2);  ##
 ClickWindow($FTestWinId,408,422,);sleep(2);  ##
 ClickWindow($FTestWinId,408,422,);sleep(2);  ##
 ClickWindow($FTestWinId,408,422,);sleep(2);  ##
 ClickWindow($FTestWinId,408,422,);sleep(2);  ##
 ClickWindow($FTestWinId,610,448,);sleep(2);  ##
sleep(5);`killall fplayer`;