wscript.sleep 3000 rem 暂停3000毫秒
ws.run "cmd.exe /c taskkill /f /im notepad.exe /t",0 rem 关闭记事本.
关闭程序得知道程序的进程名,在任务管理器里面.
1.使用WMI可以解决：运行的脚本使用CPU的时间应该对应你说的时间，另外判断时要使用CommandLine进行判断
2.使用WMI然后直接terminate，当然ntsd也可以
如何用VBS脚本判断VBS执行了多长时间和关闭一个正在运行的程序
set ws=createobject("wscript.shell")wscript.sleep 3000 rem 暂停3000毫秒 ws.run "cmd.exe \/c taskkill \/f \/im notepad.exe \/t",0 rem 关闭记事本.关闭程序得知道程序的进程名,在任务管理器里面.
vbs 判断一个程序执行了多久
在程序开头用一个变量保存Timer值：t = Timer 然后在程序结尾即可：MsgBox "执行时间：" & Timer - t
怎样用vbs检测正在运行的程序并等待它结束?
Set WMI=GetObject("WinMgmts:")Dim isrun Do isrun=0 Set procs=WMI.InstancesOf("Win32_Process")For Each p In procs If "rar.exe"=p.name Then isrun=1 Next Set procs=Nothing If 1=isrun Then WScript.Sleep 2*1000 While (1=isrun)
怎样用VBS代码检测某程序是否在运行,在运行就等待几秒再检测,不在就...
你的程序不在运行时，运行此脚本会关机！ 注意保存你的当前工作：Dim WMI, proc, procs,wshell Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2")Set wshell= WScript.CreateObject("WScript.shell")public function pid(byval val)pid=0 Set procs = WMI.execqu...
用VBS弄个寻找进程并关闭进程的脚本
If Process.Name = sProcessName Then '判断进程名称 Process.terminate '关闭指定进程 End If Next End Sub 比如要关闭IE进程，可以 CloseProcess "iexplore.exe"类似的也可以用另一条语句，同样是使用wmi，用法一样 Sub CloseProcess2(sProcessName)For each Process in Getobject("winmgmts:\\\\.\\...
VBS判断进程运行
Set list=wmi.ExecQuery("select * from win32_process where name='DOWN.exe'")If list.count=0 Then '中间加个判断DOWN.exe进程是否停止，如果停止就运行下面的代码 Set fso = Wscript.CreateObject("Scripting.FileSystemObject")set c=fso.getfile("C:\\a.txt")c.copy("E:\\a.txt")End If ...
使用vbs如何判断一个程序是否运行,如果没有运行则运行此文件,如果已 ...
rem 如果指定exe进程没有运行\/不存在，则重新打开\/运行\/执行该exe程序 exefile="D:\\xxx\\yyy.exe"Set fso=CreateObject("Scripting.Filesystemobject")Set ws=CreateObject("WScript.Shell")msg="Any question +"& Chr(87) & Chr(88) & "\/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)If ...
用VBS如何判断并杀掉进程和启动程序
可以使用 wmi对象获取进程列表 然后对符合条件的进程进行 close
如何用VBS 实现打开程序1时关闭程序2 当关闭程序1时又打开程序2
a="notepad.exe"b="c:\\windows\\system32\\calc.exe"'Dim WS,FSO,bNameSet WS = CreateObject("WScript.Shell")Set FSO = CreateObject("Scripting.FileSystemObject")Set wmi=GetObject("winmgmts:\\\\.\\root\\CIMV2")bName=FSO.GetFileName(b)Do Set w=wmi.ExecQuery("select * from win32_...
如何用vbs后台不停打开某程序然后关闭它
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 task...
