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
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"
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("Style")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteStartElement("IconStyle")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteStartElement("Icon")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("href", "C:\Code_Project\01.ico")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("w", "-1")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("h", "-1")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
XMLwrite.WriteStartElement("Point")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("coordinates",
"-25.4942072754", "-49.5426559491",
"50")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
XMLwrite.WriteEndElement()
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.
After compiling the project, this icon will arise:
My link is created: