[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
1楼 跳转到 »
发表于 2016-9-3 21:45 | 显示全部帖子
回复 1# doswork 
  1. 既效率、又简单的就是.......

  2. for i=0 to 100

  3. '这里加入要循环的代码

  4. next i
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
2楼
发表于 2016-9-3 22:31 | 显示全部帖子
回复 1# doswork

稍微改一下就行了，自动循环播放，超过20*3秒就结束
  1. set player = createobject("wmplayer.ocx") 

  2. player.url =".\123.mp3"

  3. for i=1 to 20

  4. 	wsh.sleep 3000

  5. 	if  1 = player.playState then

  6. 		player.url =".\123.mp3"

  7. 	end if

  8. next
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

返回列表