Initial Commit

systemservice/Form1.vb

@@ -0,0 +1,32 @@
+Imports Microsoft.Win32
+
+Public Class frm_system_svc
+    Dim tracker_exepath As String
+    Private Sub frm_system_svc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.ShowInTaskbar = False
+        Me.Visible = False
+
+        tracker_exepath = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Lattice\Nextest Utilization Tracker", "Path", "")
+    End Sub
+
+    Private Sub tmr_listener_Tick(sender As Object, e As EventArgs) Handles tmr_listener.Tick
+        If IsRunning("nxtuitrack") = False Then
+            If FileIO.FileSystem.FileExists(tracker_exepath & "\nxtuitrack.exe") = True Then
+                Shell(tracker_exepath & "\nxtuitrack.exe", AppWinStyle.NormalFocus, False)
+            End If
+        End If
+    End Sub
+
+    Public Function IsRunning(ProcessName As String) As Boolean
+
+        Dim p() As Process
+        p = Process.GetProcessesByName(ProcessName)
+        If p.Count > 0 Then
+            IsRunning = True
+        Else
+            IsRunning = False
+        End If
+
+
+    End Function
+End Class