vb.net

Just a Web Code Solution

Step 1. Your question relates to:

Step 2. Type a keyword:

get client latitude and longitude vb.net

445

VB.NET

// default.aspx

<%@ Page Language="VB" AutoEventWireup="true" CodeFile="myfile.vb" Inherits="myfile" %>

<script runat="server">

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Response.Write(GetCountry())

End Sub
</script>

<html>
<head>
</head>
<body>
</body>
</html>

// myfile.vb

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.Services
Imports System.Web.Script.Serialization

Partial Public Class myfile
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub

Public Function GetCountry() As String

Dim wc as New System.Net.WebClient
Dim myip as String = wc.DownloadString("https://l2.io/ip")
Dim mycountry as String = wc.DownloadString("http://freegeoip.net/json/" + myip)

Dim jss As New JavaScriptSerializer()
Dim dict As Dictionary(Of String, String) = jss.Deserialize(Of Dictionary(Of String, String))(mycountry)

Dim latitude As String = dict("latitude")
Dim longitude As String = dict("longitude")

Return latitude + ", " + longitude

End Function

End Class