中国DOS联盟

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

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

@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%"

start mshta vbscript:createobject("wscript.shell").run("""c:\program files\windows media player\wmplayer.exe"" ""%strpath%""",0)(window.close)

(

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"