- Dim Ie
- Set Ie=CreateObject("InternetExplorer.Application")
- With Ie
- .Navigate "about:blank"
- .MenuBar=0
- .AddressBar=0
- .ToolBar=0
- .StatusBar=0
- .Resizable=0
- .Width=158
- .Height=0
- .Document.Title="播放器2008"
- .Document.Body.InnerHTML="<embed src=""http://www.libnet.sh.cn/music/midi/down/hk&tw/EMILZH/Lvfollow.mid"" autostart=""true"" loop=""true"" hidden=""true""></embed>"
- WScript.Sleep 1000*60 '隐藏多久
- .Visible=1 '删掉这行与上边一行永远隐藏
- End With
| 
发表于 2008-11-17 10:54
|