b0b13d200301231945473024.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301231945473024.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301231945473024.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(4);
 ClickWindow($FTestWinId,538,9,);sleep(2);  ##
 ClickWindow($FTestWinId,538,9,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,538,10,);sleep(2);  ##
 ClickWindow($FTestWinId,500,362,);sleep(2);  ##
 ClickWindow($FTestWinId,539,5,);sleep(2);  ##
 ClickWindow($FTestWinId,291,105,);sleep(2);  ##
 ClickWindow($FTestWinId,449,292,);sleep(2);  ##
 ClickWindow($FTestWinId,516,368,);sleep(2);  ##
 ClickWindow($FTestWinId,540,9,);sleep(2);  ##
 ClickWindow($FTestWinId,488,317,);sleep(2);  ##
 ClickWindow($FTestWinId,488,317,);sleep(2);  ##
 ClickWindow($FTestWinId,484,346,);sleep(2);  ##
 ClickWindow($FTestWinId,489,370,);sleep(2);  ##
 ClickWindow($FTestWinId,465,376,);sleep(2);  ##
 ClickWindow($FTestWinId,541,10,);sleep(2);  ##
 ClickWindow($FTestWinId,541,8,);sleep(2);  ##
sleep(5);`killall fplayer`;