vb.net

Just a Web Code Solution

Step 1. Your question relates to:

Step 2. Type a keyword:

find location vb.net

137

VB.NET

<%@ 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(GetLocation())

End Sub
</script>

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

// myfile.vb

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 GetLocation() 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 s As string = "country: " &dict("country_name") & "</br>city: " & dict("city") & "</br>region: " & dict("region_name")

Return s
End Function

End Class