利用Google Earth API自动化谷歌地球

Dear 丶 2022-08-19 00:28 315阅读 0赞

文章来源：[http://blog.csdn.net/zzxxbb112/archive/2009/12/18/5030265.aspx][http_blog.csdn.net_zzxxbb112_archive_2009_12_18_5030265.aspx]

Google Earth相信大家都非常熟悉了，也经常会使用它，但是大家有没有想过来自动化Google Earth呢，今天我们就来使用QTP通过调用Google Earth的API来自动化Google Earth。在自动化Google Earth之前有几个必要条件需要达成，以下是ADVANCEDQTP上提供的脚本。大家可以试着跑一下，挺有意思的。

安装QTP  
Web + ActiveX 插件加载  
必须安装Google核心插件：[http://code.google.com/intl/zh-CN/apis/earth/][http_code.google.com_intl_zh-CN_apis_earth]  
熟悉Google Earth API  
此Demo只适合浏览器中嵌入式的Google Earth  
此Demo将改变视图类型并定位在纽约的时代广场  
Const URL = "[http://earth-api-samples.googlecode.com/svn/trunk/demos/kmlplayground/index.html][http_earth-api-samples.googlecode.com_svn_trunk_demos_kmlplayground_index.html]"

Const SW\_MAXIMIZED = 3

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*关闭所有窗口和打开并跳转URL \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

SystemUtil.CloseProcessByName "iexplore.exe"

SystemUtil.Run "iexplore.exe", URL, "", "open", SW\_MAXIMIZED

Browser("CreationTime:=0").Page("index:=0").Sync

Set objActiveX = Browser("CreationTime:=0").Page("index:=0").\_

ActiveX("progid:=GEPluginCoClass.GEPluginCoClass.1.0", "location:=0").Object

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*设置变量的值\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

ALTITUDE\_ABSOLUTE = objActiveX.ALTITUDE\_ABSOLUTE

VISIBILITY\_SHOW = objActiveX.VISIBILITY\_SHOW

ALTITUDE\_RELATIVE\_TO\_GROUND = objActiveX.ALTITUDE\_RELATIVE\_TO\_GROUND

MAP\_TYPE\_EARTH = objActiveX.MAP\_TYPE\_EARTH

MAP\_TYPE\_SKY = objActiveX.MAP\_TYPE\_SKY

SPEED\_TELEPORT = objActiveX.SPEED\_TELEPORT

wait 2

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*切换到天空视图 \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

Set geOptions = objActiveX.getOptions()

Call geOptions.setMapType( MAP\_TYPE\_SKY )

wait 5

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*切换地球视图 \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

Call geOptions.setMapType( MAP\_TYPE\_EARTH )

' Setting to Minimum zoom at max speed

geOptions.setFlyToSpeed( SPEED\_TELEPORT )

Set kmlLookAt = objActiveX.getView().copyAsLookAt( ALTITUDE\_ABSOLUTE )

kmlLookAt.setRange(50000000)

objActiveX.getView().setAbstractView(kmlLookAt)

wait 2

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*增加虚拟控件 \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

geOptions.setGridVisibility( true )

geOptions.setStatusBarVisibility(true)

geOptions.setScaleLegendVisibility( true )

geOptions.setMouseNavigationEnabled( true )

geOptions.setOverviewMapVisibility( true )

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*检索导航控制 \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

Set geNavigationControl = objActiveX.getNavigationControl()

geNavigationControl.setVisibility( VISIBILITY\_SHOW )

Set geView = objActiveX.getView()

Set kmlLookAt = geView.copyAsLookAt( ALTITUDE\_RELATIVE\_TO\_GROUND )

' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* 设置一些参数 \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

geOptions.setFlyToSpeed(0.5)

kmlLookAt.setTilt(0)

kmlLookAt.setHeading(0)

' Times Square, New York, NY

kmlLookAt.setLatitude( 40.7594 )

kmlLookAt.setLongitude( -73.985 )

' setting new values

objActiveX.getView().setAbstractView(kmlLookAt)

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*放大 \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

For i = 1 to 17

kmlLookAt.setRange(kmlLookAt.getRange() \* 0.5)

objActiveX.getView().setAbstractView(kmlLookAt)

Wait 1

本文来自CSDN博客，转载请标明出处：[http://blog.csdn.net/zzxxbb112/archive/2009/12/18/5030265.aspx][http_blog.csdn.net_zzxxbb112_archive_2009_12_18_5030265.aspx]

[http_blog.csdn.net_zzxxbb112_archive_2009_12_18_5030265.aspx]: http://blog.csdn.net/zzxxbb112/archive/2009/12/18/5030265.aspx
[http_code.google.com_intl_zh-CN_apis_earth]: http://code.google.com/intl/zh-CN/apis/earth/
[http_earth-api-samples.googlecode.com_svn_trunk_demos_kmlplayground_index.html]: http://earth-api-samples.googlecode.com/svn/trunk/demos/kmlplayground/index.html