b0b11t000004d200304050937120-1.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B0b11T000004D200304050937120-1.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0b11T000004D200304050937120-1.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(4);
 ClickWindow($FTestWinId,355,240,);sleep(2);  ##
 ClickWindow($FTestWinId,299,319,);sleep(2);  ##
 ClickWindow($FTestWinId,369,335,);sleep(2);  ##
 ClickWindow($FTestWinId,234,247,);sleep(2);  ##
 ClickWindow($FTestWinId,379,243,);sleep(2);  ##
 ClickWindow($FTestWinId,489,235,);sleep(2);  ##
 ClickWindow($FTestWinId,588,443,);sleep(2);  ##
 ClickWindow($FTestWinId,226,249,);sleep(2);  ##
 ClickWindow($FTestWinId,364,242,);sleep(2);  ##
 ClickWindow($FTestWinId,398,274,);sleep(2);  ##
 ClickWindow($FTestWinId,577,440,);sleep(2);  ##
 ClickWindow($FTestWinId,450,214,);sleep(2);  ##
 ClickWindow($FTestWinId,449,247,);sleep(2);  ##
 ClickWindow($FTestWinId,599,449,);sleep(2);  ##
 ClickWindow($FTestWinId,348,330,);sleep(2);  ##
 ClickWindow($FTestWinId,358,347,);sleep(2);  ##
 ClickWindow($FTestWinId,601,441,);sleep(2);  ##
 ClickWindow($FTestWinId,448,252,);sleep(2);  ##
 ClickWindow($FTestWinId,447,295,);sleep(2);  ##
 ClickWindow($FTestWinId,430,337,);sleep(2);  ##
 ClickWindow($FTestWinId,473,376,);sleep(2);  ##
 ClickWindow($FTestWinId,592,436,);sleep(2);  ##
 ClickWindow($FTestWinId,281,341,);sleep(2);  ##
sleep(5);`killall fplayer`;