51Testing软件测试论坛

标题: qtp脚本编写，有几个方法问下 [打印本页]
作者: superwang001    时间: 2011-7-1 11:31
标题: qtp脚本编写，有几个方法问下
本帖最后由 superwang001 于 2011-7-18 09:55 编辑

偶尔看到别人的一些VBS脚本，有些方法不知道如何得来，或者如何编写的，请高手指教！

方法如下：

  ret = OpenWeb("http://192.168.0.172")  
           If ret <>0 Then
                ReportResult "FAIL", "打开游戏登录界面失败"
                login = False
                Exit Function
        End If
   wait(3)

    Dim obj

        '输入登录帐号
    Set obj=Browser("用户登录").Page("用户登录").WebEdit("WebEdit")
        If Not setObj(obj, 1, uin) Then
                ReportResult "FAIL", "输入帐号失败"
        Else
                Log "STEP","输入帐号成功"
        End If

其中有几个方法：OpenWeb()，setObj()，ReportResult，Log
有没有精通的兄弟，把这几个方法解密一下
作者: datouniuniu    时间: 2011-7-1 14:39
过来学习一下
作者: rojer521    时间: 2011-7-1 20:44
看样子这些都是自己定义的函数
作者: 17800455    时间: 2011-7-4 09:48
这很明显是自定义的函数。
可以自己通过不同的方法实现。
只看名字是模式不出来，原函数的。
作者: superwang001    时间: 2011-7-4 13:01
是自定义的函数，能不能帮我把帖子中的几个函数定义一下，请高手解答下！
作者: 17800455    时间: 2011-7-4 14:40
  1. Public Function OpenWeb(url)

  3.         SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",url,"C:\Program Files\Internet Explorer","open"

  5.         If Browser("micClass:=Browser").exist(10) Then
  6.        
  7.                 Browser("micClass:=Browser").sync
  8.        
  9.                 OpenWeb = 0
  10.        
  11.         Else
  12.        
  13.                 OpenWeb = -1
  14.        
  15.         End If

  17. End Function
复制代码




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2