Web测试工具对比--自动化功能测试(2)

发布: 2010-6-11 10:06 | 作者: 不详 | 来源: 领测国际采编 | 查看: 29次 | 进入软件测试论坛讨论

　　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