b0b13d200301232245107846.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301232245107846.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232245107846.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1500);
sleep(4);
 ClickWindow($FTestWinId,359,308,);sleep(2);  ##
 ClickWindow($FTestWinId,542,446,);sleep(5);  ##
 ClickWindow($FTestWinId,390,236,);sleep(2);  ##
 ClickWindow($FTestWinId,554,447,);sleep(5);  ##
 ClickWindow($FTestWinId,386,223,);sleep(2);  ##
 ClickWindow($FTestWinId,393,386,);sleep(2); ##
 ClickWindow($FTestWinId,599,455,);sleep(5);  ##
 ClickWindow($FTestWinId,365,254,);sleep(2);  ##
 ClickWindow($FTestWinId,586,444,);sleep(5);  ##
 ClickWindow($FTestWinId,395,208,);sleep(2);  ##
 ClickWindow($FTestWinId,393,290,);sleep(2);  ##
 ClickWindow($FTestWinId,393,408,);  ##
sleep(5);`killall fplayer`;