知识大全 Windows服务:方便地启动Oracle服务

Posted 2022-07-16 系统

篇首语：一身转战三千里，一剑曾当百万师。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Windows服务:方便地启动Oracle服务相关的知识，希望对你有一定的参考价值。

Windows服务:方便地启动Oracle服务 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　Oracle i有多个系统服务必须都启动之后才能正常工作但逐个启动比较费事多数学习Oracle但机器又不是太好的朋友也不能容忍每次都自动启动Oracle服务（那样 MB的内存在启动时就所剩无几了）所以通常都是要用了再启动这里给出了批量启动windows系统服务的一个例子介绍了操控windows系统服务的技巧首先新建一个Windows Application工程取名为Oracle Starter粘贴如下代码文件 Form Designer vb

Partial Public Class Form Inherits System Windows Forms Form

　　<System Diagnostics DebuggerNonUserCode()> _ Public Sub New() MyBase New()

　　 This call is required by the Windows Form Designer InitializeComponent()

　　End Sub

　　 Form overrides dispose to clean up the ponent list <System Diagnostics DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso ponents IsNot Nothing Then ponents Dispose() End If MyBase Dispose(disposing) End Sub

　　 Required by the Windows Form Designer Private ponents As System ComponentModel IContainer

　　 NOTE: The following procedure is required by the Windows Form Designer It can be modified using the Windows Form Designer Do not modify it using the code editor <System Diagnostics DebuggerStepThrough()> _ Private Sub InitializeComponent() Me Label = New System Windows Forms Label Me ListBox = New System Windows Forms ListBox Me Button = New System Windows Forms Button Me Button = New System Windows Forms Button Me SuspendLayout() Label Me Label AutoSize = True Me Label Font = New System Drawing Font( Tahoma ! System Drawing FontStyle Bold System Drawing GraphicsUnit Point CType( Byte)) Me Label Location = New System Drawing Point( ) Me Label Name = Label Me Label Size = New System Drawing Size( ) Me Label TabIndex = Me Label Text = Oracle Starter ListBox Me ListBox Font = New System Drawing Font( Tahoma ! System Drawing FontStyle Regular System Drawing GraphicsUnit Point CType( Byte)) Me ListBox FormattingEnabled = True Me ListBox ItemHeight = Me ListBox Location = New System Drawing Point( ) Me ListBox Name = ListBox Me ListBox Size = New System Drawing Size( ) Me ListBox TabIndex = Button Me Button Location = New System Drawing Point( ) Me Button Name = Button Me Button Size = New System Drawing Size( ) Me Button TabIndex = Me Button Text = Stop all services Button Me Button Location = New System Drawing Point( ) Me Button Name = Button Me Button Size = New System Drawing Size( ) Me Button TabIndex = Me Button Text = Start all servies Form Me AutoScaleBaseSize = New System Drawing Size( ) Me ClientSize = New System Drawing Size( ) Me Controls Add(Me Button ) Me Controls Add(Me Button ) Me Controls Add(Me ListBox ) Me Controls Add(Me Label ) Me Name = Form Me Text = Oracle Starter Me ResumeLayout(False) Me PerformLayout()

　　End Sub Friend WithEvents Label As System Windows Forms Label Friend WithEvents ListBox As System Windows Forms ListBox Friend WithEvents Button As System Windows Forms Button Friend WithEvents Button As System Windows Forms Button

　　End Class

　　Form vbImports System ServiceProcessImports System Threading

　　Public Class Form

　　 Private procName As String Private procArray( ) As String

　　Private Sub Form _Activated(ByVal sender As Object ByVal e As System EventArgs) Handles Me Activated

　　End Sub

　　Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load procArray( ) = OracleMTSRecoveryService procArray( ) = OracleOraHome Agent procArray( ) = OracleOraHome TNSListener procArray( ) = OracleServiceSFSVDB procArray( ) = OracleOraHome HTTPServer End Sub

　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click Dim backThread As Thread Dim i As Int For i = To backThread = New Thread(AddressOf procClass StopProc) backThread IsBackground = True procClass procName = procArray(i) Label Text = Stopping service: + procClass procName + Me Refresh() backThread Start() backThread Join() ListBox Items Add( Service: + procClass procName + Stopped ) Me Refresh() backThread = Nothing Next Label Text = All services stopped End Sub

　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click Dim backThread As Thread Dim i As Int For i = To backThread = New Thread(AddressOf procClass StartProc) procClass procName = procArray(i) Label Text = Starting service: + procClass procName + Me Refresh() backThread Start() backThread Join() ListBox Items Add( Service: + procClass procName + Started ) Me Refresh() backThread = Nothing Next Label Text = All services started End Sub

　　Public Class procClass Public Shared procName As String

　　Public Shared Sub StopProc() Dim servController As ServiceController = New ServiceController(procName) If servController Status = ServiceControllerStatus Stopped Then ElseIf servController Status = ServiceControllerStatus Paused Then servController Stop() servController WaitForStatus(ServiceControllerStatus Stopped) ElseIf servController Status = ServiceControllerStatus Running Then servController Stop() servController WaitForStatus(ServiceControllerStatus Stopped) End If End Sub

cha138/Article/program/Oracle/201311/17456