Welcome aboard! We are happy you are here and wish you good net-raft!
<%@ Page Language="VB" %>
<!-- code section -->
<script runat="server">
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim MyUrl As Uri = Request.Url
Dim url as string = Server.HtmlEncode(MyUrl.Scheme) & "://" & Request.ServerVariables("SERVER_NAME") & Server.HtmlEncode(Request.RawUrl.ToString())
Response.Write("<img src='https://chart.googleapis.com/chart?chs=300x300&cht=qr&chl=" + url + "&choe=UTF-8' alt='QR code' />")
End Sub
</script>
<html>
<head>
</head>
<body>
</body>
</html>
The most helpful VB.NET solutions
get computer name vb.net VB.NET Click to see more ... 1.1K 76