Question

程序运行的时候总是弹出一个窗口，要按确定或者关闭完以后才可以进主程序，想哪个vbs高手写段代码

运行vbs就可以直接进入主程序

Answer 1

Set a=WScript.CreateObject("WScript.shell")
a.run "JiaLe.exe"
Wscript.Sleep 2500
Set objWord = CreateObject("Word.Application")

Set colTasks = objWord.Tasks
if colTasks.Exists("JiaLe.exe") then ‘JiaLe.exe 名称 在任务管理器中查看
colTasks("JiaLe.exe").Close
end if
objWord.Quit

Answer 2

do　until
　　　　msgbox　＂inject　out＂
loop

Answer 3

将要改得代码放上来，我改

追问

自己写不好啊，就是写先运行那个程序，然后检测出它运行后，激活它那个窗口，然后再发送关闭命令。
Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run "JiaLe.exe"
Wscript.Sleep 2500
//检测JiaLe.exe已经运行
//激活JiaLe.exe窗口
a.SendKeys "%{F4}"

追答

在打开后应该会自动激活，关闭最好用结束进程