[VB.NET] โค้ด VB.NET กับการตรวจสอบการ Login เข้าใช้งานโปรแกรมได้เพียงครั้งละ 1 เครื่อง ด้วยการใช้ GUID

thongkorn · โพสต์ 2025-5-27 12:53:27

หน้าจอการทำ Login เข้าไปยัง Google Sheet เพื่อทำการตรวจสอบสิทธิในการใช้งาน และบันทึกค่า GUID ...

Add References ... ต้องติดตั้ง Library เข้าไปใหม่ด้วยครับ ...
คลิปวิดีโอในการใช้งาน Nuget เพื่อทำการติดตั้ง Google API และ Material Skin.2 ... *****

ข้อมูลตัวอย่างใน Google Sheet ...

คลิปวิดีโอในการสร้างและใช้งาน Google App Script ... *****

โค้ด VB.NET กับการตรวจสอบการ Login เข้าใช้งานโปรแกรมได้เพียงครั้งละ 1 เครื่อง ด้วยการใช้ GUID ผ่านทาง Google Sheet ทำงานร่วมกับ Google App Script

GUID (Globally Unique IDentifier) คือ "รหัสเฉพาะที่ไม่ซ้ำกันเลยในระดับโลก" ซึ่งใช้เพื่อระบุสิ่งใดสิ่งหนึ่งแบบเฉพาะเจาะจง เช่น:
- อุปกรณ์แต่ละเครื่อง (เช่น PC, มือถือ)
- ไฟล์, เอกสาร, บันทึกในฐานข้อมูล
- ผู้ใช้ หรือ session ในระบบ
GUID มีความยาว 128 บิต และมักแสดงในรูปแบบข้อความ เช่น 6c483b5b-a74b-4fca-be14-6781b30c6b58

มาดูส่วนของ Google App Script เพื่อทำการอ่านเขียนข้อมูล GUID ลงไปใน Google Sheet ... หาก Google Sheet มีการเปลี่ยนแปลงหลัก (Column) ต้องปรับแต่งค่าตามไปด้วย ...

function doPost(e) {
const ss = SpreadsheetApp.openById("SpreadSheetID"); // ต้องเปลี่ยนค่านี้ตาม Sheet ที่ใช้งานด้วย
const sheet = ss.getSheetByName("UserLogin"); // ชื่อ SheetName ต้องเปลี่ยนด้วย
if (!sheet) {
return ContentService.createTextOutput("Error: Sheet not found");
}
const action = e.parameter.action;
const username = e.parameter.username;
const guid = e.parameter.guid;
const timestamp = e.parameter.timestamp;
if (action === "update_guid") {
let range = sheet.getDataRange();
let values = range.getValues();
for (let i = 1; i < values.length; i++) { // เริ่มที่ 1 เพราะแถว 0 คือ header
if (values[i][1] === username) { // Username = คอลัมน์ B
sheet.getRange(i + 1, 5).setValue(guid); // GUID = คอลัมน์ E
sheet.getRange(i + 1, 6).setValue(timestamp); // Last Ping = คอลัมน์ F
return ContentService.createTextOutput("GUID Updated");
}
}
} else if (action === "clear_guid") {
let range = sheet.getDataRange();
let values = range.getValues();
for (let i = 1; i < values.length; i++) {
if (values[i][4] === guid) { // GUID = คอลัมน์ E
sheet.getRange(i + 1, 5).setValue(""); // ล้าง GUID
sheet.getRange(i + 1, 6).setValue(""); // ล้าง Last Ping
return ContentService.createTextOutput("GUID Cleared");
}
}
}
return ContentService.createTextOutput("Invalid Request");
}

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดฉบับเต็มกันเถอะ ...

Imports System.Collections.Specialized
Imports System.IO
Imports System.Net
'// Download MaterialSkin.2 packages.
'// https://www.nuget.org/packages/MaterialSkin.2/
Imports MaterialSkin
Imports Microsoft.Win32
Imports Newtonsoft.Json
'// คลิปวิดีโอการรับไฟล์ Credentials เพื่อทำการติดต่อกับ Google Sheets และการกำหนดสิทธิ์การเข้าถึง
'// https://www.youtube.com/watch?v=xdYsctNAGEE
'// คลิปวิดีโอการติดตั้ง Google API และ Material Skin.2
'// https://youtu.be/HqNffWxQKaM
'// คลิปวิดีโอการสร้างและใช้งาน Google App Script
'// https://youtu.be/X1pCwJJ9VpI
'// ------------------------------------------------------------------------------------------------
'// Google Visualization API Reference ... https://developers.google.com/chart/interactive/docs/reference
'// Google Visualization API
'// เป็น API จาก Google ที่ช่วยให้เราสามารถดึงข้อมูลจากแหล่งข้อมูลต่างๆ เช่น Google Sheets หรือไฟล์ข้อมูลอื่นๆ
'// แล้วนำข้อมูลนั้นมา แสดงผลในรูปแบบกราฟ, ตาราง หรือ Visualization ต่างๆบนเว็บได้ง่ายๆ
'// เหมาะสำหรับการสร้างแดชบอร์ด หรือรายงานแบบ Interactive ที่ทำงานบนเว็บ
'// Google Visualization API มีฟอร์แมตข้อมูลเฉพาะที่เรียกว่า DataTable (เหมือนตารางฐานข้อมูล มีคอลัมน์และแถว)
'// เราสามารถดึงข้อมูลผ่าน URL โดยใช้ Google Visualization Query Language (GVQL) ซึ่งคล้าย SQL
'// ------------------------------------------------------------------------------------------------
Public Class frmLogin
'// ป้อน Spreadsheet ID และชื่อชีต
Private ReadOnly SpreadsheetId As String = "SPREAD_SHEET_ID" '// อย่าลืมใส่ค่าของคุณด้วย
'Private ReadOnly ApplicationName As String = "" '// ไม่ได้ใช้งาน
Private ReadOnly SheetName As String = "SHEET_NAME" '// อย่าลืมใส่ค่าของคุณด้วย
Dim CurrentUsername As String = String.Empty
Dim MyGuid As String = GetMachineGuid()
Dim WithEvents Timer1 As New Timer()
Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'// ข้อมูลตัวอย่าง
txtUserName.Text = "admin"
txtPassword.Text = "admin"
With Me
.MinimumSize = New Point(451, 503)
.MaximumSize = New Point(451, 503)
End With
'// Code sample.
'// https://www.nuget.org/packages/MaterialSkin.2/
Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
SkinManager.AddFormToManage(Me)
SkinManager.Theme = MaterialSkinManager.Themes.DARK
SkinManager.ColorScheme = New ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
'// ตัวอย่างของ ColorScheme
'SkinManager.ColorScheme = New ColorScheme(Primary.Blue300, Primary.Blue500, Primary.Blue500, Accent.Blue400, TextShade.WHITE)
'SkinManager.ColorScheme = New ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
'SkinManager.ColorScheme = New ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
'SkinManager.ColorScheme = New ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
End Sub
Private Sub swPassword_CheckedChanged(sender As Object, e As EventArgs) Handles swPassword.CheckedChanged
txtPassword.Focus()
txtPassword.Password = Not swPassword.Checked
End Sub
'// ------------------------------------------------------------------------------------------------
'// เริ่มต้นการเข้าสู่ระบบ
'// ------------------------------------------------------------------------------------------------
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
Dim UserName As String = txtUserName.Text.Trim()
Dim Password As String = txtPassword.Text.Trim()
If String.IsNullOrEmpty(UserName) OrElse String.IsNullOrEmpty(Password) Then
MessageBox.Show("กรุณากรอก Username และ Password", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return
End If
'//
'// ใช้ Google Visualization API เพื่อดึงข้อมูลทั้งหมด
Dim JsonRaw As String = New WebClient().DownloadString("https://docs.google.com/spreadsheets/d/" & SpreadsheetId & "/gviz/tq?tqx=out:json&sheet=" & SheetName)
'// ตัดข้อความส่วนหน้าและท้ายออก
Dim jsonClean As String = JsonRaw
If jsonClean.StartsWith("/*O_o*/") Then
Dim startIndex = jsonClean.IndexOf("{")
Dim endIndex = jsonClean.LastIndexOf("}")
jsonClean = jsonClean.Substring(startIndex, endIndex - startIndex + 1)
End If
'// แปลง JSON
Dim result = JsonConvert.DeserializeObject(Of GoogleSheetResponse)(jsonClean)
For Each row In result.table.rows
Dim uid = row.c(1)?.v?.ToString()
Dim pwd = row.c(2)?.v?.ToString()
Dim expireRaw = row.c(3)?.f '// ใช้ .f เพื่ออ่านแบบ dd/MM/yyyy
Dim storedGuid = row.c(4)?.v?.ToString()
Dim lastPingStr = row.c(5)?.v?.ToString()
'// ตรวจสอบ Username และ Password
If UserName = uid AndAlso Password = pwd Then
Dim expireDate As DateTime
If DateTime.TryParseExact(expireRaw, "dd/MM/yyyy", New Globalization.CultureInfo("th-TH"), Globalization.DateTimeStyles.None, expireDate) Then
If expireDate.Year > 2500 Then expireDate = expireDate.AddYears(-543)
'// ตรวจสอบวันที่หมดอายุการใช้งานโปรแกรม
If Date.Today > expireDate Then
MessageBox.Show("บัญชีหมดอายุ กรุณาติดต่อผู้ดูแลระบบ", "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Exit Sub
End If
'// ตรวจสอบ GUID
If String.IsNullOrWhiteSpace(storedGuid) OrElse storedGuid = MyGuid Then
MessageBox.Show("เข้าสู่ระบบสำเร็จ!", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
CurrentUsername = txtUserName.Text.Trim '// <-- เก็บชื่อผู้ใช้จริงที่ล็อกอินสำเร็จ
Call StartPingTimer() '// เริ่มจับเวลา
Call WriteGuid(MyGuid)
frmMain.Show()
Me.Hide()
Return
Else
MessageBox.Show("บัญชีนี้ถูกล็อกไว้ที่เครื่องอื่น!!!", "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End If
End If
Next
MessageBox.Show("Username หรือ Password ไม่ถูกต้อง!!!", "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Sub
'// ------------------------------------------------------------------------------------------------
Sub StartPingTimer()
Timer1.Interval = 60000 '// 60 วินาที (1 วินาที = 1000 มิลลิวินาที (ms))
Timer1.Start()
End Sub
'// ------------------------------------------------------------------------------------------------
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
WriteGuid(MyGuid)
End Sub
'// ------------------------------------------------------------------------------------------------
'// การเขียนข้อมูล GUID ลงไปใน Google Sheet เมื่อเริ่มต้นทำงานของโปรแกรม
'// ------------------------------------------------------------------------------------------------
Sub WriteGuid(guid As String)
Dim url = "ใส่ค่า URL ที่ได้จาก App Script"
'// Google Apps Script endpoint
Dim data As New NameValueCollection()
data("action") = "update_guid"
data("username") = CurrentUsername
data("guid") = guid
'// วันที่และเวลาแบบ UTC (Coordinated Universal Time) ซึ่งเป็นเวลามาตรฐานโลก ไม่ขึ้นอยู่กับโซนเวลา (Time Zone) ของเครื่องคอมพิวเตอร์
'// เวลาท้องถิ่นประเทศไทย จะ +7 ทำให้เวลาของไทยจะเร็วกว่าและต่างกับเวลามาตรฐานไป 7 ชั่วโมง
data("timestamp") = DateTime.UtcNow.ToString("yyyy-MM-dd HH:mm:ss")
'// หรือจะใช้เวลาท้องถิ่นของเครื่อง (Local Time) แทน DateTime.UtcNow
'DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss", CultureInfo.InvariantCulture)
'//
Using client As New WebClient()
Try
Dim response = client.UploadValues(url, "POST", data)
'MessageBox.Show(Encoding.UTF8.GetString(response))
'// ดูการตอบสนองหากมี Error อื่นๆ เช่น การเชื่อมต่อเน็ตอยู่หรือไม่
Catch ex As WebException
MessageBox.Show("Error: " & ex.Message)
If ex.Response IsNot Nothing Then
'// ลองทดสอบการตัดอินเทอร์เน็ตดูครับ
Using reader As New StreamReader(ex.Response.GetResponseStream())
MessageBox.Show("Detail: " & reader.ReadToEnd())
End Using
End If
End Try
End Using
End Sub
Private Sub frmLogin_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'// เมื่อปิดโปรแกรมก็ทำการเคลียร์ค่า GUID
ClearGuid(MyGuid)
End Sub
'// ------------------------------------------------------------------------------------------------
'// การเคลียร์ค่า GUID ใน Google Sheet หลังจากการปิดโปรแกรม
'// ------------------------------------------------------------------------------------------------
Sub ClearGuid(guid As String)
Dim url = "ใส่ค่า URL ที่ได้จาก App Script"
Dim data As New NameValueCollection()
data("action") = "clear_guid"
data("guid") = guid
Using client As New WebClient()
client.UploadValues(url, "POST", data)
End Using
End Sub
'// ------------------------------------------------------------------------------------------------
'// อ่านค่า GUID เครื่องตามขนาดจำนวนบิตของระบบปฏิบัติการ
'// ------------------------------------------------------------------------------------------------
Function GetMachineGuid() As String
Try
'// ตรวจสอบว่า OS เป็นแบบ 64-bit หรือไม่
Dim view As RegistryView = If(Environment.Is64BitOperatingSystem, RegistryView.Registry64, RegistryView.Registry32)
'// เปิด Registry ตามขนาดของ OS
Dim baseKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, view)
Dim key = baseKey.OpenSubKey("SOFTWARE\Microsoft\Cryptography")
If key IsNot Nothing Then
Dim machineGuid = key.GetValue("MachineGuid")?.ToString()
If Not String.IsNullOrWhiteSpace(machineGuid) Then Return machineGuid
End If
Catch ex As Exception
MessageBox.Show("Error reading MachineGuid: " & ex.Message, "Registry Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Return Nothing
End Function
Private Sub txtUserName_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUserName.KeyPress
'// Press ENTER
If Asc(e.KeyChar) = 13 Then
e.Handled = True '// No beep
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.KeyPress
'// Press ENTER
If Asc(e.KeyChar) = 13 Then
e.Handled = True '// No beep
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub frmLogin_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
GC.SuppressFinalize(Me)
Application.Exit()
End Sub
End Class
Public Class GoogleSheetResponse
Public Property table As TableData
End Class
Public Class TableData
Public Property rows As List(Of RowData)
End Class
Public Class RowData
Public Property c As List(Of CellData)
End Class
Public Class CellData
Public Property v As Object
Public Property f As String
End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET & .Net Framework 4.6.2+ ได้ที่นี่ ...

		จำสถานะนี้ไว้ในครั้งหน้า	ลืมรหัสผ่าน
รหัสผ่าน			ลงทะเบียน

[VB.NET] โค้ด VB.NET กับการตรวจสอบการ Login เข้าใช้งานโปรแกรมได้เพียงครั้งละ 1 เครื่อง ด้วยการใช้ GUID

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง