Flash与JavaScript信息交互

macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" id="btn1" width="100" height="50" align="middle">
<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value=/uploadfile/201210/19/16143646958.swf" />
<param name="quality" value="high" />
<param name="bgcolor" value="#ffffff" />
<embed src=/uploadfile/201210/19/16143646958.swf" quality="high" bgcolor="#ffffff" width="100" height="50" swLiveConnect=true id="btn1" name="btn1" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
</td>
</tr>
<tr>
<td width="369" height="200" align="center">
</td></tr>
</table>
</html>
<script language="JavaScript">

var ITerraExplorer = null;
var IPlane = null;
var IMenu = null;
var IObjectManager = null;
var IRender=null;
var ZoomMode = 0;
var zoom_array = new Array();
//浏览器设置
var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;

//初始化
function Init()
{
var temp;
ITerraExplorer = TE.interface("ITerraExplorer5");
IPlane = TE.interface("IPlane5");
IInformationTree = TE.interface("IInformationTree5");
IMenu = TE.interface("IMenu");
IObjectManager = TE.interface("IObjectManager5");
ITerraExplorer.Load("2.fly");
IRender=TE.interface("IRender5");
}
//飞到某个地方--------------------------------------------------------------------------------------------------
// 处理 Flash 影片中的所有 FSCommand 消息
function myFlash_DoFSCommand(args1,args2)
{
var myFlashObj = InternetExplorer ? myFlash : document.myFlash;
var tX0,tZ0;
tX0 =args1;
tZ0 =args2;
FlyToWhere(tX0,tZ0);
}
// Internet Explorer 的挂钩
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 &&
navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)
{
document.write(''<SCRIPT LANGUAGE=vbScript\> \n'');
document.write(''on error resume next \n'');
document.write(''Sub myFlash_FSCommand(ByVal command, ByVal args)\n'');
document.write('' call myFlash_DoFSCommand(command, args)\n'');
document.write(''end sub\n'');
document.write(''</SCRIPT\> \n'');
}

function FlyToWhere(tX0,tZ0)
{
//创建文本对象
var LabelInfo = new Object();
LabelInfo.Text = "经度 : "+tX0+" 纬度 : "+tZ0;
LabelInfo.Scale = 1;
LabelInfo.BgColor = 236;

IObjectManager.CreateLabel (LabelInfo, tX0, tZ0, 2000.0 );
IPlane.FlyTo (tX0,tZ0,2000.0,117.98,0, -35,"Oval" );
}
//飞到某地------------------------------------------------------------------------------------------------------
functi