Web測試工具對比——自動化軟件測試[3]

　　Dim sElement As IHTMLElement

　　Dim i As Integer

　　Set hdoc = WebBrowser1.Document

　　Set eleColl = hdoc.all

　　For Each sElement In eleColl

　　If sElement.isTextEdit Then

　　If sElement.outerHTML = "" Then

　　sElement.setAttribute "value", "admin"

　　End If

　　If sElement.outerHTML = "" Then

　　sElement.setAttribute "value", "jetspeed"

　　End If

　　End If

　　Next

　　同理可以實現winrunner識別網頁任何對象。

文章來源于領測軟件測試網 http://www.kjueaiud.com/