0

そのスクリプトが必要です。exeが開くと、URLが開きます。URLのショートカットも作りました。

スタックオーバーフローでこのスクリプトを見つけ、もちろん引数を変更して使用するつもりでしたが、もっと簡単な方法があると思いました

編集: 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
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 に答える