Ticket #153: Child.au3

File Child.au3, 464 bytes (added by Valik, 14 years ago)
Line 
1
2#include <Constants.au3>
3Child()
4
5Func Child()
6        If Not @Compiled Then Return MsgBox(4096 + 16, "Error", "Error, child script must be compiled.")
7        MsgBox(4096, "", "Child version: " & @AutoItVersion)
8        Local $iTimer = TimerInit()
9        Run('cmd.exe', @SystemDir, @SW_SHOW, $STDOUT_CHILD)
10
11        Do
12                ConsoleWrite('No ConsoleWrite for you!' & @CRLF)
13                Sleep(100)
14        Until TimerDiff($iTimer) > 1000
15
16        ConsoleWrite('That''s all folks!' & @CRLF)
17EndFunc ; Child()