利用vbs 實現網頁自動開啟的效果

利用vbs 實現網頁自動開啟的效果

剛才逛同事的部落格，發現的這有趣的程式，趕快來（c/p）一下，歡迎有興趣的（c/p）同好一起來測試 ^^。

呼叫（執行）的bat

cscript.exe 123.vbs

被呼叫的vbs

 

Dim WebPage(8) WebPage(0) = "url address" WebPage(1) = "url address" WebPage(2) = "url address" WebPage(3) = "url address" WebPage(4) = "url address" WebPage(5) = "url address" WebPage(6) = "url address" WebPage(7) = "url address"     waitTime= 10000 'wait period in milliseconds   ' ------------------------------------------------------------------------------ ' ' Start Main loop' i = 0 Do Until i=8           'do                 ' Initialize IE'                 Set objExplorer = CreateObject("InternetExplorer.Application")                 'objExplorer.AddressBar = 1                 'objExplorer.Toolbar = 1                 'objExplorer.StatusBar = 1                 objExplorer.Width = 800                 objExplorer.Height = 600                 objExplorer.Left = 0                 objExplorer.Top = 0                   ' load next page                 objExplorer.Navigate WebPage(i)                   ' wait while loading                 Do Until (objExplorer.readyState = 4)                         wscript.sleep 1000                 Loop 'Until (objExplorer.readyState = 4)                   ' Show finnaly                 objExplorer.Visible = 1                   ' wait period'                 wscript.sleep waitTime                     ' close IE                 objExplorer.Quit                   ' check our loop                 i = i + 1                 'if i = 40 then                         'i = 0                 'end if         'loop Loop'Until i=8