IIS 5.1IIS 6.0Portable .NETMonoVisual Basic.NET 7.x (2002/03)IIS 7.0Visual Basic 9 (2008)Visual Basic 8 (2005).NET 1.0IIS.NET 1.1.NET 3.0.NET 2.0.NET 3.5BeginnerDev.NETVisual BasicASP.NET
Google Earth Network Link






4.60/5 (5 votes)
This article aims to show the creation of Network Links for Google Earth.
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"
'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)
'<Document>
XMLwrite.WriteStartElement("Document")
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteElementString("name", "Signal Control")
XMLwrite.WriteWhitespace(Environment.NewLine)
'<Placemark>
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)
'<Style>
XMLwrite.WriteStartElement("Style")
XMLwrite.WriteWhitespace(Environment.NewLine)
'<IconStyle>
XMLwrite.WriteStartElement("IconStyle")
XMLwrite.WriteWhitespace(Environment.NewLine)
'<Icon>
XMLwrite.WriteStartElement("Icon")
XMLwrite.WriteWhitespace(Environment.NewLine)
'Meu ícone, mudar este diretório
'My Icon, change this directory
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()
'</Icon>
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
'</IconStyle>
XMLwrite.WriteWhitespace(Environment.NewLine)
XMLwrite.WriteEndElement()
'</Style>
'<Point>
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()
'</Point>'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.
After compiling the project, this icon will arise:
My link is created: