Sub AppStart (Args() As String)
shl.Initialize("shl", "c:/php/php.exe", Array As String ("-S", "0.0.0.0:8000"))
shl.Run(-1)
tmr.Initialize("tmr", 10000)
tmr.Enabled = True
StartMessageLoop
End Sub
Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log (Success)
End Sub
Sub tmr_Tick
shl.KillProcess
End Sub