OptionExplicit

DimWshShell,Pro

SetWshShell=WScript.CreateObject("WScript.Shell")

Pro="D:ProgramFiles千千静听TTPlayer.exeD:千千静听默认.ttpl"

WshShell.RunChr(34)&Pro&Chr(34),0

支持路径或文件名带空格，网上给出的VBS代码貌似没有留到空格问题，特此补充。