iT邦幫忙

DAY 6
4

WSH研習記錄系列 第 8

WSH研習記錄--案例:OpenIE小嘗試之延伸篇

  • 分享至 

  • xImage
  •  

昨天一時遇到問題,製作了一個OpenIE.vbs的小程式
利用它可以協助開啟IE,並可以指定開啟的畫面大小
今天也同樣來談IE開啟的問題..
還記得上一篇以以下這方式開啟IE..

With CreateObject("InternetExplorer.Application")
	.visible = True
	.Navigate "http://www.google.com.tw/search?q=WSH研習記錄"
	.width = 800
	.height = 600
End With

以這種方式開啟IE,除了可以指定畫面大小之外還可以做其它的嗎??
答案是可以的..

例如:開啟時,不顯示功能表列
加上一行程式,即可。如下:

With CreateObject("InternetExplorer.Application")
	.visible = True
	.Navigate "http://www.google.com.tw/search?q=WSH研習記錄"
        .MenuBar = False
	.width = 800
	.height = 600
End With

把「MenuBar」屬性加入並指定為「False」即可..

例如:不顯示工具列
把「ToolBar」屬性加入並指定為「0」,如下所示:

With CreateObject("InternetExplorer.Application")
	.visible = True
	.Navigate "http://www.google.com.tw/search?q=WSH研習記錄"
	.width = 800
	.height = 600
        .ToolBar = 0
End With

例如:不顯示狀態列
把「StatusBar」屬性加入並指定為「False」即可

With CreateObject("InternetExplorer.Application")
	.visible = True
	.Navigate "http://www.google.com.tw/search?q=WSH研習記錄"
	.width = 800
	.height = 600
        .StatusBar = False
End With

若是這三種合併起來那就會得的以結果:
在Win XP上開啟IE7的結果

在Win7上開啟IE8的結果

註:因為測試後發現兩者有點小不一樣,所以兩種都列出供參考..


上一篇
WSH研習記錄--案例:OpenIE小嘗試
下一篇
WSH研習記錄-- WSHNetwork物件
系列文
WSH研習記錄42
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 則留言

0
cindy2009
iT邦新手 5 級 ‧ 2009-10-14 17:44:28

您好
請問我存成vbs檔後在ie6執行正常但在ie8會出現8007046A錯誤
無法建立名為InternetExplorer.Application的物件
請問IE8是否要做何設定才能正常使用?謝謝!!

魯大 iT邦高手 1 級 ‧ 2009-10-15 13:12:48 檢舉

不用耶..
我給的圖第二張就是在win7的作業系統下使用IE8的情況下
以上面所分享的範例執行的結果
是可以直接開啟的..
可以說明一下你目前所使用的環境嗎??

cindy2009 iT邦新手 5 級 ‧ 2009-10-15 13:56:51 檢舉

windows server 2003 standard edition SP2
IE版本 8.0.6001.18702 加密強度 :128位元
我用排程去跑VBS檔,IE6的主機都正常,這台主機是IE8就出現問題了.
麻煩您了,謝謝!

我要留言

立即登入留言