Ticket #153: Child.au3
File Child.au3, 464 bytes (added by Valik, 16 years ago) |
---|
Line | |
---|---|
1 | |
2 | #include <Constants.au3> |
3 | Child() |
4 | |
5 | Func 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) |
17 | EndFunc ; Child() |