[VB.NET] การทำ Login เข้าสู่ระบบของ Google Sheets

thongkorn

Add References ...



Youtube แสดงวิธีการขั้นตอนในการรับไฟล์ Credentials ... หรือ Google API ซึ่งจะอยู่ในรูปแบบของ JSON


ํYoutube แสดงวิธีการกำหนดสิทธิการเข้าถึง Google Sheets ...

ตัวอย่าง Google Sheets ซึ่งตอนนี้แอดมินได้เปิดให้เป็นแบบ Editor เพื่อให้ได้ลองทำการเขียนอ่านข้อมูลได้ ...


พื้นฐานของการใช้งาน List (Of Object)
...


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

1. Imports Google.Apis.Sheets.v4
   
2. Imports Google.Apis.Sheets.v4.Data
   
3. 
   
4. Public Class frmLogin
   
5. 
   
6.     Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
   
7.         If Trim(txtUsername.Text.Trim.Length) = 0 Then
   
8.             MessageBox.Show("Enter your Username.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
   
9.             txtUsername.Focus()
   
10.             Return
    
11.         ElseIf Trim(txtPassword.Text.trim.Length) = 0 Then
    
12.             MessageBox.Show("Enter your Password.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
13.             txtPassword.Focus()
    
14.             Return
    
15.         End If
    
16.         '// If Login Successful then Close Form Login.
    
17.         If LoginSystem() Then Me.Close()
    
18.     End Sub
    
19. 
    
20.     ' / --------------------------------------------------------------------------------
    
21.     Private Function LoginSystem() As Boolean
    
22.         LoginSystem = False
    
23.         '// Define Sheet Name.
    
24.         Dim SheetName As String = "UserData"
    
25.         '// Range A1:B1 is Column Header.
    
26.         Dim range As String = SheetName + "!A2:B100"    '// Select range column A is UserName and column B is Password.
    
27.         '// Initialize Google Sheets API.
    
28.         Call Credentials()
    
29.         '// Read data from the specified range.
    
30.         Dim request As SpreadsheetsResource.ValuesResource.GetRequest = Service.Spreadsheets.Values.Get(SpreadsheetId, range)
    
31.         Dim response As ValueRange = request.Execute()
    
32.         '// Process the data.
    
33.         If response IsNot Nothing AndAlso response.Values IsNot Nothing Then
    
34.             For Each row As List(Of Object) In response.Values
    
35.                 If row(0).ToString() = txtUsername.Text.Trim AndAlso row(1).ToString() = txtPassword.Text.Trim Then
    
36.                     '// Login Successful.
    
37.                     MessageBox.Show("Login successful!", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
38.                     Return True
    
39.                 End If
    
40.             Next
    
41.             '// Login failed.
    
42.             MessageBox.Show("Invalid username or password.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
43.             'Return False
    
44.         Else
    
45.             MessageBox.Show("No data found.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
46.         End If
    
47.         '//
    
48.     End Function
    
49. 
    
50.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
    
51.         Me.Close()
    
52.         Me.Dispose()
    
53.         Application.Exit()
    
54.     End Sub
    
55. 
    
56.     Private Sub frmLogin_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
57.         Me.Dispose()
    
58.         GC.SuppressFinalize(Me)
    
59.     End Sub
    
60. 
    
61.     Private Sub frmLogin_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
62.         '//
    
63.     End Sub
    
64. 
    
65.     Private Sub txtUsername_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUsername.KeyPress
    
66.         If Asc(e.KeyChar) = 13 Then
    
67.             e.Handled = True
    
68.             SendKeys.Send("{TAB}")
    
69.         End If
    
70.     End Sub
    
71. 
    
72.     Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.KeyPress
    
73.         If Asc(e.KeyChar) = 13 Then
    
74.             e.Handled = True
    
75.             SendKeys.Send("{TAB}")
    
76.         End If
    
77.     End Sub
    
78. End Class

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

โมดูลในการกำหนดค่าที่สำคัญของ Google Sheets เช่น SpreadSheetID, Application Name และไฟล์ Credentials

1. Imports Google.Apis.Auth.OAuth2
   
2. Imports Google.Apis.Services
   
3. Imports Google.Apis.Sheets.v4
   
4. 
   
5. Module modCredentials
   
6.     Public Service As SheetsService
   
7.     Public SpreadsheetId As String = "1nBOWl-PDGwYng6IOifi6bhoLfvamTn-45CWtn5t59qs"
   
8.     Public ApplicationName = "SampleSheet" '// Same as Filename.
   
9.     '// JSON credential file path.
   
10.     Public CredentialFilePath As String = MyPath(Application.StartupPath) & "credentials\GoogleSheet.json"
    
11. 
    
12.     ' / ------------------------------------------------------------------------------------------------
    
13.     ' / Initialize Google Sheets API.
    
14.     ' / ------------------------------------------------------------------------------------------------
    
15.     Public Sub Credentials()
    
16.         '// Load credentials from JSON file
    
17.         Dim credential = GoogleCredential.FromFile(CredentialFilePath).CreateScoped(SheetsService.Scope.Spreadsheets)
    
18.         '// Create Google Sheets API service
    
19.         Service = New SheetsService(New BaseClientService.Initializer() With {
    
20.             .HttpClientInitializer = credential,
    
21.             .ApplicationName = ApplicationName
    
22.         })
    
23.     End Sub
    
24. End Module

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

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2017) ได้จากที่นี่ ...