If statement 如果EXE打开，则运行

我需要一个脚本。如果exe打开，则URL将打开。我为URL做了一个快捷方式

我在stack overflow上找到了这个脚本，并打算使用它来更改参数，当然，我认为有一种更简单的方法

编辑：如果League of Legends.exe打开[这是客户端本身]，则运行C:..\KSD.url

Option Explicit

Private Const Folder As String = "c:\windows\system32\foldername"
Private Const FileToRun As String = "\\servername\folder\software.exe"

Sub Run(ByVal sFile)
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, False
    Set shell = Nothing
End Sub

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.FolderExists(Folder) Then
   Run FileToRun
End If

尝试执行

Exec

：

---

如果文件未打开，则可能需要进行错误处理（请参阅上面的MSDN文档）。请负责地编写代码：-）

这不可能是Java。。。。是吗-O@syb0rg不能是C++，VB，@ BejAtMaunGeNangBain，原来是标签，我只是知道java不是C++，而是标记。我不知道实际问题在这里。您发布了一个非常模糊、不清楚的描述，描述了您想要的内容，但没有多大意义，还有一块VBScript代码，似乎与模糊的描述没有任何关系。您需要修改您的问题，以便更清楚地解释您试图解决的问题，以及VBScript代码与该问题的关系。添加与问题无关的随机标记也无济于事；你的问题是关于VBScript的，与java或C++无关。如果您需要帮助，请明确具体。您所说的“If League of Legends.exe Open”是什么意思？是否希望脚本在后台运行并检测此客户端何时启动？

objExec = shell.Exec Chr(34) & sFile & Chr(34)
if objExec.Status = 0 then ' your program is running
  ' open your url
end if