vbs怎么关闭窗口？

‘下面是启动后，关闭计算器的VBS代码

set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "calc" 

WScript.Sleep 1000

WshShell.AppActivate "Calculator"

WScript.Sleep 100

WshShell.SendKeys "%{F4}"

WshShell.AppActivate "指定窗口的标题栏上的文字"

WScript.Sleep 1000

WshShell.SendKeys "%{F4}"

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。

其语言类似Visual Basic（VB）

程序的编辑

我知道菜鸟最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad)，我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专滑梁业的文本编辑器, 因为这些工具可以提供 "语法高亮"等功能, 更加方便开发, OK, 我们先来写一个VBScript程序热热身.

1

2

3

4

'程序名称:输入并回显你的神或名字'程序使用InputBox和Msgbox函数'（上面及本行可以不必写入源代码中，为主食，下面才是运行的代码）Msgbox(Inputbox("请输入你的名字:"))

把上面的程序清单输入到记事本里面, 然后保存为以.vbs为扩游让伍展名的文件（然后双击, 观察运行结果.

为了上面的东西更精简,更明了,我们可以精简一下它的内容:

1 name=Inputbox("请输入你的姓名:")2 Msgbox(name)

语法解释：

第一行，给第一行的inputbox（输入框）命名：name

第二行，d出对话框，对话框的内容就是第一行的inputbox输入的内容。

要点:

1) 注释(以REM或'开头)行在程序中不起作用, 但能让别人更容易读懂你的程序.

2)变量好像一个盒子, 或一个代号, 可以代表你想代表的东西. 变量赋值使用"="

3) 以""包裹起来的字符称之为"字符串"

4) 函数像一个"黑箱", 有参数和返回值, 用"="左边的变量可以接住返回值

5) Inputbox函数d出一个输入对话框,Msgbox则用于输出

MyLoop '启动循环体

function MyLoop()'循环体

RunAndClose "notepad.exe" '你要运行的程序

MyLoop '调用循环体

end function

function RunAndClose(yourApp) '打开关闭程序方法丛团

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.run yourApp' '运行你的程序

WScript.Sleep 1000'休息一李敏秒

objShell.run "cmd.exe /C taskkill /f /im " &yourApp '关闭你的程哪郑枝序

end function

---