visual studio 2010 Windows Services hakkında

 
  Imports System.ServiceProcess 
  Imports Ortak 
  Imports Microsoft.Win32 
  Imports System.Windows.Forms 
  Imports System.DirectoryServices 
   
  Public Class IPR_Main 
      Dim sayi 
      Function FirstRun() 
          Dim hata As Boolean = True 
          Try 
              Dim regVersion As RegistryKey = Registry.CurrentUser.CreateSubKey(Degiskenler.Regedit) 
          Catch ex As Exception 
              Ortak.Errorlog(ex.Message.ToString) 
          End Try 
   
          Return hata 
      End Function 
   
      Protected Overrides Sub OnStart(ByVal args() As String) 
          Dim regVersion As RegistryKey = Registry.CurrentUser.OpenSubKey(Degiskenler.Regedit, True) 
          If regVersion Is Nothing Then FirstRun() 
      End Sub 
   
      Protected Overrides Sub OnStop() 
          Ortak.Services("Checking", "Manual") 
      End Sub 
   
   
      Private Sub Timer1_Elapsed(sender As System.Object, e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed 
          sayi += 1 
          Dim pname As Process() = Process.GetProcessesByName("X_Server") 
   
          If pname.Length = 0 Then 
              System.Windows.Forms.MessageBox.Show("X_Server is NOT running." & vbLf & "Restarting...") 
          Else 
              System.Windows.Forms.MessageBox.Show("X_Server is running.") 
          End If 
   
      End Sub 
  End Class 
  

 
  Public Shared Function ErrorLog(ByVal Entry As String, Optional ByVal AppName As String = "Benim Logum", Optional ByVal EventType As EventLogEntryType = EventLogEntryType.Information, Optional ByVal LogName As String = "Benim_Logum") As Boolean 
          Dim objEventLog As New EventLog() 
          Try 
              If Not EventLog.SourceExists(AppName) Then 
                  EventLog.CreateEventSource(AppName, LogName) 
              End If 
              objEventLog.Source = AppName 
              objEventLog.WriteEntry(Entry, EventType) 
              Return True 
          Catch Ex As Exception 
              Return False 
          End Try 
      End Function