โค้ด:

1. Imports System.Net
   
2. '// Download MaterialSkin.2 packages.
   
3. '// [url]https://www.nuget.org/packages/MaterialSkin.2/[/url]
   
4. Imports MaterialSkin
   
5. Imports Newtonsoft.Json.Linq
   
6. 
   
7. '// คลิปวิดีโอการรับไฟล์ Credentials เพื่อทำการติดต่อกับ Google Sheets และการกำหนดสิทธิ์การเข้าถึง
   
8. '// [url]https://www.youtube.com/watch?v=xdYsctNAGEE[/url]
   
9. 
   
10. '// ------------------------------------------------------------------------------------------------
    
11. '// Google Visualization API Reference ... [url]https://developers.google.com/chart/interactive/docs/reference[/url]
    
12. '// Google Visualization API
    
13. '// เป็น API จาก Google ที่ช่วยให้เราสามารถดึงข้อมูลจากแหล่งข้อมูลต่างๆ เช่น Google Sheets หรือไฟล์ข้อมูลอื่นๆ
    
14. '// แล้วนำข้อมูลนั้นมา แสดงผลในรูปแบบกราฟ, ตาราง หรือ Visualization ต่างๆบนเว็บได้ง่ายๆ
    
15. '// เหมาะสำหรับการสร้างแดชบอร์ด หรือรายงานแบบ Interactive ที่ทำงานบนเว็บ
    
16. '// Google Visualization API มีฟอร์แมตข้อมูลเฉพาะที่เรียกว่า DataTable (เหมือนตารางฐานข้อมูล มีคอลัมน์และแถว)
    
17. '// เราสามารถดึงข้อมูลผ่าน URL โดยใช้ Google Visualization Query Language (GVQL) ซึ่งคล้าย SQL
    
18. '// ------------------------------------------------------------------------------------------------
    
19. 
    
20. Public Class frmLogin
    
21.     '// ป้อน Spreadsheet ID และชื่อชีต
    
22.     Private Const SpreadsheetId As String = "SPREAD_SHEET_ID" '// <-- เปลี่ยนเป็นของคุณ
    
23.     'Private Const ApplicationName As String = ""   '// ไม่ได้ใช้งาน
    
24.     Private Const SheetName As String = "SHEET_NAME"
    
25. 
    
26.     Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
27.         '// ข้อมูลตัวอย่าง
    
28.         txtUserName.Text = "admin"
    
29.         txtPassword.Text = "admin"
    
30.         With Me
    
31.             .MinimumSize = New Point(451, 503)
    
32.             .MaximumSize = New Point(451, 503)
    
33.         End With
    
34.         '// Code sample.
    
35.         '// [url]https://www.nuget.org/packages/MaterialSkin.2/[/url]
    
36.         Dim SkinManager As MaterialSkinManager = MaterialSkinManager.Instance
    
37.         SkinManager.AddFormToManage(Me)
    
38.         SkinManager.Theme = MaterialSkinManager.Themes.DARK
    
39.         SkinManager.ColorScheme = New ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
    
40. 
    
41.         '// ตัวอย่างของ ColorScheme
    
42.         'SkinManager.ColorScheme = New ColorScheme(Primary.Blue300, Primary.Blue500, Primary.Blue500, Accent.Blue400, TextShade.WHITE)
    
43.         'SkinManager.ColorScheme = New ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
    
44.         'SkinManager.ColorScheme = New ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
    
45.         'SkinManager.ColorScheme = New ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
    
46.     End Sub
    
47. 
    
48.     Private Sub swPassword_CheckedChanged(sender As Object, e As EventArgs) Handles swPassword.CheckedChanged
    
49.         txtPassword.Focus()
    
50.         txtPassword.Password = Not swPassword.Checked
    
51.     End Sub
    
52. 
    
53.     ' / ------------------------------------------------------------------------------------------------
    
54.     ' / เริ่มต้นการเข้าสู่ระบบ
    
55.     ' / ------------------------------------------------------------------------------------------------
    
56.     Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
    
57.         Dim UserName As String = txtUserName.Text.Trim()
    
58.         Dim Password As String = txtPassword.Text.Trim()
    
59.         If String.IsNullOrEmpty(UserName) OrElse String.IsNullOrEmpty(Password) Then
    
60.             MessageBox.Show("กรุณากรอก Username และ Password", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
61.             Return
    
62.         End If
    
63.         '//
    
64.         '// ใช้ Google Visualization API เพื่อดึงข้อมูลทั้งหมด
    
65.         Dim SheetUrl As String = "https://docs.google.com/spreadsheets/d/" & SpreadsheetId & "/gviz/tq?tqx=out:json&sheet=" & SheetName
    
66.         Try
    
67.             Using Client As New WebClient()
    
68.                 Dim JsonRaw As String = Client.DownloadString(SheetUrl)
    
69.                 '// ตัดส่วนหัวออก (Google ใส่ "/*O_o*/" และ "google.visualization.Query.setResponse(...)")
    
70.                 Dim startIndex = JsonRaw.IndexOf("(") + 1
    
71.                 Dim endIndex = JsonRaw.LastIndexOf(")")
    
72.                 Dim jsonData = JsonRaw.Substring(startIndex, endIndex - startIndex)
    
73.                 '//
    
74.                 Dim jObj As JObject = JObject.Parse(jsonData)
    
75.                 Dim rows As JArray = jObj("table")("rows")
    
76.                 '// ตัวอย่าง ... Columns ประกอบด้วย {UserPK, UserName, Password, ExpireDate}
    
77.                 '// {
    
78.                 '//  "table" {
    
79.                 '//    "rows": [
    
80.                 '//      { "c": [ {"v": "1"}, {"v": "admin"}, {"v": "admin"}, {"v": "30/05/2568"} ] },
    
81.                 '//      { "c": [ {"v": "2"}, {"v": "user"}, {"v": "user"}, {"v": "21/05/2568"} ] }
    
82.                 '//    ]
    
83.                 '//  }
    
84.                 '// }
    
85.                 For Each row As JObject In rows
    
86.                     Dim cols As JArray = row("c")
    
87.                     Dim userPK = cols(0)("v").ToString()
    
88.                     Dim user = cols(1)("v").ToString()
    
89.                     Dim pass = cols(2)("v").ToString()
    
90.                     Dim expireDate = cols(3)("v").ToString()
    
91.                     '// จัดรูปแบบวันที่ก่อน
    
92.                     Dim ExpireDateTime As DateTime? = ParseDateFunctionString(expireDate)
    
93.                     If user.Equals(UserName, StringComparison.OrdinalIgnoreCase) AndAlso pass.Equals(Password) Then
    
94.                         If ExpireDateTime >= DateTime.Now Then
    
95.                             MessageBox.Show("เข้าสู่ระบบสำเร็จ!", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
96.                             frmMain.Show()
    
97.                             Me.Hide()
    
98.                             Return
    
99.                         Else
    
100.                             MessageBox.Show("บัญชีหมดอายุ กรุณาติดต่อผู้ดูแลระบบ", "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
     
101.                             Application.Exit()
     
102.                             Return
     
103.                         End If
     
104.                     End If
     
105.                 Next
     
106.                 MessageBox.Show("Username หรือ Password ไม่ถูกต้อง!!!", "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
107.             End Using
     
108.         Catch ex As Exception
     
109.             MessageBox.Show("เกิดข้อผิดพลาด: " & ex.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
     
110.         End Try
     
111.     End Sub
     
112. 
     
113.     ' / ------------------------------------------------------------------------------------------------
     
114.     ' / ต้องเขียนโค้ดดึงค่าปี เดือน วัน ออกจาก string "Date(2568,5,30)" ก่อน
     
115.     ' / Google Sheet นับเดือน 1 เป็น 0 เราจึงต้อง +1 เข้าไป
     
116.     ' / ------------------------------------------------------------------------------------------------
     
117.     Function ParseDateFunctionString(rawDate As String) As DateTime?
     
118.         '// ตรวจสอบรูปแบบ "Date(2568,5,30)"
     
119.         Dim pattern As String = "^Date\((\d+),(\d+),(\d+)\)[        DISCUZ_CODE_0        ]quot;
     
120.         Dim m As Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(rawDate, pattern)
     
121.         If m.Success Then
     
122.             Dim yearBE As Integer = Integer.Parse(m.Groups(1).Value)
     
123.             Dim month As Integer = Integer.Parse(m.Groups(2).Value) + 1 '// เพราะ Google เริ่มนับเดือนที่ 0 เลยต้อง +1 เข้าไป
     
124.             Dim day As Integer = Integer.Parse(m.Groups(3).Value)
     
125.             '// แปลงปี พ.ศ. เป็น ค.ศ.
     
126.             Dim yearAD As Integer = yearBE
     
127.             If yearBE > 2500 Then yearAD = yearBE - 543
     
128.             Try
     
129.                 Dim MyDateTime As New DateTime(yearAD, month, day)
     
130.                 Return MyDateTime
     
131.             Catch ex As Exception
     
132.                 Return Nothing
     
133.             End Try
     
134.         Else
     
135.             Return Nothing
     
136.         End If
     
137.     End Function
     
138. 
     
139.     Private Sub txtUserName_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUserName.KeyPress
     
140.         '// Press ENTER
     
141.         If Asc(e.KeyChar) = 13 Then
     
142.             e.Handled = True    '// No beep
     
143.             SendKeys.Send("{TAB}")
     
144.         End If
     
145.     End Sub
     
146. 
     
147.     Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.KeyPress
     
148.         '// Press ENTER
     
149.         If Asc(e.KeyChar) = 13 Then
     
150.             e.Handled = True    '// No beep
     
151.             SendKeys.Send("{TAB}")
     
152.         End If
     
153.     End Sub
     
154. 
     
155.     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
     
156.         Me.Close()
     
157.     End Sub
     
158. 
     
159.     Private Sub frmLogin_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
     
160.         Me.Dispose()
     
161.         GC.SuppressFinalize(Me)
     
162.         Application.Exit()
     
163.     End Sub
     
164. End Class