我看到播放器會顯示正在播放的歌名/歌手 以及剛才播放的歌名/歌手
本程式執行時會記錄執行時間, 以及當時正在播放的歌名與歌手

在C根目錄開啟一個空白文字檔例如 getweb.txt, 貼上以下程式碼存檔, 檔名改為getweb.vbs, 點兩下即可執行, 在C根目錄會產生songlist.txt




' 指定要存取的網址URL
WEBURL = "http://www.96fm.com.au/index.php/player"

' 指定歌曲資訊存檔路徑與檔名
OUTFILE = "c:\songlist.txt"

' 指定網頁關鍵字, 用以判別網頁內容是否有用
KEYWORD = "<h2>Now Playing</h2>"

Set objWinHttp = WScript.CreateObject("WinHttp.WinHttpRequest.5.1")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set FileOut = fs.OpenTextFile(OUTFILE, 8, True)

' 下載目標網頁原始碼
objWinHttp.Open "GET", WEBURL, false
objWinHttp.Send
RContent = objWinHttp.ResponseText
available = instr(1, RContent, KEYWORD, 1)
If available <> 0 Then
FileOut.WriteLine "Time: " + cStr(Time())
Info = GetSongInfo(RContent)
FileOut.WriteLine Info
FileOut.WriteLine ""
FileOut.Close

msgbox(Info)

else
msgbox ("網頁[" + WEBURL + "] 不存在關鍵字[" + KEYWORD + "]. 程式終止")
End If



' ===============================
' 傳入網頁內容, 傳回歌曲資訊
' ===============================
Function GetSongInfo(vContent)
startAddr = instr(1, vContent, KEYWORD, 1)
If startAddr > 0 then

startAddr = instr(startAddr, vContent, "<span>", 1)
endAddr = instr(startAddr, vContent, "</span>", 1)
Info1 = Mid(vContent, startAddr+6, endAddr-startAddr-6)
startAddr = instr(endAddr, vContent, "<span><em>", 1)
endAddr = instr(startAddr, vContent, "</em></span>", 1)
Info2 = Mid(vContent, startAddr+10, endAddr-startAddr-10)

GetSongInfo = Info1 + ", " + Info2
else
GetSongInfo = "沒有歌曲資訊"
End If
End Function