Question

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

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

编辑：如果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

Answer 1

试试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文档）。请负责任地编码： - ）

如果EXE打开，则运行

1 个答案: