b0728t000000d20031014t125436r4360073550.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0728T000000D20031014T125436R4360073550.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0728T000000D20031014T125436R4360073550.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1000);
sleep(4);
 ClickWindow($FTestWinId,553,352,);sleep(4); ##
 ClickWindow($FTestWinId,556,422,);sleep(3);  ##
 ClickWindow($FTestWinId,319,258,);sleep(2);  ##
SendKeys('3'); sleep(1); ##
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,392,259,);sleep(2);  ##
 ClickWindow($FTestWinId,307,459,);sleep(3);  ##
 ClickWindow($FTestWinId,380,457,);sleep(2);  ##
 ClickWindow($FTestWinId,375,454,);sleep(2);  ##
 ClickWindow($FTestWinId,311,460,);sleep(2);  ##
 ClickWindow($FTestWinId,428,463,);sleep(2);  ##
 ClickWindow($FTestWinId,197,293,);sleep(5);  ##
 ClickWindow($FTestWinId,197,293,);sleep(4);  ##
 ClickWindow($FTestWinId,551,416,);sleep(3);  ##
 ClickWindow($FTestWinId,315,262,);sleep(2);  ##
SendKeys('1'); sleep(1); ##
SendKeys('2'); sleep(1); ##
 ClickWindow($FTestWinId,394,258,);sleep(2);  ##
 ClickWindow($FTestWinId,302,459,);sleep(3);  ##
 ClickWindow($FTestWinId,380,457,);sleep(12);  ##
 ClickWindow($FTestWinId,194,302,);sleep(3);  ##
sleep(5);`killall fplayer`;