b0b13d200301232041495967.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 B0B13D200301232041495967.swf|grep GetURL');
# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('B0B13D200301232041495967.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}
SetEventSendDelay(1);
sleep(4);
 ClickWindow($FTestWinId,184,349,);sleep(2);  ##
SendKeys('1'); ##
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,249,346,);sleep(2);  ##
SendKeys('1'); ##
SendKeys('3'); sleep(1); ##
 ClickWindow($FTestWinId,324,348,);sleep(2);  ##
SendKeys('6');sleep (1); ##
 ClickWindow($FTestWinId,402,347,);sleep(2);  ##
SendKeys('1'); ##
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,454,346,);sleep(2);  ##
SendKeys('4'); ##
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,465,349,);sleep(2);  ##
SendKeys('4'); ##
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,561,346,);sleep(2);  ##
SendKeys('1'); ##
SendKeys('1'); sleep(1); ##
 ClickWindow($FTestWinId,195,382,);sleep(2);  ##
SendKeys('7');sleep(1); ##
 ClickWindow($FTestWinId,167,408,);sleep(2);  ##
SendKeys('1');  ##
SendKeys('7'); sleep(1); ##
 ClickWindow($FTestWinId,252,374,);sleep(2);  ##
SendKeys('5'); sleep(1); ##
 ClickWindow($FTestWinId,260,407,);sleep(2);  ##
SendKeys('1');##
SendKeys('8'); sleep(1); ##
 ClickWindow($FTestWinId,331,379,);sleep(2);  ##
SendKeys('1'); ##
SendKeys('0'); sleep(1); ##
 ClickWindow($FTestWinId,318,415,);sleep(2);  ##
SendKeys('1'); ##
SendKeys('6'); sleep(1); ##
 ClickWindow($FTestWinId,405,371,);sleep(2);  ##
SendKeys('9'); sleep(1); ##
 ClickWindow($FTestWinId,388,412,);sleep(2);  ##
SendKeys('2'); ##
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,473,380,);sleep(2);  ##
SendKeys('6'); sleep(1); ##
 ClickWindow($FTestWinId,471,410,);sleep(2);  ##
SendKeys('BackSpace'); sleep(1); ##
SendKeys('2'); ##
SendKeys('4'); ##
SendKeys('4'); sleep(1); ##
 ClickWindow($FTestWinId,531,461,);sleep(2);  ##
 ClickWindow($FTestWinId,599,463,);sleep(2);  ##
sleep(5);`killall fplayer`;