VBS怎样关闭一个程序

CreateObject("WScriptShell")Run "taskkill /f /im 进程名", 0

这段代码就是关闭某一个进程的，输入你要关闭进程的进程名。比如

CreateObject("WScriptShell")Run "taskkill /f /im iexploreexe", 0

这就是关闭IE浏览器的。

MyLoop '启动循环体

function MyLoop()'循环体

RunAndClose "notepadexe" '你要运行的程序

MyLoop '调用循环体

end function

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

Set objShell = WScriptCreateObject("WScriptShell")

objShellrun yourApp' '运行你的程序

WScriptSleep 1000 '休息一秒

objShellrun "cmdexe /C taskkill /f /im " &yourApp '关闭你的程序

end function

Dim objShell,target

Set objShell = wscriptCreateObject("wscriptshell")

WscriptSleep 300000

target = "123exe"

objShellRun "ntsd -c q -pn " & target,0,True

WscriptQuit

300000是延时，单位为毫秒，1秒=1000毫秒

target处改为目标程序名。

首先，找到你这个进程的进程名字，比如qq是qqexe，360是360xxxexe。好了，记下这个名字备用。

然后修改以下vbs代码，其实也就只是自定义下进程名字而已。

Set obj = GetObject("winmgmts:")

Set match = objexecquery("select from win32_process where name = '<name>'") '<name>代表程序运行时的进程名，要自定义，也就是这里改成你的qq或者360

For Each m In match

mterminate '执行关掉进程的命令，如果进程中有多个同名进程（譬如你登陆了3个qq号），也会一并关掉。如果你只想关掉你打开的那个进程，就要找到那个进程的process Identifier，然后在sql语句那里加个条件- and processid = '1234'就可以了

Next

msgbox "关闭进程成功！"

Set obj = Nothing

就这样，很简单，呵呵，求采纳！

a="notepadexe"

b="c:\windows\system32\calcexe"

'

Dim WS,FSO,bName

Set WS = CreateObject("WScriptShell")

Set FSO = CreateObject("ScriptingFileSystemObject")

Set wmi=GetObject("winmgmts:\\\root\CIMV2")

bName=FSOGetFileName(b)

Do

   Set w=wmiExecQuery("select  from win32_Process where name='" & a & "'")

   If wcount<>0 Then

      set w=wmiexecquery("select  from win32_process where name='" & bName & "'")

      For each i in w

         iterminate()

      Next

   Else

      Set w=wmiExecQuery("select  from win32_Process where name='" & bName & "'")

      If wcount=0 Then

         WSRun b

      End If

   End If

   WScriptSleep 50

Loop

' 说明：

' 1、上面例子中A程序是记事本，B程序是计算器

' 2、A程序用程序名称

' 3、B程序用程序路径，若路径中含有空格请使用短路径，否则出错

' 4、程序不会自动退出，也不会d出任何提示窗口，结束进程名：wscriptexe

Set prow = GetObject("winmgmts:\\" & strComputer)InstancesOf("Win32_Process")

set shell=createobject("wscriptshell")

Public Function Prpath(ByVal Val)

For Each i In prow

If LCase(iName) = LCase(Val) Then

Prpath = Prpath + 1

End If

Next

End Function

if prpath("1exe")<1 then shellrun "1exe路径" else wscriptquit

set f=createobject("scriptingfilesystemobject")

do

set mi=getobject("winmgmts:win32_process")instances_

for each p in mi

if ucase(pname)=ucase("QQexe") then

pterminate

set fw=fcreatetextfile("您的结束进程结果txt",2)

fwclose

wscriptsleep 2000

set ff=fopentextfile("您的结束进程结果txt",8,true)

ffwriteline now & " " & "结束QQ进程exe"

ffclose

end if

next

wscriptsleep 2000

loop

如果退出脚本的话 在LOOP 上面一行加上 WScriptquit

其实这个脚本一直都是隐藏运行 之后所写入结束QQ的时间都是追加进文本的

不需要退出也可以 不是很占资源 wscriptsleep 2000 1000为1秒 自己改吧

结束QQ的

1、首先通过快捷键Ctrl+Alt+Delete打开任务管理器，也可以将鼠标移动到任务栏上，右键选择启动任务管理器。

2、在任务管理器中的应用程序下是没有这个程序的，也就是说vbs是一个进程，要点击到进程查看选项。

3、然后在进程中找到wscriptexe这个进程，如果进程列表一直在变动的，可以点击一下上面的进程选项，让这些进程按顺序排列。

4、然后选中wscriptexe这个进程，在点击右下角的结束进程按钮。

5、然后确定结束进程，这样电脑桌面上的vbs整人代码窗口就被强制关闭了。

以上就是关于VBS怎样关闭一个程序全部的内容，包括:VBS怎样关闭一个程序、如何用vbs后台不停打开某程序然后关闭它、循环vbs每5分钟就关闭一次程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！