[VB.NET] เล่น Youtube ด้วย VLC ActiveX และเก็บข้อมูลเอาไว้ในรูปแบบเท็กซ์ไฟล์

thongkorn

ทุกๆวันเวลาแอดมินนั่งทำงาน ก็มักจะเปิดเพลงจาก Youtube ฟังไปด้วย แต่ก็นั่นแหละไม่ว่าจะใช้เบราเซอร์ตัวไหน มันก็มักจะกินทรัพยากรระบบเยอะซ่ะเหลือเกิน วันนี้แอดมินเลยขอนำเสนอโปรเจคในการเปิดเพลงฟังจาก Youtube โดยผ่านทาง VLC Media Player สำหรับเวอร์ชั่นนี้แอดมินจะใช้ COM (Component Object Model) ในรุ่น 32 บิต หรือที่เราเรียกมันว่า ActiveX คลิ๊กดาวน์โหลดเพื่อทำการติดตั้งได้ที่นี่ แต่แค่นี้มันเป็นเรื่องง่ายๆจิ๊บๆเกินไป แอดมินเลยเติมไอเดียเข้าไปด้วยการจัดเก็บข้อมูลรายละเอียด และลิ้งค์เอาไว้ใน Text File อันดับแรกก็คือการโหลดข้อมูลจากเท็กซ์ไฟล์เข้ามาใส่ในตารางกริดซ่ะก่อน จากนั้นก็เลือกรายการแถวรายการที่จะเล่น และก็กดปุ่มเล่นรายการ ยังๆๆๆ ยังไม่หยุดพออยู่แค่นี้ แอดมินใส่วิธีการเพิ่มและลบข้อมูลรายการเอาไว้ในตารางกริดได้ด้วย และก็ทำการบันทึกข้อมูลเอาไว้เพื่อนำมาใช้งานได้ต่อไปในครั้งหน้า ...

WARNING ... ต้องติดตั้ง VLC Media Player ก่อนด้วยน่ะครับทุกๆท่าน เพราะแอดมินไม่ได้บีบอัดเข้าไปในไฟล์โค้ดต้นฉบับด้วย ... สามารถดาวน์โหลดได้ที่นี่ ...

การนำ VLC Media Player มาใช้งานใน VB.NET ... (คลิ๊กเมาส์ขวาบริเวณ All Windows Form)


เลือก VLC ActiveX ด้วย COM ...


VideoLAN VLC ActiveX Plugin ...


ข้อมูลที่ถูกจัดเก็บเอาไว้ใน Text File ... ข้อมูลจะมี 2 ชุด โดยจะถูกแยกออกจากกันด้วยเครื่องหมายคอมม่า , (Comma)

1. สถานีเพลงเพื่อชีวิต,https://www.youtube.com/watch?v=93M1PLcFCek
   
2. เพลงเพราะออนไลน์ 24 ชั่วโมง,https://www.youtube.com/watch?v=3WPu-Ghpyf0
   
3. สถานีเพลงเพื่อชีวิต ลูกทุ่ง,https://www.youtube.com/watch?v=iLI3EXaQHeM
   
4. ฟังเพลงเพราะๆ​ 24​ ชั่วโมง,https://www.youtube.com/watch?v=Onz5A9HmRbI
   
5. Summer Live Music,https://www.youtube.com/watch?v=v3SPXsZKMT8
   
6. เพลงเพราะๆ ฟังสบายๆ,https://www.youtube.com/watch?v=VidaM1BtWyY
   
7. รวมเพลงสตริง ฟังยาวๆ ตอนทำงาน 2019,https://www.youtube.com/watch?v=YGktJ9LHSPo

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

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

1. Imports System.IO
   
2. 
   
3. Public Class frmCYoutube
   
4. 
   
5.     ' / ---------------------------------------------------------------
   
6.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
   
7.         Dim dlgOpenFile As New OpenFileDialog
   
8.         With dlgOpenFile
   
9.             .Filter = "Text File |*.txt"
   
10.             .Title = "เปิดไฟล์ Text File"
    
11.             .DefaultExt = "txt"
    
12.             .InitialDirectory = MyPath(Application.StartupPath)
    
13.             .RestoreDirectory = True
    
14.         End With
    
15.         If dlgOpenFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    
16.             Call SetupDataGrid()
    
17.             '//
    
18.             Call ParserText(dlgOpenFile.FileName)
    
19.         End If
    
20.     End Sub
    
21. 
    
22.     ' / ---------------------------------------------------------------
    
23.     Private Sub SetupDataGrid()
    
24.         '//
    
25.         dgvData.Rows.Clear()
    
26.         dgvData.Columns.Clear()
    
27.         '// Declare columns type.
    
28.         Dim Column0 As New DataGridViewTextBoxColumn()
    
29.         Dim Column1 As New DataGridViewTextBoxColumn()
    
30.         Dim Column2 As New DataGridViewButtonColumn()
    
31.         Dim Column3 As New DataGridViewButtonColumn()
    
32.         '// Add new Columns
    
33.         dgvData.Columns.AddRange(New DataGridViewColumn() { _
    
34.                                  Column0, Column1, Column2, Column3 _
    
35.                                 })
    
36.         '// Startup
    
37.         With Column0
    
38.             .Name = "Description"
    
39.             .HeaderText = "Description"
    
40.         End With
    
41.         With Column1
    
42.             .Name = "Link"
    
43.             .HeaderText = "Link"
    
44.             .ReadOnly = False
    
45.         End With
    
46.         '//
    
47.         With Column2
    
48.             .HeaderText = "" '"Add"
    
49.             .Text = "Add"
    
50.             .Name = "btnAddRow"
    
51.             .UseColumnTextForButtonValue = True
    
52.             .Width = 100
    
53.             .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    
54.             .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    
55.             .ReadOnly = True
    
56.         End With
    
57.         '//
    
58.         With Column3
    
59.             .HeaderText = "" '"Delete"
    
60.             .Text = "Delete"
    
61.             .Name = "btnDelRow"
    
62.             .UseColumnTextForButtonValue = True
    
63.             .Width = 100
    
64.             .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    
65.             .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    
66.             .ReadOnly = True
    
67.         End With
    
68.         '//
    
69.         With dgvData
    
70.             .RowHeadersVisible = False
    
71.             .AllowUserToAddRows = False
    
72.             .AllowUserToDeleteRows = False
    
73.             .AllowUserToResizeRows = False
    
74.             .MultiSelect = False
    
75.             .SelectionMode = DataGridViewSelectionMode.CellSelect
    
76.             .ReadOnly = False
    
77.             .Font = New Font("Tahoma", 9)
    
78.             ' จัดความกว้างของแต่ละหลัก
    
79.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
80.             .RowTemplate.MinimumHeight = 24
    
81.             .RowTemplate.Height = 24
    
82.             '// Column Header
    
83.             .ColumnHeadersHeight = 28
    
84.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
    
85.             '// Adjust Header Styles
    
86.             With .ColumnHeadersDefaultCellStyle
    
87.                 .BackColor = Color.Navy
    
88.                 .ForeColor = Color.White
    
89.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
90.             End With
    
91.         End With
    
92.     End Sub
    
93. 
    
94.     ' / ---------------------------------------------------------------
    
95.     ' / Parser Text with delimited.
    
96.     Private Sub ParserText(strFile As String)
    
97.         '// ประกาศ reader ให้เป็นการอ่านข้อมูลเพื่อทำการแยก (TextFieldParser)
    
98.         Dim reader As Microsoft.VisualBasic.FileIO.TextFieldParser = My.Computer.FileSystem.OpenTextFieldParser(strFile)
    
99. 
    
100.         '// กำหนด reader ด้วย TextFieldType เพื่อทำการแยกชุดข้อมูลออกจากกัน
     
101.         reader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
     
102.         '// ตั้งค่าให้ reader แยกชุดข้อมูลด้วเครื่องหมายคอมม่า (,) Tap และไปป์ (|)
     
103.         reader.Delimiters = New String() {","} ', vbTab, "|"}
     
104.         '// กรณีที่บรรทัดนั้นมีเครื่องหมาย // ก็ไม่ต้องไปสนใจมัน หรือข้ามมันไปเลย
     
105.         reader.CommentTokens = New String() {"//"}
     
106.         Dim sRow As Integer = 0
     
107.         '// วนรอบการอ่านข้อมูลทีละบรรทัด
     
108.         Do While Not reader.EndOfData
     
109.             Try
     
110.                 '// แยกชุดข้อมูลออกจากกันทีละบรรทัดด้วยการใช้ ReadFields method
     
111.                 Dim arrFields As String() = reader.ReadFields()
     
112.                 '//
     
113.                 Dim dgvRow As New DataGridViewRow
     
114.                 Dim dgvCell As DataGridViewCell
     
115.                 Dim iCol As Byte = 0
     
116.                 '// แยกข้อมูลออกมาทีละหลัก
     
117.                 For Each strField As String In arrFields
     
118.                     '// รับค่าเข้ามาทีละเซลล์
     
119.                     dgvCell = New DataGridViewTextBoxCell
     
120.                     dgvCell.Value = strField
     
121.                     dgvRow.Cells.Add(dgvCell)
     
122.                     iCol += 1
     
123.                 Next
     
124.                 '// เพิ่มเข้าไปในแถวของตารางกริด
     
125.                 dgvData.Rows.Add(dgvRow)
     
126.                 sRow += 1
     
127.                 '// Trap Error
     
128.             Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
     
129.                 MessageBox.Show(ex.Message)
     
130.             End Try
     
131.         Loop
     
132. 
     
133.         '// Close the reader
     
134.         reader.Close()
     
135.     End Sub
     
136. 
     
137.     ' / ---------------------------------------------------------------
     
138.     Private Sub frmCYoutube_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
139.         Me.Dispose()
     
140.         Application.Exit()
     
141.     End Sub
     
142. 
     
143.     ' / ---------------------------------------------------------------
     
144.     Private Sub frmCYoutube_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
     
145.         Call SetupDataGrid()
     
146.         ToolStripStatusLabel5.Text = ""
     
147.     End Sub
     
148. 
     
149.     ' / ---------------------------------------------------------------
     
150.     ' / บันทึกข้อมูลลง Text File
     
151.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
     
152.         If dgvData.RowCount = 0 Then Return
     
153.         '// เช็คก่อนว่ามีรายการใดในตารางกริดที่ไม่ได้ป้อนข้อมูล
     
154.         For xRow = 0 To dgvData.RowCount - 1
     
155.             If dgvData.Rows(xRow).Cells(0).Value = "" Or IsNothing(dgvData.Rows(xRow).Cells(0).Value) AndAlso (dgvData.Rows(xRow).Cells(1).Value = "" Or IsNothing(dgvData.Rows(xRow).Cells(1).Value)) Then
     
156.                 MessageBox.Show("รายการแถวที่ " & xRow + 1 & " ยังไม่ได้ใส่รายการ กรุณาตรวจสอบให้เรียบร้อย.", "ตรวจสอบข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
157.                 Exit Sub
     
158.             End If
     
159.         Next
     
160.         '//
     
161.         Dim dlgSaveFile As New SaveFileDialog()
     
162.         With dlgSaveFile
     
163.             .Filter = "Text File |*.txt"
     
164.             .Title = "บันทึกไฟล์ Text File"
     
165.             .DefaultExt = "txt"
     
166.             .InitialDirectory = MyPath(Application.StartupPath)
     
167.             .RestoreDirectory = True
     
168.         End With
     
169.         If dlgSaveFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
     
170.             Call ExportToTextFile(dlgSaveFile.FileName)
     
171.         End If
     
172.     End Sub
     
173. 
     
174.     ' / ---------------------------------------------------------------
     
175.     Private Sub ExportToTextFile(strFile As String)
     
176.         Dim writer As TextWriter = New StreamWriter(strFile)
     
177.         Try
     
178.             Dim sRow As Integer = dgvData.Rows.Count - 1
     
179.             '// วนรอบตามจำนวนแถว
     
180.             For i As Integer = 0 To sRow
     
181.                 '// เริ่มนับหลักจาก 0 และตัดหลักปุ่มเพิ่มและลบออกไป จึงต้องลบออกด้วย 3
     
182.                 For j As Integer = 0 To dgvData.Columns.Count - 3
     
183.                     If j = dgvData.Columns.Count - 3 Then
     
184.                         writer.Write(Replace(dgvData.Rows(i).Cells(j).Value.ToString(), ",", ""))
     
185.                     Else
     
186.                         writer.Write(Replace(dgvData.Rows(i).Cells(j).Value.ToString, ",", "") & ",")
     
187.                     End If
     
188.                 Next
     
189.                 writer.WriteLine("")
     
190.             Next
     
191.         Catch ex As Exception
     
192.             MessageBox.Show(ex.Message, "รายงานความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
193.         End Try
     
194.         writer.Close()
     
195.     End Sub
     
196. 
     
197.     ' / ---------------------------------------------------------------
     
198.     Private Sub dgvData_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
     
199.         Select Case e.ColumnIndex
     
200.             '// หลักที่ 3 (Index = 2) คือหลักที่เป็นปุ่มเพิ่ม
     
201.             Case 2
     
202.                 dgvData.Rows.Add()
     
203.                 '// หลักที่ 4 คือหลักที่เป็นปุ่มลบ
     
204.             Case 3
     
205.                 '// ลบรายการแถวที่เลือกออกไป
     
206.                 dgvData.Rows.Remove(dgvData.CurrentRow)
     
207.         End Select
     
208. 
     
209.     End Sub
     
210. 
     
211.     ' / ---------------------------------------------------------------
     
212.     Private Sub btnPlay_Click(sender As System.Object, e As System.EventArgs) Handles btnPlay.Click
     
213.         If dgvData.RowCount = 0 Then Return
     
214.         ToolStripStatusLabel5.Text = dgvData.CurrentRow.Cells(1).Value.ToString
     
215.         If AxVLCPlugin21.playlist.isPlaying Then AxVLCPlugin21.playlist.stop()
     
216.         Try
     
217.             With AxVLCPlugin21
     
218.                 '.playlist.items.remove(0)
     
219.                 .playlist.items.clear()
     
220.                 .playlist.add(dgvData.CurrentRow.Cells(1).Value.ToString)
     
221.                 .playlist.play()
     
222.             End With
     
223.         Catch ex As Exception
     
224.             MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
225.         End Try
     
226.     End Sub
     
227. 
     
228.     ' / ---------------------------------------------------------------
     
229.     ' / Get my project path
     
230.     ' / AppPath = C:\My Project\bin\debug
     
231.     ' / Replace "\bin\debug" with ""
     
232.     ' / Return : C:\My Project\
     
233.     Function MyPath(ByVal AppPath As String) As String
     
234.         '/ MessageBox.Show(AppPath);
     
235.         AppPath = AppPath.ToLower()
     
236.         '/ Return Value
     
237.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
238.         '// If not found folder then put the \ (BackSlash) at the end.
     
239.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
240.     End Function
     
241. 
     
242.     Private Sub ToolStripStatusLabel3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel3.Click
     
243.         Process.Start("http://www.g2gnet.com/webboard")
     
244.     End Sub
     
245. 
     
246.     Private Sub ToolStripStatusLabel2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel2.Click
     
247.         Process.Start("https://www.facebook.com/g2gnet")
     
248.     End Sub
     
249. 
     
250.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
251.         Me.Close()
     
252.     End Sub
     
253. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...