0

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

我在堆栈溢出时找到了这个脚本，当然会用它来改变参数，但我想会有一种更简单的方法

编辑：如果英雄联盟.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
4

1 回答 1

0

试试Exec： http: //msdn.microsoft.com/en-us/library/ateytk4a (v=vs.84).aspx

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

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

于 2013-06-21T15:09:53.287 回答