Welcome aboard! We are happy you are here and wish you good net-raft!
// default.aspx
<%@ Page Language="VB" AutoEventWireup="true" CodeFile="myfile.vb" Inherits="myfile" %>
<!-- code section -->
<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 s As string = dict("region_name")
Return s
End Function
End Class
The most helpful VB.NET solutions
get computer name vb.net VB.NET Click to see more ... 1.1K 76