b0b13d200301232223237571.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 B0B13D200301232223237571.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232223237571.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
sleep(4);
 ClickWindow($FTestWinId,400,239,);sleep(2);  ##
 ClickWindow($FTestWinId,227,275,);sleep(2);  ##
 ClickWindow($FTestWinId,201,440,);sleep(2);  ##
 ClickWindow($FTestWinId,303,215,);sleep(2);  ##
 ClickWindow($FTestWinId,580,456,);sleep(2);  ##
 ClickWindow($FTestWinId,417,246,);sleep(2);  ##
 ClickWindow($FTestWinId,445,434,);sleep(2);  ##
 ClickWindow($FTestWinId,584,456,);sleep(2);  ##
 ClickWindow($FTestWinId,506,390,);sleep(2);  ##
 ClickWindow($FTestWinId,589,457,);sleep(2);  ##
 ClickWindow($FTestWinId,515,402,);sleep(2);  ##
 ClickWindow($FTestWinId,451,422,);sleep(2);  ##
 ClickWindow($FTestWinId,515,452,);sleep(2);  ##
 ClickWindow($FTestWinId,444,440,);sleep(2);  ##
 ClickWindow($FTestWinId,516,455,);sleep(2);  ##
 ClickWindow($FTestWinId,320,441,);sleep(2);  ##
 ClickWindow($FTestWinId,331,414,);sleep(2);  ##
 ClickWindow($FTestWinId,575,454,);sleep(2);  ##
 ClickWindow($FTestWinId,408,433,);sleep(2);  ##
 ClickWindow($FTestWinId,425,430,);sleep(2);  ##
 ClickWindow($FTestWinId,515,457,);sleep(2);  ##
 ClickWindow($FTestWinId,546,431,);sleep(2);  ##
 ClickWindow($FTestWinId,438,444,);sleep(2);  ##
 ClickWindow($FTestWinId,443,435,);sleep(2);  ##
 ClickWindow($FTestWinId,579,457,);sleep(2);  ##
 ClickWindow($FTestWinId,407,458,);sleep(2);  ##
 ClickWindow($FTestWinId,457,456,);sleep(2);  ##
 ClickWindow($FTestWinId,405,445,);sleep(2);  ##
 ClickWindow($FTestWinId,521,461,);sleep(2);  ##
sleep(5);`killall fplayer`;