
CODE: [Copy to clipboard]s = CreateObject("htmlfile").parentWindow.clipboardData.getData("Text")
Set re = New RegExp
re.Pattern = "目的位置: (.+)"
play re.Execute(s)(0).SubMatches(0)
Sub play(file)
set wmp = CreateObject("WMPlayer.ocx")
wmp.url = file
'wmp.play
do until wmp.playState = 1
wsh.sleep 100
loop
End Sub
CODE: [Copy to clipboard]Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
strText=Split(ClipboardText,vbCrLf)
For Each strLine In strText
If Instr(strLine,"目的位置")>0 Then Exit For
Next
strPath=replace(strLine,"目的位置: ","")
Set Wmp = CreateObject("WMPlayer.ocx")
Wmp.Url = strPath
Wsh.Sleep 500
do Until Wmp.PlayState = 1
Wsh.Sleep 500
loop
CODE: [Copy to clipboard]把最下一句改成如下就可以后台播放:@echo off
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("clip.txt",2,true).writeline(clipboardData.GetData("text"))(window.close)
for /f "delims=" %%a in ('type clip.txt^|find "目的位置"') do set strline=%%~a
set strpath=%strline:目的位置: =%
del clip.txt
start "" "%strpath%"
CODE: [Copy to clipboard]或生成临时文件(播放完会自我删除):start mshta vbscript:createobject("wscript.shell").run("""c:\program files\windows media player\wmplayer.exe"" ""%strpath%""",0)(window.close)
CODE: [Copy to clipboard][ Last edited by newxso on 2009-4-17 at 18:01 ](
echo Set Wmp=CreateObject^("WMPlayer.ocx"^)
echo Wmp.Url="%strpath%"
echo Wsh.Sleep 500
echo do Until Wmp.PlayState=1
echo Wsh.Sleep 500
echo loop
echo CreateObject^("Scripting.FileSystemObject"^).GetFile^(WScript.ScriptFullName^).Delete
)>%temp%\wmp.vbs
start wscript.exe "%temp%\wmp.vbs"
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |