Google Earth network link

Introduction

This article aims to show the creation of Network Links for Google Earth.
The Code Source

Create a new ASP.NET Web application and upon Page_Load, copy and paste this code, or download the source code.
Grid Creation: Creating the Constructor for the Grid
Collapse

Imports System.Xml
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Me.Load
Me.Response.Clear()
Me.Response.ContentType = "application/vnd.google-earth.kml+xml"
'Para ver o documento XML
'For view XML document
'My.Response.ContentType = "plain/text"
Me.Response.ContentEncoding = System.Text.Encoding.UTF8
Dim stream As New System.IO.MemoryStream
Dim XMLwrite As New XmlTextWriter(stream, System.Text.Encoding.UTF8)
XMLwrite.WriteStartDocument()
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteStartElement("kml")
XMLwrite.WriteAttributeString("xmlns",
"http://earth.google.com/kml/2.0")
XMLwrite.WriteWhitespace(Environment.NewLine)
'
XMLwrite.WriteStartElement("Document")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("name", "Signal Control")
XMLwrite.WriteWhitespace(Environment.NewLine)
'
XMLwrite.WriteStartElement("Placemark")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("description", "MY DESCRIPTION/MINHA DESCRIÇÃO")
XMLwrite.WriteElementString("name", "MY NAME/MEU NOME")
XMLwrite.WriteStartElement("LookAt")
XMLwrite.WriteElementString("longitude", "MY LONGITUDE/MINHA LONGITUDE")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("latitude", "MY LATITUDE/MINHA LATITUDE")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("visibility", "1")
XMLwrite.WriteWhitespace(Environment.NewLine)
'
'
XMLwrite.WriteStartElement("Point")
XMLwrite.WriteWhitespace(Environment.NewLine)
'Minhas coordenadas, mudar aqui
'My Coordinates, change aqui
XMLwrite.WriteElementString("coordinates",
"-25.4942072754", "-49.5426559491",
"50")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
XMLwrite.WriteEndElement()
''Fim do XML
'Finish XML
XMLwrite.WriteEndDocument()
XMLwrite.Flush()
Dim reader As IO.StreamReader
stream.Position = 0
reader = New IO.StreamReader(stream)
Dim bytes() As Byte = System.Text.Encoding.UTF8.GetBytes(reader.ReadToEnd())
Me.Response.BinaryWrite(bytes)
Me.Response.End()
End Sub
End Class

Points of Interest

Go to places on Google Earth and click Add Network Link.

Screenshot - image002.jpg

Screenshot - image003.jpg

After compiling the project, this icon will arise:

Screenshot - image004.jpg

My link is created:

Screenshot - image005.jpg