b0b13d200301232129577074.pl

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

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301232129577074.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232129577074.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(100);
sleep(10);
 ClickWindow($FTestWinId,600,439,);  ##
 ClickWindow($FTestWinId,600,439,);sleep(3);  ##
 ClickWindow($FTestWinId,601,437,);sleep(2);  ##
 ClickWindow($FTestWinId,601,437,);sleep(2);  ##
 ClickWindow($FTestWinId,601,437,);sleep(2);  ##
 ClickWindow($FTestWinId,601,437,);sleep(2);  ##
 ClickWindow($FTestWinId,601,437,);sleep(3);  ##
 ClickWindow($FTestWinId,601,437,);sleep(3);  ##
 ClickWindow($FTestWinId,601,437,);sleep(3);  ##
 ClickWindow($FTestWinId,601,437,);sleep(3);  ##
 ClickWindow($FTestWinId,601,437,);sleep(3);  ##
 ClickWindow($FTestWinId,601,437,);sleep(6);  ##
 ClickWindow($FTestWinId,42,433,);sleep(2);  ##
 ClickWindow($FTestWinId,33,428,);sleep(2);  ##
 ClickWindow($FTestWinId,35,428,);sleep(2);  ##
 ClickWindow($FTestWinId,35,428,);sleep(2);  ##
 ClickWindow($FTestWinId,35,428,);sleep(2);  ##
 ClickWindow($FTestWinId,35,428,);sleep(2);  ##
 ClickWindow($FTestWinId,35,427,);sleep(2);  ##
 ClickWindow($FTestWinId,35,427,);sleep(2);  ##
 ClickWindow($FTestWinId,35,427,);sleep(2);  ##
 ClickWindow($FTestWinId,36,426,);sleep(2);  ##
 ClickWindow($FTestWinId,36,426,);  ##
sleep(12);`killall fplayer`;