AutoHotkey Community

#include ws4ahk.ahk

WS_Initialize()

VBCode =
(
   Dim googleEarth
   Dim camPos
   
   Function testGe()
   Set googleEarth = CreateObject("GoogleEarth.ApplicationGE")
   testGe = googleEarth.IsInitialized()
   end Function

   Function gePos()
   Set googleEarth = CreateObject("GoogleEarth.ApplicationGE")
   Set camPos = googleEarth.GetCamera(0)
   gePos = camPos.FocusPointLatitude & ":" & camPos.FocusPointLongitude & ":" & camPos.FocusPointAltitude & ":" & camPos.FocusPointAltitudeMode & ":" & camPos.Range & ":" & camPos.Tilt & ":" & camPos.Azimuth & ":"
   end Function
   
)

Gui,Add, Text, x10, FocusPointLatitude:
Gui,Add, Edit, ReadOnly yp x140 w150 vFocusPointLatitude,
Gui,Add, Text, x10, FocusPointLongitude:
Gui,Add, Edit, ReadOnly yp x140 w150 vFocusPointLongitude,
Gui,Add, Text, x10, FocusPointAltitude:
Gui,Add, Edit, ReadOnly yp x140 w150 vFocusPointAltitude,
Gui,Add, Text, x10, FocusPointAltitudeMode:
Gui,Add, Edit, ReadOnly yp x140 w150 vFocusPointAltitudeMode,
Gui,Add, Text, x10, Range:
Gui,Add, Edit, ReadOnly yp x140 w150 vRange,
Gui,Add, Text, x10, Tilt:
Gui,Add, Edit, ReadOnly yp x140 w150 vTilt,
Gui,Add, Text, x10, Azimuth:
Gui,Add, Edit, ReadOnly yp x140 w150 vAzimuth,
Gui,Show,,Google Earth Position
Gui +LastFound
WinSet AlwaysOnTop

Loop {
  WS_Exec(VBCode)
  WS_Eval(theValue, "gePos()")
  StringSplit word_array,theValue,:,
  GuiControl,,FocusPointLatitude, %word_array1%
  GuiControl,,FocusPointLongitude, %word_array2%
  GuiControl,,FocusPointAltitude, %word_array3%
  GuiControl,,FocusPointAltitudeMode, %word_array4%
  GuiControl,,Range, %word_array5%
  GuiControl,,Tilt, %word_array6%
  GuiControl,,Azimuth, %word_array7%
  Sleep 100
}

WS_Uninitialize()

   Function geSetPos(FocusPointLatitude, FocusPointLongitude, FocusPointAltitude, FocusPointAltitudeMode, Range, Tilt, Azimuth, Speed)
   Set googleEarth = CreateObject("GoogleEarth.ApplicationGE")
   Set geSetPos = googleEarth.SetCameraParams(FocusPointLatitude, FocusPointLongitude, FocusPointAltitude, FocusPointAltitudeMode, Range, Tilt, Azimuth, Speed)
   end Function

SetGEpos(FocusPointLatitude,FocusPointLongitude,FocusPointAltitude,FocusPointAltitudeMode = 2,Range = 50000,Tilt = 0,Azimuth = 0,Speed = 1) {
   WS_Eval(returnval, "geSetPos(%v, %v, %v, %v, %v, %v, %v, %v)", FocusPointLatitude, FocusPointLongitude, FocusPointAltitude, FocusPointAltitudeMode, Range, Tilt, Azimuth, Speed)
   return returnval
}

SetGEpos(FocusPointLatitude,FocusPointLongitude,FocusPointAltitude,FocusPointAltitudeMode = 2,Range = 50000,Tilt = 0,Azimuth = 0,Speed = 1) {
   wsfunction = geSetPos(%FocusPointLatitude%, %FocusPointLongitude%, %FocusPointAltitude%, %FocusPointAltitudeMode%, %Range%, %Tilt%, %Azimuth%, %Speed%)
   WS_Eval(returnval, wsfunction)
   return returnval
}