a.pl.svn-base

来自「A Flash Player with ActionScript support」· SVN-BASE 代码 · 共 40 行

#!/usr/bin/perl
use X11::GUITest qw/
StartApp
WaitWindowViewable
SendKeys
ClickWindow
SetEventSendDelay
/;

# Start gedit application
StartApp('./fplayer -f fangxiang.swf|grep GetURL');

# Wait for application window to come up and become viewable.
my ($FTestWinId) = WaitWindowViewable('fangxiang.swf');
if (!$FTestWinId) {
    die("Couldn't find gedit window in time!");
}

SetEventSendDelay(100);

ClickWindow($FTestWinId,550,350); sleep(5); 	# 点帮助
ClickWindow($FTestWinId,550,400); 		# 点进入
ClickWindow($FTestWinId,300,260); 		# 赋焦点
SendKeys('30'); 		  		# 输入秒数
ClickWindow($FTestWinId,400,260);		# 点绿钮
ClickWindow($FTestWinId,310,460); 		# 点开始
sleep(2);ClickWindow($FTestWinId,370,460); 	# 东北
sleep(2);ClickWindow($FTestWinId,370,460); 	# 西
sleep(2);ClickWindow($FTestWinId,310,460); 	# 西北
sleep(2);ClickWindow($FTestWinId,430,460); 	# 西北

sleep(4);ClickWindow($FTestWinId,250,300); 	# 再来一次
sleep(1);ClickWindow($FTestWinId,550,400); 	# 点进入
ClickWindow($FTestWinId,300,260); 		# 赋焦点
SendKeys('5'); 					# 输入秒数
ClickWindow($FTestWinId,400,260);		# 点绿钮
ClickWindow($FTestWinId,310,460); 		# 点开始
sleep(11);ClickWindow($FTestWinId,400,300); 	# 不玩了
sleep(2);`killall fplayer`;