[VB.NET] โค้ดการ Start / Stop Service ของ MySQL Server

thongkorn

โค้ด VB.NET (2010) ในการ Start / Stop Service ของ MySQL Server (Localhost) ... สำหรับแอดมินอยู่สายงาน Win App ไม่ได้ใช้ Web ก็เลยไม่จำเป็นต้องลง Web Server ของ XAMPP แต่ใช้ MySQL Workbench ในการบริหารจัดการก็พอล่ะ ในการเขียนโค้ดนี้ขึ้นมาเพราะแอดมินจะต้องตามไปเปิดปิด Service ของ MySQL อยู่ตลอดเวลา คือเปิดเมื่อใช้งาน และจะปิดเมื่อเลิกใช้ แต่ใช้เป็น Win App มันจะสะดวกกว่าครับ ...

Services.msc


Add References ... ServiceProcess


Status Running ...


Status Stopping ...

มาดูโค้ดกันเถอะ ...

1. '// Don't forget manually add a reference .NET to System.ServiceProcess.dll
   
2. Imports System.ServiceProcess
   
3. 
   
4. '// ServiceController Class
   
5. '// https://learn.microsoft.com/en-us/dotnet/api/system.serviceprocess.servicecontroller?view=dotnet-plat-ext-7.0
   
6. 
   
7. Public Class frmMySqlService
   
8.     '// Find the Machine Name or "." for this PC (Local).
   
9.     Private MachineName As String = My.Computer.Name    '// "."
   
10.     '// Specific MySQL Local Instance name.
    
11.     Private SqlName As String = "MySQL57"
    
12.     '// ServiceController(MySQL Instance Name, Machine Name)
    
13.     Dim sc As New ServiceController
    
14. 
    
15.     Private Sub btnAction_Click(sender As System.Object, e As System.EventArgs) Handles btnAction.Click
    
16.         Try
    
17.             Select Case ServiceStatus()
    
18.                 Case "Running"
    
19.                     sc.Stop()
    
20.                     sc.WaitForStatus(ServiceControllerStatus.Stopped)
    
21.                     MessageBox.Show("Stop " & SqlName & " Servers.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
22.                     btnAction.Text = "Start Service"
    
23.                 Case "Stopped", "StopPending"
    
24.                     sc.Start()
    
25.                     sc.WaitForStatus(ServiceControllerStatus.Running)
    
26.                     MessageBox.Show("Start " & SqlName & " Servers.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
27.                     btnAction.Text = "Stop Service"
    
28.             End Select
    
29.             lblStatus.Text = "Status: " & ServiceStatus()
    
30.         Catch ex As Exception
    
31.             MessageBox.Show(ex.Message)
    
32.         End Try
    
33.     End Sub
    
34. 
    
35.     '// S T A R T ... H E R E
    
36.     Private Sub frmMySqlService_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
37.         lblStatus.Text = ""
    
38.         Try
    
39.             '// Check the status of the service.
    
40.             Select Case ServiceStatus()
    
41.                 Case "Running"
    
42.                     btnAction.Text = "Stop Service"
    
43.                 Case "Stopped", "StopPending"
    
44.                     btnAction.Text = "Start Service"
    
45.             End Select
    
46.             lblStatus.Text = "Status: " & sc.Status.ToString
    
47.         Catch ex As Exception
    
48.             MessageBox.Show(ex.Message)
    
49.             End
    
50.         End Try
    
51.     End Sub
    
52. 
    
53.     Function ServiceStatus() As String
    
54.         '// ServiceControllerStatus Meanings.
    
55.         '1 = Stopped – The Service is not running.
    
56.         '2 = StartPending – The Service is starting.
    
57.         '3 = StopPending – The Service is stopping.
    
58.         '4 = Running – The Service is running.
    
59.         '5 = ContinuePending – The Service continue is pending.
    
60.         '6 = PausePending – The Service pause is pending.
    
61.         '7 = Paused – The service is paused.
    
62. 
    
63.         '// ServiceController(MySQL Instance Name, Machine Name)
    
64.         sc = New ServiceProcess.ServiceController(SqlName, MachineName)
    
65.         '// Return string.
    
66.         Return sc.Status.ToString
    
67.     End Function
    
68. 
    
69.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
70.         Me.Close()
    
71.     End Sub
    
72. 
    
73.     Private Sub frmMySqlService_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
74.         Me.Dispose()
    
75.         GC.SuppressFinalize(Me)
    
76.         End
    
77.     End Sub
    
78. 
    
79. End Class

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

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