b0b13d200301231915401886.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301231915401886.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301231915401886.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(10);
sleep(9);
 ClickWindow($FTestWinId,601,450,);sleep(8);  ##
 ClickWindow($FTestWinId,605,453,);sleep(4);  ##
 ClickWindow($FTestWinId,605,453,);sleep(2);  ##
 ClickWindow($FTestWinId,158,381,);sleep(2);  ##
 ClickWindow($FTestWinId,159,381,);sleep(2);  ##
 ClickWindow($FTestWinId,159,381,);sleep(2);  ##
 ClickWindow($FTestWinId,604,459,);sleep(2);  ##
 ClickWindow($FTestWinId,145,375,);sleep(2);  ##
 ClickWindow($FTestWinId,145,375,);sleep(2);  ##
 ClickWindow($FTestWinId,145,375,);sleep(2);  ##
 ClickWindow($FTestWinId,608,450,);sleep(2);  ##
 ClickWindow($FTestWinId,136,415,);sleep(2);  ##
 ClickWindow($FTestWinId,136,413,);sleep(2);  ##
 ClickWindow($FTestWinId,136,413,);sleep(2);  ##
 ClickWindow($FTestWinId,136,412,);sleep(2);  ##
 ClickWindow($FTestWinId,616,455,);sleep(2);  ##
sleep(5);`killall fplayer`;