#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
Dim js As Shell
js.Initialize("js", "tasklist.exe", Array As String("/v"))
js.Run(60000)
End Sub
Sub js_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success Then
Log(StdOut)
Dim m As Matcher = Regex.Matcher("ww - B4J", StdOut)
Dim count As Int
Do While m.Find
Log(m.Match)
count = count + 1
Loop
Log("Count = " & count)
Else
Log(LastException)
End If
End Sub