利用windwos的排程+VBS來開啟網頁

Sub openrul(str)
 set IE = WScript.CreateObject("InternetExplorer.Application")
 IE.Navigate str
 IE.ToolBar = False
 IE.StatusBar = False
 IE.Resizable = False
 IE.Width = 300
 IE.Height = 300
 Do
 Loop While IE.Busy
 IE.Visible = True
End sub
CALL openrul("http://www.yahoo.com.tw")

'以上code用記事本存成.vbs副檔名，搭配排程就可用了