qtp脚本编写，有几个方法问下

superwang001

偶尔看到别人的一些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

过来学习一下

rojer521

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

17800455

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

superwang001

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

17800455

1. Public Function OpenWeb(url)
   
2. 
   
3.         SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",url,"C:\Program Files\Internet Explorer","open"
   
4. 
   
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
    
16. 
    
17. End Function

复制代码