【已解决】VBS没有办法关闭程序但不关闭进程？

Tianorder

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

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

pcl_test

根据标题、pid……

Tianorder

回复 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改成其他的？

yu2n

1. 
   
2. '0.vbs
   
3. 
   
4. [查找标题] = "6.10"
   
5. 
   
6. CreateObject("WScript.Shell").Run "TASKKILL /F /FI ""WINDOWTITLE eq " & _
   
7.          [查找标题] & "*""",0,False
   

复制代码

Tianorder

yu2n 发表于 2015-11-27 13:35

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