make Black window as background

[kater]

Hi

I want to make Black window as background for hiding my script under this background until finish the script

For example

I want to hiding the below sicrpt under Black window as background until finish it

=======================

Run("cmd.exe")

Sleep(1000)

Send("ipconfig /all")

Send("{ENTER}")

Send("Exit")

Sleep(1000)

Send("{ENTER}")

======================

How to do it ?

[weaponx]

You mean you want to black out the entire screen while it's running?

Why not just run your program hidden with @SW_HIDE?

[Zedna]

#NoTrayIcon 
#include <GUIConstants.au3>

$gui = GUICreate("Black", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)
WinSetOnTop($gui,'',1)

While 1
    $msg = GuiGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Sleep(100)
WEnd

Edited August 30, 2007 by Zedna

[kater]

You mean you want to black out the entire screen while it's running?

Why not just run your program hidden with @SW_HIDE?

Yes , This is what I mean

but there is some problems facing me

when me apply the black window I think the script will not complete because the black window will hiding the main window and the existing script will see only the black window I want it to see the window that located under the black screen

Please advice me in this issue

Edited August 30, 2007 by kater

[The Kandie Man]

This is a much more effective way to do it rather than sending keystrokes directly to a console window:

Dim $s_oFileLocation = @HomeDrive & '\IPConfig.txt'

Runwait(@ComSpec & " /c " & 'ipconfig /all > "' &  $s_oFileLocation & '"', "", @SW_HIDE)

ShellExecute($s_oFileLocation)

I even had it output the console information to a text file. Simply change the value of $s_oFileLocation to where you want the file saved.

- The Kandie Man ;-)