b0b13d200301232223237571.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301232223237571.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232223237571.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1000);
sleep(4);
 ClickWindow($FTestWinId,200,444,);sleep(2);  ##
 ClickWindow($FTestWinId,582,452,);sleep(16);  ##
 ClickWindow($FTestWinId,582,452,);sleep(2);  ##
 ClickWindow($FTestWinId,581,453,);sleep(12);  ##
 ClickWindow($FTestWinId,523,450,);sleep(2);  ##
 ClickWindow($FTestWinId,527,449,);sleep(2);  ##
 ClickWindow($FTestWinId,331,446,);sleep(2);  ##
 ClickWindow($FTestWinId,571,455,);sleep(10);  ##
 ClickWindow($FTestWinId,528,454,);sleep(6);  ##
 ClickWindow($FTestWinId,435,442,);sleep(2);  ##
 ClickWindow($FTestWinId,582,453,);sleep(13);  ##
 ClickWindow($FTestWinId,579,450,);sleep(10);  ##
 ClickWindow($FTestWinId,524,457,); ##
sleep(5);`killall fplayer`;