Ticket #1588: debugtest.au3
| File debugtest.au3, 430 bytes (added by jr@…, 15 years ago) |
|---|
| Line | |
|---|---|
| 1 | |
| 2 | #include <debug.au3> |
| 3 | |
| 4 | ; Activate Debug |
| 5 | |
| 6 | _DebugSetup() |
| 7 | |
| 8 | ; Write a signal file into c:\temp |
| 9 | |
| 10 | $sigfile = "c:\temp\signal.txt" |
| 11 | |
| 12 | If FileExists ($sigfile) Then |
| 13 | FileDelete($sigfile) |
| 14 | _DebugOut(" Delete signal file") |
| 15 | Exit(0) |
| 16 | Else |
| 17 | Run(@ComSpec & " /c echo. >" & $sigfile, EnvGet("TEMP"), @SW_HIDE) |
| 18 | ShellExecute(@ScriptFullPath, "", EnvGet("TEMP"), "open", @SW_HIDE) |
| 19 | _DebugOut(" Create signal file") |
| 20 | Exit(0) |
| 21 | EndIf |
