[VB.NET]定時重新啟動服務 (Service Timer)

Lansea.Chu — Mon, 09 Jun 2008 02:52:31 +0000

最近因為有定時重新啟動服務的需要，所以用vb.net寫了個定時重新啟動服務的程式
分享原始碼給大家
其實原理很簡單
短短的幾行程式就能完成

利用.NET現有的控制項就能做的到，看來.net開發起來真的是便利性十足

——————————————-
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim sc As New ServiceProcess.ServiceController() sc.ServiceName = "服務的名稱" If sc.Status = ServiceProcess.ServiceControllerStatus.Running Then sc.Stop() sc.WaitForStatus(ServiceProcess.ServiceControllerStatus.Stopped) End If If sc.Status = ServiceProcess.ServiceControllerStatus.Stopped Then Try sc.Start() sc.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running) Catch End Try

End If
sc.Dispose()
end sub

——————————————————

[vb.net]點擊Google廣告方可Button Enable

Lansea.Chu — Sat, 19 Apr 2008 20:24:30 +0000

剛好有個人一直在問我這個問題

但一直沒時間回覆他

剛好今天有點小空就回答了他

順便分享給同樣有此問題的朋友們

其實很容易的,只要抓特徵碼便可。

Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
Dim test = e.Url.OriginalString.ToString
If test.Contains("iclk") Then
Button1.Enabled = True
End If
End Sub

ITear Studio 資訊大耳朵 - 陪您聆聽每一份科技新知 » vb.net

[VB.NET]定時重新啟動服務 (Service Timer)

[vb.net]點擊Google廣告方可Button Enable