返回列表 发帖
回复 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

回复 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

返回列表