Code:
Dim Services() As String = {"PG_AccountDB_Server", "PG_AccountLogDB_Server", "PG_Login_Server", "PG_World00_Character_DB_Server", "PG_World00_GameLog_DB_Server", "PG_World00_Manager_Server", "PG_Zone_Server", "PG_Zone_Server1", "PG_Zone_Server2"}
Sub SetService(ByVal Name As String, ByVal Status As Boolean)
ServiceController1.ServiceName = Name
If Status = True Then
ServiceController1.Start()
Else
ServiceController1.Stop()
End If
End Sub
Sub StartServices()
For Each Service As String In Services
SetService(Service, True)
Next
End Sub
Sub StopServices()
For Each Service As String In Services
SetService(Service, False)
Next
End Sub