模拟点击flash控件

片段(1) [全屏查看所有代码]

1. [代码]AAuto     跳至 [1] [全屏预览]

01	import win.ui;

02

/*DSG{{*/

03	var winform = win.form( max=false;bottom=352;right=511;border="dialog frame";text="FLASH控件模拟点击" )

04	winform.add(

05	flashBox={ dr=1;dl=1;bottom=337;right=488;left=19;dt=1;top=16;z=1;db=1;edge=1;cls="custom" }

06

)

07

/*}}*/

08

09	//创建FLASH控件

10	import com.flash;

11	var flash = com.flash( winform.flashBox );

12

13	//响应AS脚本命令

14	flash.command = {

15	msgbox = function( args ){

16	winform.flashBox.msgbox(args)

17

}

18

}

19

20

//打开swf文件

21	flash.movie = "~\example\Flash\testCall.swf"

22	flash.play()winform.show(true)

23

24

//模拟点击

25	import winex.mouse;

26	winex.mouse.click( flash.hwndControl ,79,70)

27

28	win.loopMessage();