b0b13d200301232040245910.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 B0B13D200301232040245910.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232040245910.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1);
sleep(4);
 ClickWindow($FTestWinId,541,123,);sleep(2);  ##
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,547,199,);sleep(2);  ##
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,548,284,);sleep(2);  ##
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,304,368,);sleep(2);  ##
SendKeys('2'); sleep(1); ##
 ClickWindow($FTestWinId,300,399,);sleep(2);  ##
SendKeys('1'); sleep(1); ##
 ClickWindow($FTestWinId,394,439,);sleep(2);  ##
SendKeys('1'); sleep(1); ##
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,531,463,);sleep(2);  ##
 ClickWindow($FTestWinId,600,459,);sleep(2);  ##
 ClickWindow($FTestWinId,536,459,);  ##
sleep(5);`killall fplayer`;