Ticket #153: Child.au3
| File Child.au3, 464 bytes (added by Valik, 17 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() |
