[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
Tianorder

Rank: 1

帖子
42 
积分
89 
技术
1  
捐助
0  
注册时间
2015-6-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-11-27 11:15 | 只看该作者

[问题求助] 【已解决】VBS没有办法关闭程序但不关闭进程？

本帖最后由 Tianorder 于 2015-12-2 16:00 编辑

比方说有多个记事本，但只关闭指定的一个

莫非，只能先切换焦点，然后Alt+F4？
WshShell.AppActivate "6.10.txt - 记事本"
wshShell.SendKeys "%{F4}"
但这样很不靠谱吧....
收藏 分享
您好

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-11-27 11:29 | 只看该作者
根据标题、pid……
1

评分人数

    • Tianorder: 怎么根据标题、pid呢技术 + 1

TOP

Tianorder

Rank: 1

帖子
42 
积分
89 
技术
1  
捐助
0  
注册时间
2015-6-9 
3楼
发表于 2015-11-27 11:32 | 只看该作者
本帖最后由 Tianorder 于 2015-11-27 11:34 编辑

回复 2# pcl_test


    咱关闭程序的命令是？

你的意思是
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='notepad.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

这些语句中的objWMIService.ExecQuery改成其他的？
您好

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
4楼
发表于 2015-11-27 13:35 | 只看该作者 
  1. '0.vbs

  2. 

  3. [查找标题] = "6.10"

  4. 

  5. CreateObject("WScript.Shell").Run "TASKKILL /F /FI ""WINDOWTITLE eq " & _

  6. 	 [查找标题] & "*""",0,False
复制代码
1

评分人数

    • Tianorder: 调用批处理时，总觉得很不甘心技术 + 1
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

Tianorder

Rank: 1

帖子
42 
积分
89 
技术
1  
捐助
0  
注册时间
2015-6-9 
5楼
发表于 2015-11-27 17:33 | 只看该作者
yu2n 发表于 2015-11-27 13:35



    嗯哪....原来批处理还是很有用的....
您好

TOP

返回列表