' 在 VBS 所在目录执行 scrcpy.exe（先 cd 再带完整路径执行），保证双击即可运行且能加载同目录 dll
Dim fso, scriptDir, exePath, strCommand, Arg
Set fso = CreateObject("Scripting.FileSystemObject")
scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
exePath = scriptDir & "\scrcpy.exe"
strCommand = "cmd /c cd /d """ & scriptDir & """ && """ & exePath & """"

For Each Arg In WScript.Arguments
    strCommand = strCommand & " """ & Replace(Arg, """", """") & """"
Next

CreateObject("Wscript.Shell").Run strCommand, 0, False