[mar1boro]

Anton04, неее, ну можно же может как-то через api...

я могу сделать коряво через открытие окон:

Код:

set WshShell = WScript.CreateObject("WScript.Shell")  
                WshShell.SendKeys("^{ESC}")
                WScript.Sleep 70
                WshShell.SendKeys("{TAB}")
                WScript.Sleep 70
                WshShell.SendKeys("%~")
                WScript.Sleep 70
                WshShell.SendKeys("{TAB}{TAB}{TAB}{TAB}")
                WshShell.SendKeys(" ")
                WshShell.SendKeys("{TAB}{TAB}{TAB}{TAB}")
                WshShell.SendKeys("~")

но мне так не нравится тем что мелькают окна и пользователь может сбить действия скрипта мышью или клавиатурой.