- 帖子
- 60
- 积分
- 116
- 技术
- 15
- 捐助
- 0
- 注册时间
- 2012-5-16
|
3楼
发表于 2012-7-14 16:52
| 只看该作者
Dim oWmp
Set oWmp=WScript.CreateObject("wmPlayer.ocx")
oWmp.URL="F:\音乐\想象之中.mp3"
oWmp.settings.playCount=3 '播放次数可以不写这句,默认播放1次
While oWmp.playState<>1
WScript.Sleep 1000
Wend
MsgBox "播放完毕"
我只会VBS的、、你试试 |
-
1
评分人数
-
|