b0b13d200301232032155368.pl.svn-base

A Flash Player with ActionScript support. Write in C and C++. It have two part, one is Player and an

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;
# Start gedit application
StartApp('./fplayer -f B0B13D200301232032155368.SWF|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232032155368.SWF');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1);
sleep(9);
 ClickWindow($FTestWinId,590,442,);sleep(2);  ##
 ClickWindow($FTestWinId,233,441,);sleep(2);  ##
SendKeys('3'); 
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,362,443,);sleep(2);  ##
SendKeys('2'); 
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,448,441,);sleep(2);  ##
SendKeys('6');
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,574,437,);sleep(4);  ##
 ClickWindow($FTestWinId,246,443,);sleep(2);  ##
SendKeys('1'); 
SendKeys('9'); sleep(1); ##
 ClickWindow($FTestWinId,570,456,);sleep(4);  ##
 ClickWindow($FTestWinId,274,446,);sleep(2);  ##
SendKeys('4');
SendKeys('5');
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,551,454,);sleep(4);  ##
 ClickWindow($FTestWinId,320,454,);sleep(2);  ##
SendKeys('4');
SendKeys('3'); sleep(1); ##
 ClickWindow($FTestWinId,577,464,);sleep(4);  ##
 ClickWindow($FTestWinId,346,444,);sleep(2);  ##
SendKeys('1'); 
SendKeys('4');
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,540,459,);sleep(4);  ##
 ClickWindow($FTestWinId,378,458,);sleep(2);  ##
SendKeys('5');
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,573,462,);sleep(4);  ##
 ClickWindow($FTestWinId,360,450,);sleep(2);  ##
SendKeys('2');
SendKeys('4');
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,564,457,);sleep(4);  ##
 ClickWindow($FTestWinId,362,452,);sleep(2);  ##
SendKeys('6');
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,564,449,);sleep(4);  ##
 ClickWindow($FTestWinId,324,458,);sleep(2);  ##
SendKeys('875'); 
sleep(1); ##
 ClickWindow($FTestWinId,564,439,);sleep(4);  ##
 ClickWindow($FTestWinId,297,457,);sleep(2);  ##
SendKeys('40'); 
sleep(1); ##
 ClickWindow($FTestWinId,460,460,);sleep(2);  ##
SendKeys('9');
SendKeys('6'); sleep(1); ##
 ClickWindow($FTestWinId,589,454,);sleep(4);  ##
 ClickWindow($FTestWinId,578,453,);sleep(2);  ##
sleep(5);`killall fplayer`;