脚本

先结束进程再运行程序：解决QQ炫舞/CF穿越火线提示双开的问题

作者:LZ-MyST 日期:2010-03-10

字体大小: 小中大

转载请注明本文出自：本站原创
站点链接：http://www.clxp.net.cn/
偶这里，有时候会遇到某些原因，QQX5/CF突然就消失了（这样的情况相信大家肯定都遇到过），这时候玩家会再启动QQX5/CF，实际中QQX5/CF的进程还在，这时候QQX5/CF的登录程序就会提示不能双开，这段脚本的目的就是不管进程里有无QQX5/CF的进程都会先检测一次，如有则先结束再启动登录程序，如无就直接启动登录程序，避免出现提示，玩家无法登录游戏而呼叫网管-_-!

复制内容到剪贴板

程序代码

  strKillProList = "ui_launch_dx.exe;ui_launch_dx_bak.exe;QQ炫舞.exe"
  strRunPro = "bin\QQ炫舞.exe" '因为QQ炫舞的启动程序和脚本不在同一个目录，所以要设置为相对路径，应该明白吧？

  arrPro = Split(strKillProList,";")
  Set objWMIService = Getobject("winmgmts:\\.\root\cimv2")
  for a = 0 to UBound(arrPro)
    Killprcgram(arrPro(a))
  next
  WScript.Sleep 500
  Runprcgram(strRunPro)
  Set objWMIService = Nothing

Function Killprcgram(Pro)
  set objs =objwmiservice.execQuery("select * from Win32_Process where name='" & Pro & "'")
  For Each obj in objs
    obj.Terminate
  Next
  Set objs = Nothing
End Function

Function Runprcgram(Pro)
  Set oShell = WScript.CreateObject ("WSCript.shell")
  oShell.run chr(34) & Pro & chr(34)
  Set oShell = Nothing
End Function

如果是CF则使用下面两行，一看就明白的：

复制内容到剪贴板

程序代码

strKillProList = "crossfire.exe;CFSelWorld.exe"
strRunPro = "QQLogin.exe"

把脚本放到对应游戏的安装目录下即可，如图：