Web測試工具對比--自動化功能測試(2)

　　web_browser_invoke(IE,"http://192.168.1.42");

　　//讓窗口最大化，坐標固定了，這里不考慮機器分辨率的問題

　　win_max("Browser main Window");

　　win_mouse_click ("html_frame_2", 402, 36);

　　win_type ("html_frame_2","adminjetspeed");

　　win_mouse_click ("html_frame_2", 566, 33);

　　win_check_gui("html_frame_2", "list1.ckl", "gui1", 1);

　　錄制的腳本基本回放通過(這里沒有考慮分辨率的情況，否則腳本開發難度增大。)這種方法不是根本解決方法。

　　2.讓winrunner認識對象

　　解決方法是開發dll讓winrunner引用，windows提供了mshtml對象，借用他可以實現winrunner認識對象。這里我用word的開發環境簡單實現這個功能動態添加用戶名密碼(可以改寫編譯成dll給winrunner引用)。

　　主要代碼(vb版本)：

　　思路：ie加載網頁后，枚舉所有元素對象，找到要找的元素，然后賦值。這里是找username和password文本框，把用戶名密碼添加進去。

　　Dim hdoc As HTMLDocument

　　Dim eleColl As IHTMLElementCollection

　　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/