InternetExplorer.Application物件的Documen屬性及簡單應用

阿新 • • 發佈：2019-01-20

InternetExplorer.Application物件的Documen屬性（轉帖）

document 文擋物件 - JavaScript指令碼語言描述

---------------------------------------------------------------------

注:頁面上元素name屬性和JavaScript引用的名稱必須一致包括大小寫

否則會提示你一個錯誤資訊 "引用的元素為空或者不是物件"

---------------------------------------------------------------------

物件屬性

document.title //設定文件標題等價於HTML的<title>標籤

document.bgColor //設定頁面背景色

document.fgColor //設定前景色(文字顏色)

document.linkColor //未點選過的連結顏色

document.alinkColor //啟用連結(焦點在此連結上)的顏色

document.vlinkColor //已點選過的連結顏色

document.URL //設定URL屬性從而在同一視窗開啟另一網頁

document.fileCreatedDate //檔案建立日期，只讀屬性

document.fileModifiedDate //檔案修改日期，只讀屬性

document.fileSize //檔案大小，只讀屬性

document.cookie //設定和讀出cookie

document.charset //設定字符集簡體中文:gb2312

---------------------------------------------------------------------

物件方法

document.write() //動態向頁面寫入內容

document.createElement(Tag) //建立一個html標籤物件

document.getElementById(ID) //獲得指定ID值的物件

document.getElementsByName(Name) //獲得指定Name值的物件

---------------------------------------------------------------------

images集合(頁面中的圖象)

a)通過集合引用

document.images //對應頁面上的<img>標籤

document.images.length //對應頁面上<img>標籤的個數

document.images[0] //第1個<img>標籤

document.images[i] //第i-1個<img>標籤

b)通過nane屬性直接引用

<img name="oImage">

document.images.oImage //document.images.name屬性

c)引用圖片的src屬性

document.images.oImage.src //document.images.name屬性.src

d)建立一個圖象

var oImage

oImage = new Image()

document.images.oImage.src="http://www.tongming.org/1.jpg"

//同時在頁面上建立一個<img>標籤與之對應就可以顯示

<html>

<img name=oImage>

<script language="javascript">

var oImage

oImage = new Image()

document.images.oImage.src="http://www.tongming.org/1.jpg"

</script>

</html>

----------------------------------------------------------------------

forms集合(頁面中的表單)

a)通過集合引用

document.forms //對應頁面上的<form>標籤

document.forms.length //對應頁面上<form>標籤的個數

document.forms[0] //第1個<form>標籤

document.forms[i] //第i-1個<form>標籤

document.forms[i].length //第i-1個<form>中的控制元件數

document.forms[i].elements[j] //第i-1個<form>中第j-1個控制元件

b)通過標籤name屬性直接引用

<form name="Myform"><input name="myctrl"></form>

document.Myform.myctrl //document.表單名.控制元件名

-----------------------------------------------------------------------

<html>



<form name="Myform">

<input type="text" name="oText">

<input type="password" name="oPswd">

<form>

<script language="javascript">

//獲取文字密碼框的值

document.write(document.Myform.oText.value)

document.write(document.Myform.oPswd.value)

</script>

</html>

-----------------------------------------------------------------------

<html>



<form name="Myform">

<select name="oSelect">

<option value="1">1</option>

<option value="2">2</option>

<option value="3">3</option>

</select>

</form>

<script language="javascript">

//遍歷select控制元件的option項

var length

length=document.Myform.oSelect.length

for(i=0;i<length;i++)

document.write(document.Myform.oSelect[i].value)

</script>

<script language="javascript">

//遍歷option項並且判斷某個option是否被選中

for(i=0;i<document.Myform.oSelect.length;i++){

if(document.Myform.oSelect[i].selected!=true)

document.write(document.Myform.oSelect[i].value)

else

document.write("<font color=red>"+document.Myform.oSelect[i].value+"</font>")

}

</script>

<script language="javascript">

//根據SelectedIndex打印出選中的option

//(0到document.Myform.oSelect.length-1)

i=document.Myform.oSelect.selectedIndex

document.write(document.Myform.oSelect[i].value)

</script>

<script language="javascript">

//動態增加select控制元件的option項

var oOption = document.createElement("OPTION");

oOption.text="4";

oOption.value="4";

document.Myform.oSelect.add(oOption);

</script>

<html>

例:

function GetUrl(sURL)
With CreateObject("InternetExplorer.Application")
.Navigate sURL
Do While (.Busy Or .ReadyState <> 4)
Wscript.Sleep 100
Loop
For Each sLink In .Document.Links
output=output&"|"&sLink
Next
End With
GetUrl=output
End function

debug.writeline GetUrl(“http://www.baidu.com”)

InternetExplorer.Application物件的一些屬性

1、屬性
Active
屬性Active指明瞭應用程式是否處於活動狀態且擁有焦點。

DialogHandle
屬性DialogHandle提供使Delphi應用程式使用非Delphi對話方塊的一種機制。

ExeName
屬性ExeName包含了可執行的應用程式檔名極其路徑資訊。
Handle
屬性Handle提供了對應用程式主視窗控制代碼的訪問。

HelpFile
屬性HelpFile指明瞭應用程式用於顯示幫助內容的檔名。

Hint
屬性Hint指明瞭出現在幫助提示框(Help Hint box)中的文字字串。

HintHidePause
屬性HintHidePause 指定了滑鼠尚未從控制元件或選單項上移開、在隱藏幫助提示之前的時間間隔。

MainForm
屬性MainForm唯一標識了應用程式的主窗體。

ShowMainForm
屬性ShowMainForm確定了是否在應用程式啟動時顯示主窗體。

Terminated
屬性Terminated報告程式是否收到終止程式的Windows訊息WM_QUIT。

UpdateFormatSettings
屬性UpdateFormatSettings指明瞭當用戶改變系統配置時應用程式是否自動更新格式設定。

UpdateMetricSettings

屬性UpdateMetricSettings屬性指明是否對提示視窗字型和圖示標題等相關設定進行更新。

2、方法
BringToFront

方法BringToFront設定應用程式中最近一次的活動視窗到桌面上所有視窗的最前端。

CreateForm
方法CreateForm方法用於建立新的窗體(form)。

HandleException

方法HandleException為應用程式的異常提供預設的控制代碼。

UnhookMainWindow

UnhookMainWindow方法用於釋放由HookMainWindow方法掛在主窗體的程式。

-------------------------------------------------------------------------------------------------------------------------

InternetExplorer.Application的兩個簡單應用

應用一：自動登入163郵箱

MailID = "******"      '賬號
PassWd = "*****"  '密碼
Set ie = CreateObject("InternetExplorer.Application") 
ie.visible = True
ie.navigate "http://mail.163.com/"

'While```Wend迴圈，當條件成立時迴圈
While ie.busy Or ie.readystate <> 4
Wend '等待IE載入完成

'賬號的對比好像還是不完善，想用echo進行顯示，但是報錯（不同賬號，同一密碼時，如果上一次登陸後沒有點選退出）
if ie.document.getElementById("idInput").value = MailID Then 
Else  '輸入賬號，如果賬號裡面有預設賬號則不輸入	
    ie.document.getElementById("idInput").value = ""
    ie.document.getElementById("idInput").value = MailID
End If '如果預設賬號不是需要輸入的賬號，則清空重新輸入

ie.document.getElementById("pwdInput").value = PassWd '輸入密碼
ie.document.getElementById("LoginBtn").click '登入

readyState的5中狀態：

狀態	含義
0（未初始化）	物件已建立，但是尚未初始化（尚未呼叫open方法）
1（初始化）	物件已建立，尚未呼叫send方法
2（傳送資料）	send()方法已呼叫，但是當前的狀態及http頭未知
3（資料傳送中）	已接收部分資料，因為響應及http頭不全，這時通過responseBody和responseText獲取部分資料會出現錯誤
4（完成）	資料接收完畢，此時可以通過通過responseBody和responseText獲取完整的迴應資料

getElementById的作用參見百科

程式碼中idInput獲得如圖：

pwdInput和LoginBtn同樣，如下圖：

應用二：讓ie如彈窗一樣從右下角彈出

'下邊這個htmlfile物件可以獲取顯示的有效高度和寬度（有效，就是螢幕解析度減去工作列的高度或者寬度）
avW= createobject("htmlfile").parentWindow.screen.availWidth
avH= createobject("htmlfile").parentWindow.screen.availHeight
'下邊這個internetExplorer.application物件是IE物件，功能強大
set roIe= Wscript.createobject("internetExplorer.application","IE_")
roIe.navigate("http://minisite.qq.com/gd/index.shtml")   '''網咖應用時最好用內網的連線地址，要不可能很慢！

do
wscript.sleep 50
loop until roIe.readyState=4 ''readyState=4是等網頁全部顯示完成
with roIe
       .Resizable = False ''定義新IE視窗不能拉伸
       .width= 410   ''定義新IE的寬，依據你的web頁面自己調整 
       .height= 258   ''定義新IE的高，依據你的web頁面自己調整
       .left= avW -410   ''定義新IE的出現的位置X，就是螢幕寬減去頁面寬
       .top= avH   ''定義新IE的出現的位置Y，就是螢幕高
       .toolbar = False ''定義新IE是否顯示工具欄
       .statusBar = False ''定義新IE是否顯示狀態列
       .addressBar = False ''定義新IE是否顯示位址列
       .visible= true   ''定義新IE的顯示屬性
       .Document.Title = "網咖---奧運訊息"   ''定義新IE的Title
       Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop
end With

'下面的程式碼是讓新IE視窗冒泡顯示，自動關閉
CreateObject("Wscript.Shell").Appactivate roIe.Document.Title & " - " '啟用一個應用程式視窗，Title為標題
For i = avH To avH-258 Step - 1
       roIe.top= i
       wscript.sleep 10 ''調節冒泡速度，可調整這個
Next
wscript.sleep 20000   ''冒泡停留時間，可調整這個
For i = avH-258 To avH   Step +1
       roIe.top= i
       wscript.sleep 10
Next

roIe.quit
set roIe = Nothing '斷開與物件的連結，釋放記憶體，在大型工程中非常重要的一環，好習慣
Sub IE_OnQuit() '這個子程式應該沒有被呼叫
       Wscript.quit
End Sub

程式碼中的readState可參見上面解釋說明，do```loop until；do until```loop可參見百科，step可參見百科，with```end with解釋如下（百度知道）：

With 語句
在一個單一物件或一個使用者定義型別上執行一系列的語句。
語法
With object
[statements]
End With
With 語句的語法具有以下幾個部分：
部分   描述   
object   必要引數。一個物件或使用者自定義型別的名稱。   
statements   可選引數。要執行在 object 
上的一條或多條語句。   
說明
With 語句可以對某個物件執行一系列的語句，而不用重複指出物件的名稱。例如，要改變一個物件的多個屬性，可以在 With 
控制結構中加上屬性的賦值語句，這時候只是引用物件一次而不是在每個屬性賦值時都要引用它。下面的例子顯示瞭如何使用With 語句來給同一個物件的幾個屬性賦值。
With MyLabel
   .Height = 2000
   .Width = 2000
   .Caption = "This is MyLabel"
End With
注意 當程式一旦進入With 塊，object 就不能改變。因此不能用一個 With 
語句來設定多個不同的物件。
可以將一個With 塊放在另一個之中，而產生巢狀的 With 語句。但是，由於外層 
With 塊成員會在內層的 With 塊中被遮蔽住，所以必須在內層的 With 塊中，使用完整的物件引用來指出在外層的 
With 塊中的物件成員。
重點 一般來說，建議您不要跳入或跳出With 
塊。如果在 With 塊中的語句被執行，但是 With 或 End With 
語句並沒有執行，則一個包含對該物件引用的臨時變數將保留在記憶體中，直到您退出該過程。。
=======================================================================
說白了就是簡化物件屬性的寫法，在with....end with間可以只寫.屬性=xx

一些迴圈的語法可參見之前的部落格VBS學習日記（二）基礎知識

InternetExplorer.Application物件的Documen屬性及簡單應用

InternetExplorer.Application物件的Documen屬性及簡單應用

SpringMVC配置及簡單應用

達內科技NTD1712華為vlan定義，及簡單應用

Tesseract 在 windows 下的安裝及簡單應用

ETCD叢集安裝配置及簡單應用

Eureka概念及簡單應用

使用python操作redis及簡單應用

串：串的基本定義及簡單應用魔王語言

Weka安裝及簡單應用

vs 2017新增Report Viewer控制元件及簡單應用

Python學習筆記----Numpy基礎(陣列物件的屬性及陣列建立)

【Spring訊息】RabbitMq安裝及簡單應用（二）

深度學習介紹及簡單應用

【舊文章搬運】ZwQuerySystemInformation枚舉內核模塊及簡單應用

jquery datatables各引數詳細說明及簡單應用

js刪除物件的屬性及封裝方法

POI入門及簡單應用

人工智慧學習筆記-Theano介紹及簡單應用

GRUB原始碼概述及簡單應用

window 物件的屬性及方法

InternetExplorer.Application物件的Documen屬性及簡單應用

相關推薦