Pid=Shell （"cmd " & App.Path & "\123\sendsms.bat"）改为这样
不是不执行，而是很快就执行完了。不信你在批处理中每行命令后面都 加一句pause试试效果。
pid = Shell("cmd /c " & App.Path & "\123\sendsms.bat", vbNormalFocus)
在 sendsms.bat 文件最后一行写上 pause
