Option Explicit
Function action
Dim VideoApp,FilePath
Set VideoApp=CreateObject("Wscript.shell")
FilePath="C:\Project\t.wma"
VideoApp.Run """C:\Program Files\Windows Media Player\wmplayer.exe"""+FilePath,1
End Function
这是打开 播放器 并播放 文件，请问如何 关闭这个播放器呢，用VBS脚本和外部变量触发
最佳答案
最简单的就是自己手动 关闭WINDOWS播放器了，如果 用脚本那么 你需要有扎实的VBS基础和WINDOWS编程基础了。
你用这个试试
Dim VideoApp
Set VideoApp=CreateObject("Wscript.shell")
VideoApp. run "cmd.exe /c taskkill /f /im wmplayer.exe /t",0
这样通过 间接调用CMD来执行一个taskkill 的命令。
你可以了解下Wscript.shell的用法吧，百度下，包你有满意的结果。
提问者对于答案的评价：
多谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc200425.html
微信扫一扫 
支付宝扫一扫 