(คือสมมุติ เราเปิด Nodepade อยู่ และเปิดโปรแกรมตรวจจับนี้มา โปรแกรมจะขึ้นว่า Notepad is running ตามนี้
Code (VB.NET)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If (Process.GetProcessesByName("phoenix").Length) Or (Process.GetProcessesByName("ragexe").Length) > 0 Then
Label1.ForeColor = Color.Green
Label1.Text = "Status : Notepad is running..."
Else
Label1.Text = "Status : Notepad is not running"
End If
End Sub
Dim dt As DispatcherTimer = New DispatcherTimer
' Constructor
Public Sub New()
InitializeComponent()
dt.Interval = New TimeSpan(0, 0, 0, 0, 1000)
AddHandler dt.Tick, AddressOf Me.dt_Tick
dt.Start()
End Sub
Private Sub dt_Tick(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Load balance : Server 02
