使用vbscript杀死特定进程

时间:2014-02-16 14:17:00

标签: vbscript quit

我有一个代码,用于在Google Chrome中每15分钟(设置为5秒进行测试)登录网站。它需要登录才能使用互联网。在目前的形式中,每十五分钟它打开另一个Chrome浏览器并登录并保持浏览器活着(需要它)十五分钟后它再创建一个Chrome浏览器并继续。我想要做的是,它第二次打开我希望第一个Chrome浏览器关闭。即任何给定的时间除了我在那里使用的那个时候应该只有一个窗口。

当前代码是

foundProc = true
do  while foundProc = true
wscript.sleep (5000)
foundProc = False
procName = "chrome.exe"
procNameFriend = "Chrome"
for each Process in objWMIService.InstancesOf ("Win32_Process")
If StrComp(Process.Name,procName,vbTextCompare) = 0 then
foundProc = true        
End If
Next
If foundProc = True Then       'if chrome is open logging in to the site
Shell.Run("chrome.exe")
wscript.sleep (500)
shell.SendKeys "<login site>"      
shell.SendKeys "blah blah blah"    'now logged in
wscript.sleep (2500)
'wscript.sleep (1000)
shell.SendKeys "%{TAB}"  ' alt tab to return to current window
End If  
loop

1 个答案:

答案 0 :(得分:0)

我不确定那里有问题,但我假设您在打开第二个Chrome后关闭第一个Chrome实例时遇到问题?如果是这样,您可以使用Win32_Process对象来终止它。尝试在End If

之前将其添加到所显示脚本的末尾

Process.Terminate