用vbs實(shí)現(xiàn)定時(shí)運(yùn)行web文件的方法

'CODE BY 小荷　aston314@sohu.com 
'Create an instance of IE 
Dim IE 
Set IE = CreateObject("InternetExplorer.Application") 

'運(yùn)行你的 URL 
ie.navigate("http://www.knowsky.com/") 
ie.visible=1 

'Clean up... 
Set IE = Nothing  

var html = ""; 
    html += "html>head>title>運(yùn)行窗口/title>/head>body>"; 
    html += "font face=verdana>/font>"; 
    html += "/body>/html>"; 


// Create Internet Explorer Object 
ie = new ActiveXObject("InternetExplorer.Application"); 

// Define how the window should look 
ie.left       = 50; 
ie.top        = 50; 
ie.height     = 510; 
ie.width      = 470; 
ie.menubar    = 0; 
ie.toolbar    = 0; 

// Set the browser to a blank page 
ie.navigate("http://www.knowsky.com/"); 

// Show the browser 
ie.visible=1; 

// Open a stream and write data. 
//ie.document.open; 
//ie.document.write( html ); 
//ie.document.close;