superwang001 发表于 2011-7-1 11:31:57

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:20

过来学习一下

rojer521 发表于 2011-7-1 20:44:38

看样子这些都是自己定义的函数

17800455 发表于 2011-7-4 09:48:58

这很明显是自定义的函数。
可以自己通过不同的方法实现。
只看名字是模式不出来，原函数的。

superwang001 发表于 2011-7-4 13:01:25

是自定义的函数，能不能帮我把帖子中的几个函数定义一下，请高手解答下！

17800455 发表于 2011-7-4 14:40:03

Public Function OpenWeb(url)

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

        If Browser("micClass:=Browser").exist(10) Then
       
                Browser("micClass:=Browser").sync
       
                OpenWeb = 0
       
        Else
       
                OpenWeb = -1
       
        End If

End Function
页: [1]
查看完整版本: qtp脚本编写，有几个方法问下