[VB.NET] โค้ดการเชื่อมต่อ VPN (Virtual Private Network) และรักษาสถานะการเชื่อมต่อตามเวลาที่เรากำหนด

thongkorn

ว่าด้วยเรื่อง VPN หรือ (Virtual Private Network) แอดมินจะอธิบายแบบภาษาบ้านๆ คือ การเชื่อมโยงเครือข่ายภายใน (LAN - Local Area Network) ของเรา ลอดอุโมงค์หรือท่อที่ถูกสร้างขึ้นใหม่ ผ่านทางอินเทอร์เน็ต เพื่อเข้าไปเกาะกลุ่ม LAN อีกวงที่อยู่ระยะห่างไกลได้นั่นเอง ... วิธีการสร้าง VPN Server มีคนเขาอธิบายให้เยอะแยะแล้ว แอดมินจะให้ลิ้งค์เข้าไปอ่านดูก็แล้วกัน เช่น การตั้งค่า VPN (PPTP) แบบ Client to Server บน Windows (มีวิธีการทำ Forward Port ของเน็ต 3BB) และ How to set up a VPN server on Windows 10 (ภาคภาษาอังกฤษ) ... แต่ปัญหาสำหรับ Windows 10 ก็คือ เครื่อง Client จะสามารถเชื่อมต่อเข้ามาได้เพียงทีละ 1 ท่อเท่านั้น หากเราต้องการจะให้มีหลาย Client เข้ามาพร้อมกันได้ ก็ต้องเปลี่ยนไปใช้ Windows Server หรือใช้ Mikrotik แทน อ่านวิธีทำ VPN แบบ PPTP โดยใช้ Mikrotik ...

วิธีการเชื่อมต่อด้วยโค้ด VB.NET ตามที่แอดมินได้เขียนโค้ดไว้ล่วงหน้า ก็จะใช้ 3 วิธีหลักๆ ดังนี้คือ
1. ใช้ Command Line ด้วย Rasdial.exe
2. ใช้ RasPhone
3. ใช้ DotRas (DLL File ของฟรี)

แต่วันนี้แอดมินจะขอนำเสนอวิธีการแรกก่อน เพราะมันง่ายดี และเราไม่จำเป็นต้องไปสร้าง VPN Client ใน Windows ขึ้นมาก่อน ... หลักการของโค้ด ก็คือ สร้าง Phonebook ในการจัดเก็บข้อมูลของการเชื่อมต่อ VPN เอาไว้ จากนั้นก็ทำการสร้าง Batch File เพื่อทำการรันคำสั่ง Rasdial.exe ด้วยการอ่านข้อมูลใน Phonebook อีกที ... ง่ายมั้ยล่ะข่ะรับ แต่ภายใต้ความง่ายนั้น เราจะมองไม่เห็น Error ที่เกิดขึ้นในการเชื่อมต่อ ซึ่งจะไปว่ากันต่อในตอนหน้า

ตัวอย่างของข้อมูลที่อยู่ใน Phonebook ... เราสามารถใช้ Notepad เปิดดูได้เลย  

1. [VPN]
   
2. MEDIA=rastapi
   
3. Port=VPN2-0
   
4. Device=WAN Miniport (IKEv2)
   
5. DEVICE=vpn
   
6. PhoneNumber=vpndemo
   
7. PreviewUserPw=0

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

เมื่อทำการติดต่อ VPN (กดปุ่ม Connect) ก็จะเกิดการรันคำสั่ง Rasdial.exe ...


โค้ดในการนับเวลาถอยหลังแบบชั่วโมง-นาที-วินาที ... การเขียนโค้ดเข้าช่วยโดยไม่ใช้คำสั่งสำเร็จรูป หรือคำสั่งภายใน จะช่วยให้เราเร่งเวลาการทำงานให้เร็วขึ้นได้ ด้วยการปรับช่วงเวลา หรือ Interval ของ Timer นั่นเอง เพราะเวลาทำการทดสอบ จะได้ไม่ต้องมานั่งนับเวลาลงตาม Timer แบบเป๊ะๆ เช่น ตั้งการนับถอยหลังลงทุกๆ 10 นาที กว่าจะทดสอบแต่ละครั้งได้นี่ แหม กินเวลานานเกินไปครับ ...

1.     ' / --------------------------------------------------------------------
   
2.     '// การนับถอยหลังโดยคำนวณค่าเวลาแบบชั่วโมง นาที และ วินาที
   
3.     Private Function CountDownTime() As String
   
4.         'Dim HH As String    '<< ชั่วโมง
   
5.         Dim MM As String    '<< นาที
   
6.         Dim SS As String    '<< วินาที
   
7.         '// 1 ชั่วโมง = 3600 วินาที
   
8.         'HH = TimeCount \ 3600
   
9. 
   
10.         '// การ Mod ด้วย 3600 ก็คือ 60 นาทีมีค่าเท่ากับ 3600 วินาที (การนับรวมชั่วโมง)
    
11.         '// การหารตัดเศษ \ ด้วย 60 คือต้องการแสดงผลในรูปแบบนาที
    
12.         MM = (TimeCounter Mod 3600) \ 60
    
13. 
    
14.         '// การ Mod ด้วย 60 (ค่าวินาที) จะทำให้ค่าสูงสุดอยู่ที่ 59 วินาที
    
15.         SS = (TimeCounter Mod 60)
    
16.         '// แสดงผล
    
17.         'HH = Microsoft.VisualBasic.Right("00" & HH, 2)
    
18.         MM = Microsoft.VisualBasic.Right("00" & MM, 2)
    
19.         SS = Microsoft.VisualBasic.Right("00" & SS, 2)
    
20.         'Return HH & ":" & MM & ":" & SS
    
21.         '// เอาเฉพาะนาที-วินาที
    
22.         Return MM & ":" & SS
    
23.     End Function

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

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

1. ' / --------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Connect VPN (Virtual Private Network) and Re-Connect it.
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @CopyRight by Thongkorn Tubtimkrob.
    
13. ' / You can not distribute this code for free. Without the consent of the developer.
    
14. ' / --------------------------------------------------------------------
    
15. 
    
16. Imports System.Net
    
17. 
    
18. Public Class frmVPNClient
    
19.     '// การนับเวลา
    
20.     Private TimeCounter As Integer
    
21. 
    
22.     '// กำหนดให้แสดงหรือซ่อน DOS Screen
    
23.     Dim blnStart As Boolean = True
    
24. 
    
25.     '// กำหนด Path ของ Batch File
    
26.     Dim strVpn As String = MyPath(Application.StartupPath)
    
27.     '// ค่าคงที่ของชื่อโฟลเดอร์
    
28.     Const strFolder As String = "MyVPN"
    
29. 
    
30.     ' / --------------------------------------------------------------------
    
31.     ' / Start Connect
    
32.     Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
    
33.         '// หากไม่พบไดเรคตอรี่ ให้สร้าง Directory (Folder นั่นแหละ) ขึ้นมาใหม่
    
34.         If Not IO.Directory.Exists(strVpn & strFolder) Then
    
35.             IO.Directory.CreateDirectory(strVpn & strFolder)
    
36.         End If
    
37.         '// RASDIAL
    
38.         'https://docs.microsoft.com/en-us/previous-versions/orphan-topics/ws.10/dd450369(v=ws.10)
    
39.         '// Create PhoneBook (pbk extension)
    
40.         IO.File.WriteAllText( _
    
41.                 ( _
    
42.                 strVpn & strFolder & "\connection.pbk"), _
    
43.                 "[VPN]" & vbNewLine & _
    
44.                 "MEDIA=rastapi" & vbNewLine & _
    
45.                 "Port=VPN2-0" & vbNewLine & _
    
46.                 "Device=WAN Miniport (IKEv2)" & vbNewLine & _
    
47.                 "DEVICE=vpn" & vbNewLine & _
    
48.                 "PhoneNumber=" & txtHost.Text _
    
49.                 )
    
50. 
    
51.         '// Create BAT File เพื่อให้รันคำสั่ง Rasdial และใช้ข้อมูลใน Phonebook
    
52.         IO.File.WriteAllText( _
    
53.                 ( _
    
54.                 strVpn & strFolder & "\connection.bat"), _
    
55.                 "rasdial ""VPN"" " & _
    
56.                 txtUserName.Text & " " & _
    
57.                 txtPassword.Text & " /phonebook:" & """" & _
    
58.                 strVpn & strFolder & "\connection.pbk" & """" _
    
59.                 )
    
60. 
    
61.         Try
    
62.             Dim connect As System.Diagnostics.Process
    
63.             connect = New System.Diagnostics.Process()
    
64.             connect.StartInfo.FileName = strVpn & strFolder & "\connection.bat"
    
65.             '// หาก Start Program กำหนดให้ blnStart = True
    
66.             If blnStart Then
    
67.                 connect.StartInfo.WindowStyle = ProcessWindowStyle.Normal
    
68.             Else
    
69.                 '// หากทำการ Re-Connect ให้ซ่อนหน้าจอ DOS
    
70.                 connect.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    
71.             End If
    
72.             '//
    
73.             connect.Start()
    
74.             connect.WaitForExit()
    
75.             btnConnect.Enabled = False
    
76.             btnDisconnect.Enabled = True
    
77.             'MessageBox.Show("Connect VPN already.")
    
78.             lblCounterTimer.Text = "00:00"
    
79. 
    
80.             '// TEST
    
81.             'Timer1.Interval = 50    '<-- ไว้ทดสอบเพราะจะนับเร็วมาก
    
82.             'TimeCounter = 60 '<-- 60 วินาทีไว้ทดสอบ
    
83.             '// 1000 ms = 1 Sec. (ตอนทดสอบตั้งค่าไว้สัก 50 จะทำให้เร็วขึ้น)
    
84.             Timer1.Interval = 1000
    
85.             '// นำค่า 2 หลักแรกใน ComboBox มาคูณ 60
    
86.             TimeCounter = Val(Microsoft.VisualBasic.Left(cmbTimer.Text, 2)) * 60
    
87.             Timer1.Start()
    
88.             cmbTimer.Enabled = False
    
89.             connect.Dispose()
    
90. 
    
91.         Catch ex As Exception
    
92.             MessageBox.Show(ex.Message)
    
93.         End Try
    
94.     End Sub
    
95. 
    
96.     ' / --------------------------------------------------------------------
    
97.     '// นับเวลาถอยหลัง
    
98.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    
99.         If TimeCounter > 0 Then
    
100.             TimeCounter -= 1
     
101.             lblCounterTimer.Text = CountDownTime()
     
102.         Else
     
103.             Timer1.Enabled = False
     
104.             '// TEST
     
105.             'TimeCounter = 60 '<-- 60 วินาทีไว้ทดสอบ
     
106.             TimeCounter = Val(Microsoft.VisualBasic.Left(cmbTimer.Text, 2)) * 60
     
107.             Timer1.Start()
     
108.             '//MsgBox("Time Out.", vbOKOnly + vbInformation, "Report Status")
     
109.             lblCounterTimer.Text = "00:00"
     
110.             '// เวลา Re-Connect ทุกๆครั้งจะได้ไม่ต้องแสดงผลหน้าจอ DOS
     
111.             blnStart = False
     
112.             '// กลับไปสั่งให้ Re-Connect อีกรอบ
     
113.             Call btnConnect_Click(sender, e)
     
114.         End If
     
115.     End Sub
     
116. 
     
117.     ' / --------------------------------------------------------------------
     
118.     '// การนับถอยหลังโดยคำนวณค่าเวลาแบบชั่วโมง นาที และ วินาที
     
119.     Private Function CountDownTime() As String
     
120.         'Dim HH As String    '<< ชั่วโมง
     
121.         Dim MM As String    '<< นาที
     
122.         Dim SS As String    '<< วินาที
     
123.         '// 1 ชั่วโมง = 3600 วินาที
     
124.         'HH = TimeCount \ 3600
     
125. 
     
126.         '// การ Mod ด้วย 3600 ก็คือ 60 นาทีมีค่าเท่ากับ 3600 วินาที (การนับรวมชั่วโมง)
     
127.         '// การหารตัดเศษ \ ด้วย 60 คือต้องการแสดงผลในรูปแบบนาที
     
128.         MM = (TimeCounter Mod 3600) \ 60
     
129. 
     
130.         '// การ Mod ด้วย 60 (ค่าวินาที) จะทำให้ค่าสูงสุดอยู่ที่ 59 วินาที
     
131.         SS = (TimeCounter Mod 60)
     
132.         '// แสดงผล
     
133.         'HH = Microsoft.VisualBasic.Right("00" & HH, 2)
     
134.         MM = Microsoft.VisualBasic.Right("00" & MM, 2)
     
135.         SS = Microsoft.VisualBasic.Right("00" & SS, 2)
     
136.         'Return HH & ":" & MM & ":" & SS
     
137.         '// เอาเฉพาะนาที-วินาที
     
138.         Return MM & ":" & SS
     
139.     End Function
     
140. 
     
141.     ' / --------------------------------------------------------------------
     
142.     ' / ตัดการเชื่อมต่อ
     
143.     Private Sub btnDisConnect_Click(sender As Object, e As EventArgs) Handles btnDisconnect.Click
     
144.         IO.File.WriteAllText((strVpn & strFolder & "\disconnect.bat"), "rasdial/d")
     
145.         Dim connect As System.Diagnostics.Process
     
146.         connect = New System.Diagnostics.Process()
     
147.         connect.StartInfo.FileName = strVpn & strFolder & "\disconnect.bat"
     
148.         connect.StartInfo.WindowStyle = ProcessWindowStyle.Normal
     
149.         '//
     
150.         connect.Start()
     
151.         connect.WaitForExit()
     
152.         btnConnect.Enabled = True
     
153.         btnDisconnect.Enabled = False
     
154.         '//
     
155.         Timer1.Enabled = False
     
156.         lblCounterTimer.Text = "00:00"
     
157.         cmbTimer.Enabled = True
     
158.         blnStart = True
     
159.     End Sub
     
160. 
     
161.     Private Sub frmVPNClient_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
162.         '// จะปิดหรือค้าง Connection เอาไว้ก็เลือกเอาครับ
     
163.         'Call btnDisConnect_Click(sender, e)
     
164.         '//
     
165.         Me.Dispose()
     
166.         Application.Exit()
     
167.     End Sub
     
168. 
     
169.     Private Sub frmVPNConnector_Load(sender As Object, e As System.EventArgs) Handles Me.Load
     
170.         txtHost.Text = "YOUR HOST"
     
171.         txtUserName.Text = "USERNAME"
     
172.         txtPassword.Text = "PASSWORD"
     
173.         '//
     
174.         lblCounterTimer.Text = ""
     
175.         With cmbTimer
     
176.             .Items.Add("10 นาที")
     
177.             .Items.Add("20 นาที")
     
178.             .Items.Add("30 นาที")
     
179.             .Items.Add("40 นาที")
     
180.             .Items.Add("50 นาที")
     
181.             .Items.Add("60 นาที")
     
182.         End With
     
183.         cmbTimer.SelectedIndex = 0
     
184.         lblCounterTimer.Text = "00:00"
     
185.     End Sub
     
186. 
     
187.     Private Sub cmbTimer_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles cmbTimer.KeyDown
     
188.         If e.KeyCode = 13 Then
     
189.             e.Handled = True
     
190.             SendKeys.Send("{TAB}")
     
191.         End If
     
192.     End Sub
     
193. 
     
194.     Private Sub txtHost_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtHost.KeyPress
     
195.         If e.KeyChar = Chr(13) Then
     
196.             e.Handled = True
     
197.             SendKeys.Send("{TAB}")
     
198.         End If
     
199.     End Sub
     
200. 
     
201.     Private Sub txtPassword_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
     
202.         If e.KeyChar = Chr(13) Then
     
203.             e.Handled = True
     
204.             SendKeys.Send("{TAB}")
     
205.         End If
     
206.     End Sub
     
207. 
     
208.     Private Sub txtUserName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtUserName.KeyPress
     
209.         If e.KeyChar = Chr(13) Then
     
210.             e.Handled = True
     
211.             SendKeys.Send("{TAB}")
     
212.         End If
     
213.     End Sub
     
214. 
     
215.     ' / --------------------------------------------------------------------------------
     
216.     ' / Get my project path
     
217.     ' / AppPath = C:\My Project\bin\debug
     
218.     ' / Replace "\bin\debug" with ""
     
219.     ' / Return : C:\My Project\
     
220.     Function MyPath(ByVal AppPath As String) As String
     
221.         '/ MessageBox.Show(AppPath);
     
222.         AppPath = AppPath.ToLower()
     
223.         '/ Return Value
     
224.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
225.         '// If not found folder then put the \ (BackSlash) at the end.
     
226.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
     
227.     End Function
     
228. 
     
229. End Class

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

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